社区 › AutoLISP/Visual LISP 编程技术 › [求助]不用选取，如获得指定层的物体的信息

gxpndz 发表于 2009-7-24 21:13:00

[求助]不用选取，如获得指定层的物体的信息

不用选取，如获得指定层的物体的信息，比如在center层有四个圆，我想用线段将四个圆串连起来，如何获得四个圆的圆心坐标?

Andyhon 发表于 2009-7-24 22:21:00

(defun sel2lst (sel / nn lst)<br/>&nbsp; (repeat (setq nn (sslength sel))<br/>&nbsp;&nbsp;&nbsp; (setq nn (1- nn)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lst (cons (ssname sel nn) lst)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>)<br/>(mapcar&nbsp; <br/>&nbsp; (function <br/>&nbsp;&nbsp;&nbsp; (lambda (dat)&nbsp; (cdr (Assoc 10 dat)))<br/>&nbsp; )<br/>&nbsp; (mapcar 'entget (sel2lst (ssget "X" '((0 . "CIRCLE") (8 . "CENTER")))))<br/>)

查看完整版本: [求助]不用选取，如获得指定层的物体的信息