这样错在哪里，怎么样依次取得点呢？LISP

lzy9788 · 发表于 2004-3-22 16:45:00

(COMMAND "_DIMLINEAR" (NTH 0 BB) (NTH 1 BB) "@0,450")
(command "_dimcontinue"
(while (meflying。
但还出现一个提示输入点无效

meflying · 发表于 2004-3-22 17:01:00

那就是你的表BB或者循环控制NUM的问题了

lzy9788 · 发表于 2004-3-22 17:11:00

(defun c:111 ()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n请选择-1:") pt2 (getpoint pt1 "\n请选择-2:"))
(setq ss (ssget "c" pt1 pt2))
(setq num (sslength ss)
e 0
N 2)
(setq bb nil)
(while (meflying,
这个程序我刚做好的，标注所择的线的尺寸。
自认为还比较方便。

meflying · 发表于 2004-3-22 17:14:00

请大侠参考，提点建议

这样错在哪里，怎么样依次取得点呢？LISP

发表回复

精选推荐

浏览过的版块