求助，运行后报错“选择即将应用公差的尺寸 : ; 错误: 参数类型错误: lentityp”
(DEFUN C:t1 ()(setvar "cmdecho" 0)
(initget 128)(setq tol01x "0.01")
(initget 128)(setq tol02x "0.0")
(setq tol01 (strcat "+" tol01x))
(setq tol02 (strcat "-" tol02x))
(setq ltol (strcat "{\\H0.6x;\\S" tol01 "^" tol02 ";}"))
(SETQ diml1 (ENTSEL "\n选择即将应用公差的尺寸 : "))
(if (= diml1 NIL)(PRINC "\n没有选择任何物件!"))
(SETQ ENT (ENTGET (CAR diml1)))
(setq dimtext (CDR (ASSOC 0 ENT)))
(setq dimok (= dimtext "DIMENSION"))
;;(if (= dimok nil) (princ "只能选择完整的尺寸!") (exit))
(setq dimtol (CDR (ASSOC 1 ENT)))
(setq rr (substr dimtol 1 2))
(if (or (= rr "") (= rr "<>"))
(progn
(setq ltol01 (strcat "<>" ltol))
(setq cc(subst (cons 1 ltol01)(assoc 1 ENT)ENT))
(entmod cc)(entupd diml1)
)
(progn
(if (= rr nil)(princ "手工修改的尺寸暂不能用此程序标注公差!"))
)
)
) 程序可以使用，就是会出现"选择即将应用公差的尺寸 : ; 错误: 参数类型错误: lentityp "这个提示，想知道这是什么回事！
页:
[1]