请教热i心的朋友们.一个圆排列的问题。

434939575

;排列圆.以半径为距离排列圆.有问题.
目的。
    (defun c:tt()
    (princ " \n 点选圆");
     (setvar "CMDECHO" 0);_关闭命令提示
    (Setvar "osmode" 0);_关闭捕捉
          (if (setq ss (ssget '((0 . "circle"))))
          (progn
          (setq  pt0 (getpoint "排列起始点"));可运行成功
            (setq i 0)
            (repeat (sslength ss)
            (setq ss0 (ssname ss i)
                   en (entget ss0)
                cen-10(cdr (assoc 10 en)) ;pt=圆心坐标
                rad-40(cdr (assoc 40 en)) ;pt=圆半径
            i (1+ i)
              ); (setq ss0
;------------------------------------------------------------------
     (setq  ptz(polar  pt0  pi  rad-40 ) );圆左边点。         
     (setq  pty (polar  pt0  0  rad-40 ) );圆右边点。
         (setq  pt0    ptz );圆左边点赋值给pt0 。
;------------------------------------------------------------------
      ( command  "move"
                  ss0
                  ""
             cen-10
                  pty
                  ""
                   );command
          ); (repeat
     )
        )
       )
   

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. 
   
4. (defun c:tt ()
   
5.   (princ " \n选择圆: ")
   
6.   (if (and (setq ss (ssget '((0 . "circle"))))
   
7.            (setq pt0 (getpoint "排列起始点: "))
   
8.       )
   
9.     (progn
   
10.       (setq lst (xyp-ss2list ss)
    
11.             lst        (mapcar '(lambda (x) (list x (xyp-DXF 40 x))) lst)
    
12.             lst        (vl-sort lst '(lambda (x y) (< (cadr x) (cadr y))))
    
13.       )
    
14.       (foreach a lst
    
15.         (setq s1  (car a)
    
16.               rr  (cadr a)
    
17.               pt  (xyp-DXF 10 s1)
    
18.               pt0 (xyp-Pt2X pt0 rr)
    
19.         )
    
20.         (xyp-move s1 pt pt0)
    
21.         (setq pt0 (xyp-Pt2X pt0 rr))
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> <br /> (defun c:tt ()<br />   (princ " \n选择圆: ")<br />   (if (and (setq ss (ssget '((0 . "circle"))))<br />            (setq pt0 (getpoint "排列起始点: "))<br />       )<br />     (progn<br />       (setq lst (xyp-ss2list ss)<br />             lst        (mapcar '(lambda (x) (list x (xyp-DXF 40 x))) lst)<br />             lst        (vl-sort lst '(lambda (x y) (< (cadr x) (cadr y))))<br />       )<br />       (foreach a lst<br />         (setq s1  (car a)<br />               rr  (cadr a)<br />               pt  (xyp-DXF 10 s1)<br />               pt0 (xyp-Pt2X pt0 rr)<br />         )<br />         (xyp-move s1 pt pt0)<br />         (setq pt0 (xyp-Pt2X pt0 rr))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

434939575

xyp1964 发表于 2013-12-24 23:06

谢谢院长的指导。这么晚了。还出手相助。真的很感动！

edata

434939575 发表于 2013-12-25 09:27
谢谢院长的指导。这么晚了。还出手相助。真的很感动！

2. ;排列圆.以半径为距离排列圆.有问题.
   
3. ;modfiy by edata @2013-12-25 10:51:17
   
4.     (defun c:tt(/ CEN-10 EN I O_CMD O_OS PT0 PTY RAD-40 SS SS0);局部变量要设置
   
5.     (princ " \n 按大小点选圆");无排序函数,按选择排序
   
6.       (setq o_cmd (getvar "CMDECHO"));保存要更改的变量值
   
7.       (setq o_os (getvar "osmode"));保存要更改的变量值
   
8.      (setvar "CMDECHO" 0);_关闭命令提示
   
9.     (Setvar "osmode" 0);_关闭捕捉
   
10.           (if (setq ss (ssget '((0 . "circle"))))
    
11.           (progn
    
12.           (setq  pt0 (getpoint "排列起始点"));可运行成功
    
13.             (setq i 0)
    
14.             (repeat (sslength ss)
    
15.             (setq ss0 (ssname ss i)
    
16.                    en (entget ss0)
    
17.                 cen-10(cdr (assoc 10 en)) ;pt=圆心坐标
    
18.                 rad-40(cdr (assoc 40 en)) ;pt=圆半径
    
19.             i (1+ i)
    
20.               ); (setq ss0
    
21. ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    
22.               (setq pty(polar cen-10 0 rad-40));获得原来圆的右面点   
    
23.               (setq pt0(polar pt0 0 (+ rad-40 rad-40)));设置新的右边点
    
24. ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    
25. ;;;;------------------------------------------------------------------
    
26. ;;;     (setq  ptz(polar  pt0  pi  rad-40 ) );圆左边点。         
    
27. ;;;     (setq  pty (polar  ptz  0    (* rad-40  2)  ) );圆右边点。
    
28. ;;;         (setq  pt0    pty );圆左边点赋值给pt0 。
    
29. ;------------------------------------------------------------------
    
30.       (command "move" ss0 "" pty pt0 "") ;command
    
31.           ); (repeat
    
32.      )
    
33.         )
    
34.       (and o_cmd (setvar "CMDECHO" o_cmd));恢复更改的变量值
    
35.       (and o_os (setvar "osmode" o_os));恢复更改的变量值
    
36.        )

;排列圆.以半径为距离排列圆.有问题.<br /> ;modfiy by edata @2013-12-25 10:51:17<br />     (defun c:tt(/ CEN-10 EN I O_CMD O_OS PT0 PTY RAD-40 SS SS0);局部变量要设置 <br />     (princ " \n 按大小点选圆");无排序函数,按选择排序<br />       (setq o_cmd (getvar "CMDECHO"));保存要更改的变量值<br />       (setq o_os (getvar "osmode"));保存要更改的变量值<br />      (setvar "CMDECHO" 0);_关闭命令提示<br />     (Setvar "osmode" 0);_关闭捕捉<br />           (if (setq ss (ssget '((0 . "circle"))))<br />           (progn<br />           (setq  pt0 (getpoint "排列起始点"));可运行成功<br />             (setq i 0)<br />             (repeat (sslength ss)<br />             (setq ss0 (ssname ss i)<br />                    en (entget ss0)<br />                 cen-10(cdr (assoc 10 en)) ;pt=圆心坐标<br />                 rad-40(cdr (assoc 40 en)) ;pt=圆半径<br />             i (1+ i)<br />               ); (setq ss0<br /> ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-<br />               (setq pty(polar cen-10 0 rad-40));获得原来圆的右面点    <br />               (setq pt0(polar pt0 0 (+ rad-40 rad-40)));设置新的右边点<br /> ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-<br /> ;;;;------------------------------------------------------------------<br /> ;;;     (setq  ptz(polar  pt0  pi  rad-40 ) );圆左边点。          <br /> ;;;     (setq  pty (polar  ptz  0    (* rad-40  2)  ) );圆右边点。<br /> ;;;         (setq  pt0    pty );圆左边点赋值给pt0 。<br /> ;------------------------------------------------------------------<br />       (command "move" ss0 "" pty pt0 "") ;command <br />           ); (repeat <br />      )<br />         )<br />       (and o_cmd (setvar "CMDECHO" o_cmd));恢复更改的变量值<br />       (and o_os (setvar "osmode" o_os));恢复更改的变量值<br />        )

434939575

edata 发表于 2013-12-25 10:51

谢谢这位朋友热心的帮助。乃冬日里的阳光。再次感谢！

edata

434939575 发表于 2013-12-25 15:44
谢谢这位朋友热心的帮助。乃冬日里的阳光。再次感谢！

2. ;排列圆.以半径为距离排列圆.有问题.
   
3. ;modfiy by edata @2013-12-25 10:51:17
   
4. ;modfiy by edata @2013-12-31 22:32:28
   
5.     (defun c:tt(/ CEN-10 EN I O_CMD O_OS PT0 PTY RAD-40 SS SS0);局部变量要设置
   
6.     (princ " \n 按大小点选圆");无排序函数,按选择排序
   
7.       (setq o_cmd (getvar "CMDECHO"));保存要更改的变量值
   
8.       (setq o_os (getvar "osmode"));保存要更改的变量值
   
9.      (setvar "CMDECHO" 0);_关闭命令提示
   
10.     (Setvar "osmode" 0);_关闭捕捉      
    
11.           (if (setq ss (ssget '((0 . "circle"))))
    
12.           (progn
    
13.           (setq  pt0 (getpoint "\n排列起始点"));可运行成功
    
14.           (setq sk_gds(getdist "\n指定圆间距:"))
    
15.           (or sk_gds (setq sk_gds 10))
    
16.             (setq i 0)
    
17.             (repeat (sslength ss)
    
18.             (setq ss0 (ssname ss i)
    
19.                    en (entget ss0)
    
20.                 cen-10(cdr (assoc 10 en)) ;pt=圆心坐标
    
21.                 rad-40(cdr (assoc 40 en)) ;pt=圆半径
    
22.             i (1+ i)
    
23.               ); (setq ss0
    
24. ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    
25.               (setq pty(polar cen-10 0 rad-40));获得原来圆的右面点   
    
26.               (setq pt0(polar pt0 0 (+ (+ rad-40 rad-40) sk_gds)));设置新的右边点
    
27. ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    
28. ;;;;------------------------------------------------------------------
    
29. ;;;     (setq  ptz(polar  pt0  pi  rad-40 ) );圆左边点。         
    
30. ;;;     (setq  pty (polar  ptz  0    (* rad-40  2)  ) );圆右边点。
    
31. ;;;         (setq  pt0    pty );圆左边点赋值给pt0 。
    
32. ;------------------------------------------------------------------
    
33.       (command "move" ss0 "" pty pt0 ) ;command 我的cad2006 move后无需""结尾
    
34.           ); (repeat
    
35.      )
    
36.         )
    
37.       (and o_cmd (setvar "CMDECHO" o_cmd));恢复更改的变量值
    
38.       (and o_os (setvar "osmode" o_os));恢复更改的变量值
    
39.       (princ)
    
40.        )

;排列圆.以半径为距离排列圆.有问题.<br /> ;modfiy by edata @2013-12-25 10:51:17<br /> ;modfiy by edata @2013-12-31 22:32:28<br />     (defun c:tt(/ CEN-10 EN I O_CMD O_OS PT0 PTY RAD-40 SS SS0);局部变量要设置 <br />     (princ " \n 按大小点选圆");无排序函数,按选择排序<br />       (setq o_cmd (getvar "CMDECHO"));保存要更改的变量值<br />       (setq o_os (getvar "osmode"));保存要更改的变量值<br />      (setvar "CMDECHO" 0);_关闭命令提示<br />     (Setvar "osmode" 0);_关闭捕捉      <br />           (if (setq ss (ssget '((0 . "circle"))))<br />           (progn<br />           (setq  pt0 (getpoint "\n排列起始点"));可运行成功<br />           (setq sk_gds(getdist "\n指定圆间距:"))<br />           (or sk_gds (setq sk_gds 10))<br />             (setq i 0)<br />             (repeat (sslength ss)<br />             (setq ss0 (ssname ss i)<br />                    en (entget ss0)<br />                 cen-10(cdr (assoc 10 en)) ;pt=圆心坐标<br />                 rad-40(cdr (assoc 40 en)) ;pt=圆半径<br />             i (1+ i)<br />               ); (setq ss0<br /> ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-<br />               (setq pty(polar cen-10 0 rad-40));获得原来圆的右面点    <br />               (setq pt0(polar pt0 0 (+ (+ rad-40 rad-40) sk_gds)));设置新的右边点<br /> ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-算法更改=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-<br /> ;;;;------------------------------------------------------------------<br /> ;;;     (setq  ptz(polar  pt0  pi  rad-40 ) );圆左边点。          <br /> ;;;     (setq  pty (polar  ptz  0    (* rad-40  2)  ) );圆右边点。<br /> ;;;         (setq  pt0    pty );圆左边点赋值给pt0 。<br /> ;------------------------------------------------------------------<br />       (command "move" ss0 "" pty pt0 ) ;command 我的cad2006 move后无需""结尾<br />           ); (repeat <br />      )<br />         )<br />       (and o_cmd (setvar "CMDECHO" o_cmd));恢复更改的变量值<br />       (and o_os (setvar "osmode" o_os));恢复更改的变量值<br />       (princ)<br />        )

edata

增加13行 14行
更正32行command函数调用move的语句，我的cad2006无需""结尾
相对增加了全局变量名 sk_gds 默认是10，可以自己更改。
其他暂无调整

434939575

edata 发表于 2013-12-31 22:38
增加13行 14行
更正32行command函数调用move的语句，我的cad2006无需""结尾
相对增加了全局变量名 sk_gd ...

谢谢再次指导。