[求助]：如何做？

suzhanli

用VB编程开发Autocad，怎样才能实现Trim功能呢？

efan2000

在VBA中没有提供直接的Trim命令，因而如果要实现这个功能，可以通过执行ACAD的内部命令来实现。

使用 SendCommand 方法可以直接将命令发送到 AutoCAD 命令行。SendCommand 方法将单个字符串发送到命令行。该字符串必须包含提供给所执行命令的参数，并依照该命令的提示顺序所要求的次序排列这些参数。字符串中的空格或回车符的 ASCII 等价值表示在键盘上按 ENTER 键。与 AutoLISP 环境不同，调用 SendCommand 方法时没有参数是无效的。

下面的样例创建一个圆心为 (2, 2, 0)、半径为 4 的圆，然后将图形缩放至图形中的所有几何图形都可见。注意，字符串末尾有一个空格，表示最后按 ENTER 键开始执行命令。

2. 
   
3.   [FONT=courier new]
   
4. Sub Ch3_SendACommandToAutoCAD()
   
5.    ThisDrawing.SendCommand "_Circle 2,2,0 4 "
   
6.    ThisDrawing.SendCommand "_zoom a "
   
7. End Sub
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> Sub Ch3_SendACommandToAutoCAD()<br />    ThisDrawing.SendCommand "_Circle 2,2,0 4 "<br />    ThisDrawing.SendCommand "_zoom a "<br /> End Sub<br />   [/FONT]<br />