lisp程序不能使用

dennylaw163

原本用得好好的，突然就不能使用了，如以下代码：

• (defun c:tt5 (/ dlst en endat entype lx n pt0 pt1 ptx)
•   (setq en (car (entsel "\n选择多段线:")) endat (entget en) entype (cdr(assoc 0 endat)))
•   (if (= entype "LWPOLYLINE") (setq Dlst (D_pl_lst en)) (progn (alert "对象不是多段线！！！") (exit)))
•   (setq pt0 (getpoint"\n选择展开图插入点:") pt1 (polar pt0 0 200) n (length Dlst) ptx pt0)
•   (command "line" "non" pt0 "non" pt1 "" )
•   (repeat n
•     (command "copy" "l" "" "non" pt0 "non" (setq pt0 (polar pt0 (* 1.5 pi) (car Dlst))))
•     (setq Dlst (cdr Dlst))
•   )
•   (setq lx (entlast))
•   (command "line" "non" ptx "non" (cdr (assoc 10 (entget lx))) "" "line" "non" pt1 "non" (cdr (assoc 11 (entget lx))) "")
•   (princ)
• )
• (defun D_pl_lst (en / dlst lst n);;多段线子段长度数表
•   (setq lst (list) Dlst (list))
•   (foreach x (entget en) (if (= (car x) 10) (setq lst (cons (cdr x) lst))))
•   (repeat (1- (length lst))
•     (setq Dlst (cons (distance (car lst) (cadr lst)) Dlst) lst (cdr lst))
•   )
•   Dlst
• )
  

baitang36

先把每行前面的行号去了试试

dennylaw163

baitang36 发表于 2021-5-28 10:47
先把每行前面的行号去了试试

找到原因了，qaflags这个系统变量必须设为0