能够引用SendCommand创建的对象吗？

freezl · 发表于 2006-5-12 23:41:00

ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr
这是用SendCommand创建的一个圆，我怎么才能在程序中引用它呢？

Dim end As Object

Set end =ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr

我试过了这样是不行的，谁能告诉我怎么办啊？

mccad · 发表于 2006-5-13 06:00:00

看看你有哪个空间中画图，然后取该空间的最后一个图元。

如果是画图的话，建议使用专用的画图方法来做。

xinghesnak · 发表于 2006-5-13 08:37:00

同意mccad的意见，改成这样：

Dim aa As Object

ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr

Set aa = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)

yuangw1234 · 发表于 2006-5-13 15:12:00

不晓得以下方法对你是否有帮助

Public Sub cmm()
ThisDrawing.SendCommand "c 3,3 5 "
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("SSxxxExT")
ssetObj.Select acSelectionSetLast '×¢ÒâÕâ¸ö
For Each sobj In ssetObj
MsgBox sobj.ObjectName
Next sobj
End Sub

xinghesnak · 发表于 2006-5-13 15:36:00

楼上的也是好方法！顶顶。。。。。。

账号		自动登录	找回密码
密码			注册