为什么CAD2010中不能建匿名块?
下面这个程序在CAD2005中运行没问题，但在CAD2010中运行就错，为什么？LISP匿名块程序：
(defun c:tt ()
(setq pt (getpoint "\n插入点： "))
(entmake
(list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))
)
(prompt "\n选择实体")
(setq ss1 (ssget)
i (sslength ss1)
n (- 1)
)
(repeat i
(entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))
)
(setq num (entmake '((0 . "ENDBLK"))))
(entmake (list '(0 . "INSERT") (cons 2 num) (cons 10 pt)))
(command "erase" ss1 "")
(princ)
)
页:
[1]