miaoph 发表于 2003-12-24 22:24:00

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

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

miaoph 发表于 2003-12-24 22:46:00

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

efan2000 发表于 2003-12-24 23:02:00


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

myfreemind 发表于 2003-12-24 23:55:00

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

mikewolf2k 发表于 2003-12-25 18:54:00

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

nxy_918 发表于 2007-7-6 16:06:00

<p>搜到这样的帖子,想问问<strong><font face="Verdana" color="#da2549">myfreemind明总的帖子我死活找不到,指条明路给兄弟好吗?谢谢</font></strong></p>
页: [1]
查看完整版本: 如果我不想使用SendCommand命令实现trim命令