|
|
codeprivate sub drawLineAandSaveObjid() dim CurrentNzdBlock As AcadBlock '当前块
Dim layerObj As AcadLayer
Dim lineobj As AcadLine
Dim pnt1(0 To 2) As Double, pnt2(0 To 2) As Double
Dim intersectVarient As Variant
Dim movetopnt(0 To 2) As Double
‘下面代码不能在制定位置插入线，所以需要从原点移动过来，为什么？
Set lineobj = CurrentNzdBlock.AddLine(pnt1, pnt2)
intersectVarient = GetIntersectPoint(lineobj, nzdPolyLineObj)
'move to proper position
movetopnt(0) = intersectVarient(0): movetopnt(1) = intersectVarient(1): movetopnt(2) = intersectVarient(2)
lineobj.Move pnt1, movetopnt
'保存直线的objectid 数据
rstDataGTSJ.Fields("lineobjid").Value = lineobj.ObjectID
rstdatagtsj.update
end sub
事件，当对象被修改时，修改数据库中的数据
Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
Dim lineobj As AcadLine
Dim startPnt As Variant
'判断是否是杆塔线被移动,如果被移动,则把新的杆塔线数据写入数据库.
If TypeName(Object) = "IAcadLine" Then
Set lineobj = Object
startPnt = lineobj.startPoint
Call SaveNewPositionToDB(lineobj.ObjectID, CDbl(startPnt(0)))
End If
End Sub
问题：
1。在图形中当我移动相应直线时，object却和数据库中的不同，而我要修改数据中重存放的相应对向的坐标，为什么这样呢，怎么办。
2。 见drawLineAandSaveObjid()中注释‘下面代码不能在制定位置插入线，所以需要从原点移动过来，为什么？
3。我试了试，不使用块，在1中不会出现问题，如果不使用copyobject方法，如何把一个对象插入到一个指定的块中。 |
|
置顶卡
