yang686526

问个小问题，为什么到了foreach这步就出错啦
www.dimcax.com
问个小问题，为什么到了foreach这步就出错啦
;;;得到圆以12度为一个角度的圆上的点的坐标的表
(defun ko-get->list-atcirclepoint(circle ang / cen rad n pts)
(setq cen (cdr (assoc 10 (entget circle)))
rad (cdr (assoc 40 (entget circle)))
)
(setq n 0 pts '())
(repeat (/ 360 ang)
(setq pts (append pts (list (polar cen (angtof (rtos ang 2)) rad))) n (1+ n))
)
pts
)
;;oooooooooooooooooooooooooooooooooooooooooooooooooooo分栏号(公用函数）ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
;;;得到圆以12度为一个角度的圆上的点的坐标的表mode1是控制是否把与圆相交的对象也添加在选择集中，mode2控制圆是否也加在选择集中
(defun ko-get-pickset-incircle (cir mode1 mode2 / lst ss ss1 ss2)
(setq lst (ko-get->list-atcirclepoint cir 5))
(if mode1
(progn
(command "._select" "cp")
(foreach x lst (command x))
(command "" "")
(setq ss1 (ssget "p"))
(setq ss1 (ssdel cir ss1))
)
)
(command "._select" "wp")
(foreach x lst (command x))
(command "" "")
(setq ss2 (ssget "p"))
(if mode2 (setq ss3 (ssadd cir (ssadd))))
(command "._select" ss1 ss2 ss3)
(setq ss (ssget "p"))
)
请问一下为什么我的程序到了 (foreach x lst (command x))这一步函数就被取消啦，
d
ko-get->list-atcirclepoint中的pts应该是同一个点吧，ang都没有增加。
没有测试，不过程序好复杂，为什么要用(command "._select" "wp")，ssget本身就有多边形选集，栏选等功能
做二次开发前先打好cad基础
不要尝试用二次开发来弥补你错误的操作
d
是的，我又学到一招啦，是的，我搞错啦，是少了乘以n啦角度，问题解决了，浪大哥，谢谢
d