通过ssget根据坐标选择出属性块插件，请教getstring函数问题

q2284555

原贴地址：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 的参数需要是表

q2284555

谢谢指点，已解决啦~~~