你是怎麽干得？
应该：
dim docapp as AcadDocument
set docapp=acadapp.ActiveDocument
docapp.SendCommand "_Circle 2,2,0 4 "
Sub Test()<BR>Dim ss As AcadSelectionSet<BR>Set ss = ThisDrawing.ActiveSelectionSet<BR>ss.Clear<BR>ss.SelectOnScreen<BR>ThisDrawing.SendCommand "_.fillet" & vbCr & "r" & vbCr & "1" & vbCr & "(handent " & Chr(34) & ss(0).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & ss(1).Handle & Chr(34) & ")" & vbCr
End Sub<BR>
'ss.SelectOnScreen'这条语句只能在屏幕上选择以后才执行下面的语句,有没有直接通过程序选择.ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)是取模型空间的最后一个实体，如果我不知道是选择的对象是第几个,又该怎么做.用句柄返回可以吗?怎么实现
那你的直线对象是如何获取的呢？
Dim pEntity(0) As AcadEntity
Set pEntity(0) = acadDoc.ModelSpace(acadDoc.ModelSpace.count - 1)
这样获取的,或者是 Set lp = MdSpace.AddLine(point, point1)
这样都能实现!我想问的不知道对象名称的情况下(比如重复的的使用Set lp = MdSpace.AddLine(point, point1),对象名称(lp)无法引用.
我想知道句柄的使用,希望能指点呀
你可以用直线数组保存直线对象，或者字符串数组保存直线对象的句柄
用ThisDrawing.HandletoObject通过句柄返回图形对象
真的非常感谢你的指教,
非常感谢！！！
<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face1.gif" border=0> <B></B><BR>Sub Test()<BR>Dim ss As AcadSelectionSet<BR>Set ss = ThisDrawing.ActiveSelectionSet<BR>ss.Clear<BR>ss.SelectOnScreen<BR>ThisDrawing.SendCommand "_.fillet" & vbCr & "r" & vbCr & "1" & vbCr & "(handent " & Chr(34) & ss(0).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & ss(1).Handle & Chr(34) & ")" & vbCr
End Sub<BR>
</TD></TR></TBODY></TABLE>怎么把计算的值用来作导角半径！也就是用字母取代"1" ！！
ThisDrawing.SendCommand "_.fillet" & vbCr & "r" & vbCr & myR & vbCr & "(handent " & Chr(34) & ss(0).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & ss(1).Handle & Chr(34) & ")" & vbCr