请教下大神们，如何通过ssget根据坐标选择出属性块？

q2284555

选取属性块1和属性块2该怎么改？  我打算在excel里把坐标一起整合在代码里，直接粘贴CAD命令里使用的，所有不怕代码长难看。


例如已知
属性块1 坐标8356.98,-3675.19
属性块2 坐标8348.98,-3675.19
属性块3 坐标8340.98,-3675.19


(setq ss(ssget"x" '((0 . "insert")(2 . G-DZPJT1)(10 8356.98 -3675.19 0)(10 8348.98 -3675.19 0))))
(sssetfirst nil ss)

xyp1964

1. (defun c:tt ()
   
2.   "tt(ssget根据坐标选择属性块)"
   
3.   (setq ptn '((8356.98 -3675.19 0) (8348.98 -3675.19 0))
   
4.         aa (ssadd)
   
5.   )
   
6.   (foreach pt ptn
   
7.     (if (setq ss (ssget "c"(polar pt pi 0.1)(polar pt 0 0.1)'((0 . "insert")(66 . 1))))
   
8.       (ssadd (ssname ss 0) aa)
   
9.     )
   
10.   )
    
11.   (sssetfirst nil aa)
    
12.   (princ)
    
13. )

(defun c:tt ()<br />   "tt(ssget根据坐标选择属性块)"<br />   (setq ptn '((8356.98 -3675.19 0) (8348.98 -3675.19 0))<br />         aa (ssadd)<br />   )<br />   (foreach pt ptn<br />     (if (setq ss (ssget "c"(polar pt pi 0.1)(polar pt 0 0.1)'((0 . "insert")(66 . 1))))<br />       (ssadd (ssname ss 0) aa)<br />     )<br />   )<br />   (sssetfirst nil aa)<br />   (princ)<br /> )

q2284555

xyp1964 发表于 2023-1-30 20:06

好用，学习了！~  谢谢版主指导~！