通过ssget根据坐标选择出属性块插件，请教getstring函数问题
本帖最后由 q2284555 于 2023-12-17 11:38 编辑原贴地址：http://bbs.mjtd.com/thread-187057-1-1.html
通过ssget根据坐标选择出属性块插件版主 xyp1964帮忙做的，我想改下有手动输入坐标功能，一直报错，有大神帮忙看下是哪里错吗？
已知坐标为(8356.98 -3675.19 0) (8348.98 -3675.19 0)
下面是我修改的
(defun c:t666 ()
"tt(ssget根据坐标选择属性块)"
(setq ptn(getstring "\n粘贴坐标:")
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)
)
getstring 得到的是字符串 而foreach 的参数需要是表 谢谢指点，已解决啦~~~
页:
[1]