请教下大神们，如何通过ssget根据坐标选择出属性块？
本帖最后由 q2284555 于 2023-1-30 18:12 编辑选取属性块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)
(defun c:tt ()
"tt(ssget根据坐标选择属性块)"
(setq ptn '((8356.98 -3675.19 0) (8348.98 -3675.19 0))
aa (ssadd)
)
(foreach pt ptn
(if (setq ss (ssget "c"(polar pt pi 0.1)(polar pt 0 0.1)'((0 . "insert")(66 . 1))))
(ssadd (ssname ss 0) aa)
)
)
(sssetfirst nil aa)
(princ)
)
xyp1964 发表于 2023-1-30 20:06
好用，学习了！~谢谢版主指导~！:lol
页:
[1]