【工具】圆或者点转换成面包圈

newer

1. (defun c:xdtb_cp2donut (/ cen ss v x)
   
2.   (xdrx-begin)
   
3.   (xd::var:getdouble "#xd-var-global-radius1" 0.0)
   
4.   (if (setq
   
5.         v (getreal
   
6.             (xdrx-prompt "\n输入内径<" #xd-var-global-radius1 ">:" t)
   
7.           )
   
8.       )
   
9.     (xd::var:setdouble "#xd-var-global-radius1" (abs v))
   
10.   )
    
11.   (xd::var:getdouble "#xd-var-global-radius2" 1.0)
    
12.   (if (setq v (getreal (xdrx-prompt
    
13.                          "\n输入外径（0取圆直径)<"
    
14.                          #xd-var-global-radius2
    
15.                          ">:"
    
16.                          t
    
17.                        )
    
18.               )
    
19.       )
    
20.     (xd::var:setdouble "#xd-var-global-radius2" (abs v))
    
21.   )
    
22.   (if (setq ss (xdrx-ssget
    
23.                  "\n选择要生成圆环的圆或者点实体<退出>:"
    
24.                  '((0 . "circle,point"))
    
25.                )
    
26.       )
    
27.     (progn
    
28.       (mapcar
    
29.         '(lambda (x)
    
30.            (if
    
31.              (or (and (xdrx-object-iskindof x "point")
    
32.                       (not (equal #xd-var-global-radius2 0.0 1e-4))
    
33.                       (> #xd-var-global-radius2 #xd-var-global-radius1)
    
34.                       (setq cen (xdrx-getpropertyvalue x "Position"))
    
35.                  )
    
36.                  (and (xdrx-object-iskindof x "circle")
    
37.                       (setq #xd-var-global-radius2
    
38.                              (if
    
39.                                (equal #xd-var-global-radius2
    
40.                                       0.0
    
41.                                       1e-4
    
42.                                )
    
43.                                 (xdrx-getpropertyvalue
    
44.                                   x
    
45.                                   "Diameter"
    
46.                                 )
    
47.                                 #xd-var-global-radius2
    
48.                              )
    
49.                       )
    
50.                       (> #xd-var-global-radius2 #xd-var-global-radius1)
    
51.                       (setq cen (xdrx-getpropertyvalue x "center"))
    
52.                  )
    
53.              )
    
54.               (progn (xdrx-donut-make
    
55.                        cen
    
56.                        #xd-var-global-radius1
    
57.                        #xd-var-global-radius2
    
58.                      )
    
59.                      (xdrx-entity-delete x)
    
60.               )
    
61.            )
    
62.          )
    
63.         (xdrx-pickset->ents ss)
    
64.       )
    
65.     )
    
66.   )
    
67.   (xdrx-end)
    
68.   (princ)
    
69. )
    
70. 
    

(defun c:xdtb_cp2donut (/ cen ss v x)<br />   (xdrx-begin)<br />   (xd::var:getdouble "#xd-var-global-radius1" 0.0)<br />   (if (setq<br />         v (getreal<br />             (xdrx-prompt "\n输入内径<" #xd-var-global-radius1 ">:" t)<br />           )<br />       )<br />     (xd::var:setdouble "#xd-var-global-radius1" (abs v))<br />   )<br />   (xd::var:getdouble "#xd-var-global-radius2" 1.0)<br />   (if (setq v (getreal (xdrx-prompt<br />                          "\n输入外径（0取圆直径)<"<br />                          #xd-var-global-radius2<br />                          ">:"<br />                          t<br />                        )<br />               )<br />       )<br />     (xd::var:setdouble "#xd-var-global-radius2" (abs v))<br />   )<br />   (if (setq ss (xdrx-ssget<br />                  "\n选择要生成圆环的圆或者点实体<退出>:"<br />                  '((0 . "circle,point"))<br />                )<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (if<br />              (or (and (xdrx-object-iskindof x "point")<br />                       (not (equal #xd-var-global-radius2 0.0 1e-4))<br />                       (> #xd-var-global-radius2 #xd-var-global-radius1)<br />                       (setq cen (xdrx-getpropertyvalue x "Position"))<br />                  )<br />                  (and (xdrx-object-iskindof x "circle")<br />                       (setq #xd-var-global-radius2<br />                              (if<br />                                (equal #xd-var-global-radius2<br />                                       0.0<br />                                       1e-4<br />                                )<br />                                 (xdrx-getpropertyvalue<br />                                   x<br />                                   "Diameter"<br />                                 )<br />                                 #xd-var-global-radius2<br />                              )<br />                       )<br />                       (> #xd-var-global-radius2 #xd-var-global-radius1)<br />                       (setq cen (xdrx-getpropertyvalue x "center"))<br />                  )<br />              )<br />               (progn (xdrx-donut-make<br />                        cen<br />                        #xd-var-global-radius1<br />                        #xd-var-global-radius2<br />                      )<br />                      (xdrx-entity-delete x)<br />               )<br />            )<br />          )<br />         (xdrx-pickset->ents ss)<br />       )<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />