[求助]：[0306]怎样使选集中的物件座标形成串列?

tctabc

[求助]：[0306]怎样使选集中的物件座标形成串列?

请问我想使用"SSGET"形成的选集,
将其中的座标取出,
并形成串列值.
如: ((x1 y1) (x2 y2) (x3 y3) (x4 y4))
烦请各位高手帮忙解答,谢谢~

wandong

用ssname ,entget函数

vken7az2p

就这样可以做到吗?

ljpnb

2. (defun c:test (/ ss lst i obj p1 p2 )
3.   (if (setq ss (ssget))
4.     (progn
5.       (setq lst '()
6.      i 0
7.       )
8.       (repeat (sslength ss)
9. (setq obj (vlax-ename->vla-object (ssname ss i)))
10. (setq p1 (vlax-curve-getStartPoint obj)
11.        p2 (vlax-curve-getendpoint obj)
12. )
13. (setq lst (append (list p1 p2) lst))
14. (setq i (1+ i))
15.       )
16.     )
17.   )
18.   (princ lst)
19.   (princ)
20. )

(defun c:test (/ ss lst i obj p1 p2 )   (if (setq ss (ssget))     (progn       (setq lst '()      i 0       )       (repeat (sslength ss) (setq obj (vlax-ename->vla-object (ssname ss i))) (setq p1 (vlax-curve-getStartPoint obj)        p2 (vlax-curve-getendpoint obj) ) (setq lst (append (list p1 p2) lst)) (setq i (1+ i))       )     )   )   (princ lst)   (princ) )

viz528

如果选取对象为图块的属性标籤座标,
是否为这样呢?
但"point"点标记为何重迭呢?

(setq ss (ssget))
(setq i 0)
(setq ent (ssname ss i))
(repeat (sslength ss)
(setq endata (entget ent))
(setq atten (entnext ent))
(setq attendata (entget atten))
(setq attlabel:10 (cdr (assoc 10 attendata)))
(command "_.point" attlabel:10)
(setq lst (append (list attlabel:10 ) lst))
(setq i (1+ i))
)
(princ lst)
(princ)