有空过来看看，倒角圆角求助

雪山飞狐_lzh

你是怎麽干得？



应该：


dim docapp as AcadDocument


set docapp=acadapp.ActiveDocument


docapp.SendCommand "_Circle 2,2,0 4 "

雪山飞狐_lzh

Sub Test()
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.SelectOnScreen
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

yingxunxue

'ss.SelectOnScreen'这条语句只能在屏幕上选择以后才执行下面的语句,有没有直接通过程序选择.ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)是取模型空间的最后一个实体，如果我不知道是选择的对象是第几个,又该怎么做.用句柄返回可以吗?怎么实现

雪山飞狐_lzh

那你的直线对象是如何获取的呢？

yingxunxue

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)无法引用.


我想知道句柄的使用,希望能指点呀

雪山飞狐_lzh

你可以用直线数组保存直线对象，或者字符串数组保存直线对象的句柄


用ThisDrawing.HandletoObject通过句柄返回图形对象

yingxunxue

真的非常感谢你的指教,

riechie

非常感谢！！！

riechie

Sub Test() Dim ss As AcadSelectionSet Set ss = ThisDrawing.ActiveSelectionSet ss.Clear ss.SelectOnScreen 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

怎么把计算的值用来作导角半径！也就是用字母取代"1" ！！

雪山飞狐_lzh

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