[VBA程序]：VBA中使PE命令得到参数

chuqi26

例如,图形中有红线,现在通过VBA中的sendcommand发送PE命令到CAD中,如何让PE得到要加粗的物体(即红线),我试图通过遍历每一根红线,然后在发送PE命令,但无法将该次遍历的红线作为参数传递给PE,反而提示我选择物体

初学VBA,请多关照,谢谢

efan2000

用SendCommand向CAD发送本身的命令，后面的参数汲及到对象的要用Lisp方法来传递，如果确实要用这种方法的话，那么就要好好学习一下Lisp，将它了解透沏才能应用自如。下面是两个简单的使用，供自己参考一下。注：PEDIT命令同时仅能对一个实体进行编辑。

1. 
   
2.   [FONT=courier new]
   
3.     ThisDrawing.SendCommand "PE (entlast) " '用PEDIT命令对最后生成的对象进行编辑，仅仅多段线才有效
   
4.     ThisDrawing.SendCommand "PE (ssget ""X"") " '用PEDIT命令对当前文档中所有的对象进行编辑，当选择集中的最后一个实体是多段线时才有效
   
5.   [/FONT]
   

复制代码