请大侠帮忙解决一下样条曲线这个程序

lch8526

我想用程序把所选的圆的圆心用样条曲条全部连接起来，但有时候会在十字线的端点跳到另外的端点去了。请问要怎样修改这个程序

1. (defun c:rt()
   
2. (setq os (getvar "osmode"))
   
3. (setvar "cmdecho" 0)
   
4.   (setq ss (ssget '((0 . "circle"))))
   
5.   (setq i 0)
   
6.   (setq n (sslength ss))
   
7. (setvar "osmode" 0)
   
8. (command "spline")
   
9. (setq pt (cdr (assoc 10 (entget (ssname ss 0)))))
   
10. (command pt)
    
11. (while (< i (- n 1))
    
12.   (setq i (+ 1 i))
    
13.   (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
    
14.   (command pt)
    
15. )
    
16. (setq pt (cdr (assoc 10 (entget (ssname ss 0)))))
    
17. (command pt)
    
18. (command "" "" "")
    
19. (setvar "osmode" os)
    
20. (setvar "cmdecho" 1)
    
21. (princ)
    
22. )

(defun c:rt()<br /> (setq os (getvar "osmode"))<br /> (setvar "cmdecho" 0)<br />   (setq ss (ssget '((0 . "circle"))))<br />   (setq i 0)<br />   (setq n (sslength ss))<br /> (setvar "osmode" 0)<br /> (command "spline")<br /> (setq pt (cdr (assoc 10 (entget (ssname ss 0)))))<br /> (command pt)<br /> (while (< i (- n 1))<br />   (setq i (+ 1 i))<br />   (setq pt (cdr (assoc 10 (entget (ssname ss i)))))<br />   (command pt)<br /> )<br /> (setq pt (cdr (assoc 10 (entget (ssname ss 0)))))<br /> (command pt)<br /> (command "" "" "")<br /> (setvar "osmode" os)<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )

附件里有DWG测试文件和测试录像

lch8526

附件里有DWG测试文件

st788796

ssget 选集遍历时是按实体生成顺序的，你确定这样连接是期望结果？

lch8526

st788796 发表于 2015-5-30 18:16
ssget 选集遍历时是按实体生成顺序的，你确定这样连接是期望结果？

我是想一个接一个的连接起来，有什么办法可以改善

炫翔

没发现什么问题,一个接一个的连接起来,就一个个顺序选取就好

炫翔

lch8526

炫翔 发表于 2015-6-1 16:51

我的意思是想全选后按顺时针或逆时针方向一个一个的连接起来