autocad2000 能否给一条直线赋予一个名字？

minji

用vba的addline画一条直线，能否给这条直线赋予一个唯一的名字并保存在图样中，以后可以根据这个名字找到这条线？谢谢！

yulijin608

把名字写到xdata里面，查询的时候读取就行了

xufen

minji兄小弟认为不用赋予名字的直线使用Handle属性就可以了! 小弟写了段测试代码应该可以解决这个问题 Sub test()
On Error Resume Next
Dim line As AcadLine
Dim test As String
Dim Startpoint(0 To 2) As Double
Dim Endpoint(0 To 2) As Double
Startpoint(0) = 0: Startpoint(1) = 10: Startpoint(2) = 0
Endpoint(0) = 0: Endpoint(1) = 100: Endpoint(2) = 0
Set line = ThisDrawing.ModelSpace.AddLine _
(Startpoint, Endpoint)
ZoomAll
test = line.Handle
MsgBox test, vbOKOnly
End Sub
对话框里字符串就是Handle

minji

实验成功，谢谢Xufen兄！


现在又有个问题：这个Handle是否是永远保存在图样中的？就是关闭图样后再打开，也可以根据这个handle找到这条线，如何找？谢谢！

wyj7485

是的，不会改变。


遍历选择集就可以找到line.Handle=""的实体。

雪山飞狐_lzh

ThisDrawing.HandleToObject