大师们方便帮看一下这个标注程序错在哪里吗？

ZZXXQQ

2. (defun c:`q();线性
   
3. (initget 1)
   
4. (setq pt1 (entsel "\n请指定标注起点:"))
   
5. (initget 1)
   
6. (setq pt2 (entsel "\n请指定标注终点:"))
   
7. (command "dimlinear" (cadr pt1) (cadr pt2) pause)
   
8. (princ)
   
9. )
   

(defun c:`q();线性<br /> (initget 1)<br /> (setq pt1 (entsel "\n请指定标注起点:"))<br /> (initget 1)<br /> (setq pt2 (entsel "\n请指定标注终点:"))<br /> (command "dimlinear" (cadr pt1) (cadr pt2) pause)<br /> (princ)<br /> )<br />

669423907

ZZXXQQ 发表于 2014-11-8 21:49

Z版，和原来的程序相差太远了啊！

原来的：
1：点左键时，光标没有落在任何图元上，程序退出，如果点左键时，光标落在图元上，程序就可以继续运行到点第二点，如果点第二点时，光标没有落在任何图元上，程序退出，如果点第二点时，光标落在图元上，程序标出一个线性标注并循环到开始
2：按右键，可以选一根线，标出一个线性标注，并循环到开始

现在想改为：当程序顺利运行到要点第二点时，如果第二点没有落在任何图元上，程序不退出，直到点到图元或按右键退出

lsjj

(defun c:`q();線性
(setq bz? (getpoint "\n左鍵標兩點，右鍵選線"))
(setq gbwz (grread 3));游標位置
(if (member (car gbwz) '(3 5))
(setq od (cadr gbwz)));滑鼠位置
(if bz?
(bz)
(bzz)
)
(princ))

(defun bz()
(if (ssget od)
  (progn
    (while (not (ssget (setq pt2 (getpoint od "\n請指定標注終點:")))))
    (command"dimlinear" od pt2)
    (while (= 1 (getvar "cmdactive"))(command pause))
    (c:`q)
  )  
)

(princ))

(defun bzz()
(command "dimlinear""")
(while (= 1 (getvar "cmdactive"))(command pause))
(c:`q)
(princ))