[求助]请问？关于lisp中使用measure命令

yiwei

为什么我在lisp中使用measure命令后，执行的结果显示插入的块都是从左向右定距等分的，或者是从右向左的，而不是按照执行measure命令时那样从起点到终点来定距等分啊？需要设置系统参数吗？

SWAYWOOD

把你的程序贴上来啊

天下第三

ME、DIV都可以用双元表来响应，

比如(command "measure" (list en pt) ……)

这个pt点的位置决定了MEASURE的起点，如果pt更靠近起点，就从起点开始等分，如果更靠近终点，就从终点向起点等分。

yiwei

谢谢拉，试试去

newbuser

(defun c:gcjm()
(setq a (getpoint "\n 点击高程点A"))
(setq b (getpoint "\n 点击高程点B"))
(setq l (command "_3dpoly" a b ""))
(setq c (entlast))
(command "measure" c "" 1 "")
'(command "erase" l "")
)
我想把三维多段线等分成1米，然后删除多段线留下高程点，只是1米必须手动输入，非常恼火啊。