yang686526

lisp程序，怎么实现框选点（不止1个），然后输出到txt文本
www.dimcax.com
lisp程序，怎么实现框选点（不止1个），然后输出到txt文本lisp程序，怎么实现框选点（不止1个），然后输出到txt文本，急。。。
d
(defun c:tt ()
(if (setq ss (ssget '((0 . "point")))) (progn
(setq nm (if nm nm ""))
(if (setq nm (getfiled "输出文件名" nm "txt" 8)) (progn
(setq fp (open nm "w")
i 0)
(repeat (sslength ss)
(setq pt (cde(assoc 10 (entget(ssname ss i))))
i (1+ i))
(princ "\n" fp) (princ pt fp)
)
(close fp)
))
))
(princ)
)
踅摸
d