如何求块的坐标点

xiaoxuefengwu

一个图中有很多块，求他们的每个块的坐标的。

如块A,在812，455，0有一个，在 452，481，0有一个。
求显示块A，在不同位置的坐标点，“812，455，0和452，481，0”信息。

谢谢！

usercoolbo

SSGET搜索选择所有的块，求取坐标表

xiaoxuefengwu

不会用，有源码吗？

Gu_xl

回复 xiaoxuefengwu 的帖子

1. (defun c:tt()
   
2. (setq ss (ssget "x" '((0 . "insert") (2 . "A"))))
   
3. (if ss
   
4. (repeat (setq n (sslenth ss))
   
5. (princ (cdr(assoc 10 (entget (ssname ss (setq n (1- n)))))))
   
6. (princ "\n")
   
7. )
   
8. )
   

(defun c:tt()<br /> (setq ss (ssget "x" '((0 . "insert") (2 . "A"))))<br /> (if ss<br /> (repeat (setq n (sslenth ss))<br /> (princ (cdr(assoc 10 (entget (ssname ss (setq n (1- n)))))))<br /> (princ "\n")<br /> )<br /> )<br />

xiaoxuefengwu

谢谢，可以

quarx

学习了，谢谢分享