[LISP函数]：如何向Command Line传递Measure 命令的参数

aceowen318

在ACAD2004中 我想用Measure去量一条PLine线并每隔一定距离插入一块,块垂直PL线,如何在Measure执行中自其自动传递"块名 ",距离"等参数,以达到自动化.
     有会用复合菜单或VBA或LiSP编程实现的都可以,请指教!

cy956

办法一：用vlax函数求出距离点位的各项参数，再insert
办法二：直接用measure命令。程序中先用一个块measure一遍，根据新实体选择集求一遍各个块的数据，如果你用属性，可以重新赋值或者重新插入并加上属性值；
          如果你用扩展数据等则加上；
          如果你用text旁注，直接生成。
cad编程中经常用“预生成实体——提取数据——删预生成实体——正式生成实体”这样的土办法。

aceowen318

问题已解决，感谢斑竹Cy956，您的讲解很有启发，使我受益匪浅。我用VBA实现了，原理与您的方法1类似，先按距离求位置点，在其上插块，后根据该点所在线的法线方向转动块。很麻烦。用Lisp解决就容易多了,只需几句就搞定了，如下：
(defun c:PLB()
(setvar "cmdecho" 0)
(setq bl1 (entsel "Please choose an object: "))
(command "measure" bl1 "b" "BLname" "y" "20")
(setvar "cmdecho" 1)
(princ)
)