如果我不想使用SendCommand命令实现trim命令

miaoph

如果我不想使用SendCommand命令实现trim命令，如何在VBA中实现，有没有可能？

miaoph

如果使用SendCommand命令，如何实现，我需要具体的代码，因为我没能够实现，实在不好意思。

efan2000

2. 
   
3. Sub test()
   
4.     Dim EntObj1 As AcadEntity
   
5.     Dim EntObj2 As AcadEntity
   
6.     Dim pPt As Variant
   
7.     ' 提示
   
8.     ThisDrawing.Utility.Prompt "选择剪切边..." & vbCr
   
9.     ' 选择对象
   
10.     ThisDrawing.Utility.GetEntity EntObj1, pPt, "选择对象:" & vbCr
    
11.     ' 亮显
    
12.     EntObj1.Highlight True
    
13.     ThisDrawing.Utility.GetEntity EntObj2, pPt, "选择要修剪的对象:" & vbCr
    
14.     EntObj1.Highlight True
    
15.     ' 判断是否为同一对象
    
16.     If EntObj1.Handle = EntObj2.Handle Then
    
17.         ThisDrawing.Utility.Prompt "对象重复" & vbCr
    
18.         ThisDrawing.Regen acActiveViewport
    
19.         Exit Sub
    
20.     End If
    
21.     ' 执行内部Trim命令，handent 通过句柄获取Lisp中的对象（实体）名称。
    
22.     ThisDrawing.SendCommand "Trim" & vbCr & "(handent """ & EntObj1.Handle & """)" & vbCr _
    
23.         & vbCr & "(handent """ & EntObj2.Handle & """)" & vbCr & vbCr
    
24.     ' 当前视图重生成
    
25.     ThisDrawing.Regen acActiveViewport
    
26. End Sub
    

<br /> Sub test()<br />     Dim EntObj1 As AcadEntity<br />     Dim EntObj2 As AcadEntity<br />     Dim pPt As Variant<br />     ' 提示<br />     ThisDrawing.Utility.Prompt "选择剪切边..." & vbCr<br />     ' 选择对象<br />     ThisDrawing.Utility.GetEntity EntObj1, pPt, "选择对象:" & vbCr<br />     ' 亮显<br />     EntObj1.Highlight True<br />     ThisDrawing.Utility.GetEntity EntObj2, pPt, "选择要修剪的对象:" & vbCr<br />     EntObj1.Highlight True<br />     ' 判断是否为同一对象<br />     If EntObj1.Handle = EntObj2.Handle Then<br />         ThisDrawing.Utility.Prompt "对象重复" & vbCr<br />         ThisDrawing.Regen acActiveViewport<br />         Exit Sub<br />     End If<br />     ' 执行内部Trim命令，handent 通过句柄获取Lisp中的对象（实体）名称。<br />     ThisDrawing.SendCommand "Trim" & vbCr & "(handent """ & EntObj1.Handle & """)" & vbCr _<br />         & vbCr & "(handent """ & EntObj2.Handle & """)" & vbCr & vbCr<br />     ' 当前视图重生成<br />     ThisDrawing.Regen acActiveViewport<br /> End Sub<br />

myfreemind

看下以前的老帖，明总有写！

mikewolf2k

搂主，我也有同样的需求，如果有办法麻烦告诉我一声．谢谢．

nxy_918

搜到这样的帖子,想问问myfreemind明总的帖子我死活找不到,指条明路给兄弟好吗?谢谢