[讨论]：遇到一个回程错误

啵浪鼓

下面为一段选择图框后依据此图框来设置尺寸标注的大小,可程序出现运行完成后多了一句错误提示:
**************************************************************************************
(defun c:hh (/ )
(setq s (ssget))
(setq n (sslength s))
(setq m 0)
(while (< m n)
(setq lname (ssname s m))
(setq li (entget lname))
(if  (=(cdr  (assoc '2  li)) "A3")
(progn
(setq p1  (assoc '10 li))
(setq p0 ( list (nth 1 p1) (nth 2 p1)))
(setq xx (cdr (assoc '41 li)))
(setq yy (cdr (assoc '42 li)))
(setq x (* xx 289))
(setq y (* yy 200))
(setq p1 (polar p0 (/ pi 2) y))
(setq p2 (polar p0 0 x))
(setq s nil)
)
)

           (setq c (abs (- (car p1) (car p2))))
           (setq d (abs (- (cadr p1) (cadr p2))))
           (if (> c d) (cond ((<= (/ c 289) 2) (setq x 2.2))
                             ((and (> (/ c 289) 2) (<= (/ c 289) 3)) (setq x 1.9))
                             ((> (/ c 289) 3) (setq x 1.6))
                       )
           )
           (if (> c d) (setq e(* (/ c 289) x))
           )
           (command "dimtxt" e
                    "dimasz" (/ e 1.5)
                    "dimexo" (/ e 5)
                    "dimexe" (/ e 5)
                    "-layer" "s" "dim" "")
           (prompt "\nTEXT HIGH EQUAL:")
           (print e)
)
(princ)
)

**************************************************************************************
执行结果:
TEXT HIGH EQUAL:
1.06981
这是我想要的,可紧跟着后面却提示:
错误: 参数类型错误: lselsetp nil

请问,这句程序哪里出错了?

aidraft

在(print e)后面加(setq m (1+ m))

啵浪鼓

哦,谢谢啊

伊伊哎哎

楼主的程序是好,只是你的(ssget)为连续选择,而且须设置如果没选中不能退出程序,直到找到为A3的block图块后方止,请哪位高手整合一下好吗?

啵浪鼓

是啊,如果用(entsel),将造成语句失效,哪位高手能修改一下这个程序嘛~!