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

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

(COMMAND "_DIMLINEAR" (NTH 0 BB) (NTH 1 BB) "@0,450") (command "_dimcontinue"
(while (< N num) (nth N bb) (setq N (1+ N)))
"" "") bb为坐标列表，怎么样让点依次输入实现连续标注了

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

(command "_dimcontinue"
(while (< N num) (command (nth N bb)) (setq N (1+ N))))
(command "" "")

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

多谢meflying。但还出现一个提示输入点无效

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

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

lzy9788 · 发表于 2004-3-22 18:03: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 (< e num)
(setq nam (ssname ss e)
ent (entget nam)
pt11 (cdr (assoc 10 ent))
pt22 (cdr (assoc 11 ent)))
(setq int (inters pt1 pt2 pt11 pt22))
(setq bb (append (list int) bb))
(setq e (1+ e))
);end while
(setq bb
(vl-sort bb
(function (lambda (e1 e2)
(< (car e1) (car e2)) ) ) )
);;end setq
(SETVAR "OSMODE" 0)
(COMMAND "_DIMLINEAR" (NTH 0 BB) (NTH 1 BB) "@0,450")
(command "_dimcontinue"
(while (< N num) (command (nth N bb)) (setq N (1+ N))))
(command "" "")
(setvar "cmdecho" 1)
(PRINC)) 代码是这样，运行后能用，但提示点无效

meflying · 发表于 2004-3-22 18:20:00

不好意思，漏了一个括号。。。这程序有什么功能？好象QDIM比这个程序功能强多了 (command "_dimcontinue")
(while (< N num) (command (nth N bb)) (setq N (1+ N))))
(command "" "")

alin · 发表于 2004-3-22 18:40:00

(command "_dimcontinue")
(while (< N num) (command (nth N bb)) (setq N (1+ N)))

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

哦，我还不太熟悉LISP,多谢meflying, 这个程序我刚做好的，标注所择的线的尺寸。自认为还比较方便。

lzy9788 · 发表于 2004-4-8 17:38:00

请大侠参考，提点建议

账号		自动登录	找回密码
密码			注册