圆生成特定4处小缺圆

啵浪鼓

選擇了所有圓﹐內含2個直徑1.25的圓,2個直徑0.6325的圓,1個直徑0.53的圓,2個直徑0.47的圓

程序運行后﹐2個直徑為1的圓和2個直徑為0.6的圓未做變化(這3個超過0.6應予以執行)

提示也不對

有 7 个半径小于的圆未转换 (應該是3個0.59以下的圓不轉換)

xyp1964

(defun c:tt ()
  (cmdla0)
  (SETQ DIST (UDIST 7 "" "半径<输入或鼠标直接量取>" DIST nil)
 ss   (ssget '((0 . "CIRCLE")))
 i    -1
 j    0
  )
  (setvar "osmode" 0)
  (while (setq en (ssname ss (setq i (1+ i))))
    (setq ent (entget en)
   d1  (cdr (assoc 40 ent))
    )
    (if (> d1 0.6)
      (progn
 (setq p0 (cdr (assoc 10 ent))
       p1 (polar p0 (* pi 0.25) (- d1 0.18))
       p2 (polar p1 (* pi 1.25) dist)
 )
 (command ".CIRCLE" P1 DIST)
 (command ".trim" en "" p2 "")
 (command "array" (entlast) "" "p" p0 4 360 "y")
      )
      (setq j (1+ j))
    )
  )
  (if (> j 0)
    (princ (strcat "\n有" (itoa j) "个半径小于0.6的圆未转换。"))
  )
  (cmdla1)
)

ZZXXQQ

五楼又改了，再试试。

xyp1964

3. (defun c:tt ()
4.   (cmdla0)
5.   (defun main-pro (/ ss rad i j s1 d1 p0 p1 p2)
6.     (SETQ ss  (ssget '((0 . "CIRCLE")))
7.    rad (/ pi int 1.)
8.    i   -1
9.    j   0
10.     )
11.     (setvar "osmode" 0)
12.     (while (setq s1 (ssname ss (setq i (1+ i))))
13.       (if (> (setq d1 (xyp-get-dxf 40 s1)) rr)
14. (progn
15.    (setq p0 (xyp-get-dxf 10 s1)
16.   p1 (polar p0 rad d1)
17.   p2 (polar p1 (+ rad pi) dist)
18.    )
19.    (command ".CIRCLE" P1 DIST)
20.    (command ".trim" s1 "" p2 "")
21.    (command "array" (entlast) "" "p" p0 int 360 "y")
22. )
23. (setq j (1+ j))
24.       )
25.     )
26.     (if (> j 0)
27.       (princ (strcat "\n有" (itoa j) "个半径小于0.6的圆未转换。"))
28.     )
29.   )
30.   (xyp-initSet '(int dist rr) '(4 1. 0.6))
31.   (setq Ilst '(("int" "数量" "int" "10")
32.         ("dist" "半径" "real" "10")
33.         ("rr" "最小半径" "real" "10")
34.        )
35.   )
36.   (if (= (xyp-Dcl-Init Ilst "【TEST】" t) 1)
37.     (main-pro)
38.   )
39.   (cmdla1)
40. )

(defun c:tt ()   (cmdla0)   (defun main-pro (/ ss rad i j s1 d1 p0 p1 p2)     (SETQ ss  (ssget '((0 . "CIRCLE")))    rad (/ pi int 1.)    i   -1    j   0     )     (setvar "osmode" 0)     (while (setq s1 (ssname ss (setq i (1+ i))))       (if (> (setq d1 (xyp-get-dxf 40 s1)) rr) (progn    (setq p0 (xyp-get-dxf 10 s1)   p1 (polar p0 rad d1)   p2 (polar p1 (+ rad pi) dist)    )    (command ".CIRCLE" P1 DIST)    (command ".trim" s1 "" p2 "")    (command "array" (entlast) "" "p" p0 int 360 "y") ) (setq j (1+ j))       )     )     (if (> j 0)       (princ (strcat "\n有" (itoa j) "个半径小于0.6的圆未转换。"))     )   )   (xyp-initSet '(int dist rr) '(4 1. 0.6))   (setq Ilst '(("int" "数量" "int" "10")         ("dist" "半径" "real" "10")         ("rr" "最小半径" "real" "10")        )   )   (if (= (xyp-Dcl-Init Ilst "【TEST】" t) 1)     (main-pro)   )   (cmdla1) )

啵浪鼓

5楼的程序测试ok,如果所选择的圆内有线或是其它,有可能在trim时会乱删或是删不断!

如果像xyp1964版主的程序一样,增加数量的写入(目前程序默认为4个),另外增加指定小圆的大小(目前程序是0.2的直径的圆),以及指定凸出圆的距离(目前程序是凸出0.02mm),这个程序那就非常大要写好多内容了吧,哈哈,不写了,省得麻烦,够用就行,如有需求人工干预去处理吧!

再次感谢ZZXXQQ版主不厌其烦的帮助!

龙龙仔

啵浪鼓发表于2009-10-16 0:35:005楼的程序测试ok,如果所选择的圆内有线或是其它,有可能在trim时会乱删或是删不断!如果像xyp1964版主的程序一样,增加数量的写入(目前程序默认为4个),另外增加指定小圆的大小(目前程序是0.2的直径

程序應可把trim時的亂像改正(雙元表),並處理理論至小圓0.48左右吧!

龙龙仔

3. ;;LUCAS
4. (defun SS_LAI (EN / SS)
5.   (setq SS (ssadd))
6.   (while (setq EN (entnext EN))
7.     (if (not (member (cdr (assoc 0 (entget EN)))
8.        '("ATTRIB" "VERTEX" "SEQEND")
9.       )
10. )
11.       (ssadd EN SS)
12.     )
13.   )
14.   SS
15. )
16. (defun C:TTT_LAI (/  A ANG    B      C      D     D1
17.     DZB  EN EN1    ENT    HOLDECHO     HOLDOSMODE
18.     HOLDPTYPE I      P1     SS     WW
19.    )
20.   (setq HOLDECHO (getvar "CMDECHO"))
21.   (setq HOLDOSMODE (getvar "OSMODE"))
22.   (setvar "CMDECHO" 0)
23.   (setvar "OSMODE" 0)
24.   (setq HOLDPTYPE (getvar "PLINETYPE"))
25.   (setvar "PLINETYPE" 2)
26.   (command "_.UNDO" "BE")
27.   (if (setq SS (ssget '((0 . "CIRCLE")
28.    ;;(8 . "*_W")
29.    ;;(62 . 1)
30.    ;;(-4 . ">=")
31.    ;;(40 . 0.24)
32.          )
33.         )
34.       )
35.     (progn
36.       (if (= (setq A (getdist "\n凸出量<0.02>: ")) NIL)
37. (setq A 0.02)
38.       )
39.       (if (= (setq B (getdist "\n小缺口半徑<0.2>: ")) NIL)
40. (setq B 0.2)
41.       )
42.       (if (= (setq C (getint "\n小缺口數量<4>: ")) NIL)
43. (setq C 4)
44.       )
45.       (if (= (setq D (getangle "\n小缺口起始角度<45度>: ")) NIL)
46. (setq D (/ pi 4))
47.       )
48.       (setq I 0
49.      ANG (/ (* 2 pi) C)
50.       )
51.       (repeat (sslength SS)
52. (setq EN1 (entlast)
53.        EN  (ssname SS I)
54.        ENT (entget EN)
55.        D1  (cdr (assoc 40 ENT))
56.        DZB (cdr (assoc 10 ENT))
57.        P1  (polar DZB D (- D1 (- B A)))
58. )
59. (command "_.CIRCLE" P1 B)
60. (command "_.trim"
61.    EN
62.    ""
63.    (list (entlast) (polar P1 (+ D pi) D1))
64.    ""
65. )
66. (command "_.array" (entlast) "" "p" DZB C 360 "y")
67. (setq WW (SS_LAI EN1))
68. (repeat C
69.    (command "_.trim"
70.      WW
71.      ""
72.      (list EN (polar DZB (setq D (- D ANG)) D1))
73.      ""
74.    )
75. )
76. (command "_.pedit" "M" EN (SS_LAI EN1) "" "Y" "j" "0" "")
77. (setq I (1+ I))
78.       )
79.     )
80.   )
81.   (command "_.UNDO" "E")
82.   (setvar "PLINETYPE" HOLDPTYPE)
83.   (setvar "OSMODE" HOLDOSMODE)
84.   (setvar "CMDECHO" HOLDECHO)
85.   (princ)
86. )

;;LUCAS (defun SS_LAI (EN / SS)   (setq SS (ssadd))   (while (setq EN (entnext EN))     (if (not (member (cdr (assoc 0 (entget EN)))        '("ATTRIB" "VERTEX" "SEQEND")       ) )       (ssadd EN SS)     )   )   SS ) (defun C:TTT_LAI (/  A ANG    B      C      D     D1     DZB  EN EN1    ENT    HOLDECHO     HOLDOSMODE     HOLDPTYPE I      P1     SS     WW    )   (setq HOLDECHO (getvar "CMDECHO"))   (setq HOLDOSMODE (getvar "OSMODE"))   (setvar "CMDECHO" 0)   (setvar "OSMODE" 0)   (setq HOLDPTYPE (getvar "PLINETYPE"))   (setvar "PLINETYPE" 2)   (command "_.UNDO" "BE")   (if (setq SS (ssget '((0 . "CIRCLE")    ;;(8 . "*_W")    ;;(62 . 1)    ;;(-4 . ">=")    ;;(40 . 0.24)          )         )       )     (progn       (if (= (setq A (getdist "\n凸出量<0.02>: ")) NIL) (setq A 0.02)       )       (if (= (setq B (getdist "\n小缺口半徑<0.2>: ")) NIL) (setq B 0.2)       )       (if (= (setq C (getint "\n小缺口數量<4>: ")) NIL) (setq C 4)       )       (if (= (setq D (getangle "\n小缺口起始角度<45度>: ")) NIL) (setq D (/ pi 4))       )       (setq I 0      ANG (/ (* 2 pi) C)       )       (repeat (sslength SS) (setq EN1 (entlast)        EN  (ssname SS I)        ENT (entget EN)        D1  (cdr (assoc 40 ENT))        DZB (cdr (assoc 10 ENT))        P1  (polar DZB D (- D1 (- B A))) ) (command "_.CIRCLE" P1 B) (command "_.trim"    EN    ""    (list (entlast) (polar P1 (+ D pi) D1))    "" ) (command "_.array" (entlast) "" "p" DZB C 360 "y") (setq WW (SS_LAI EN1)) (repeat C    (command "_.trim"      WW      ""      (list EN (polar DZB (setq D (- D ANG)) D1))      ""    ) ) (command "_.pedit" "M" EN (SS_LAI EN1) "" "Y" "j" "0" "") (setq I (1+ I))       )     )   )   (command "_.UNDO" "E")   (setvar "PLINETYPE" HOLDPTYPE)   (setvar "OSMODE" HOLDOSMODE)   (setvar "CMDECHO" HOLDECHO)   (princ) )

啵浪鼓

龙版主的程序太好了,正是想要的,修正了乱剪的现象了,增加了小缺口半径/凸出值/数量/角度的设置,可谓人性化多了!

程序中省略的(62 . 1)是什么,像素表里好像没这个.

程序能不能再追加记住上次的设定值,打开的新图默认A/B/C/D的值为程序目前的设定,如果用户进行了输入,需记住此次的值

如果要写出错功能要写是不是很难,比如用户选了很多圆,且不在同一屏幕下,无法知道程序运行后的最终效果,出错了可能用户无法知道,所选的圆与设定的值冲突,如直径为0.5的圆设置的缺圆的数量是8,那就无法生成了,

一种想法:如果将A/B/C/D这4项选好以后,如设置的值与所选的圆冲突,就出警示"所选圆与设置不匹配,N乎略,<Y继续>"此时的窗口缩放到当前问题圆下,等待用户给出回应.

出错程序可能很难,怎样让程序判断是否冲突,我也没办法判断所设的值是否冲突,只有结果出来了才知道不对,哈哈哈...我看这个出错还是不去写了,麻烦了!

啵浪鼓

程序能不能再追加记住上次的设定值,打开的新图默认A/B/C/D的值为程序目前的设定,如果用户进行了输入,需记住此次的值

龙龙仔

3. ;;(62 . 1)是顏色
4. ;;LUCAS
5. (defun SS_LAI (EN / SS)
6.   (setq SS (ssadd))
7.   (while (setq EN (entnext EN))
8.     (if (not (member (cdr (assoc 0 (entget EN)))
9.        '("ATTRIB" "VERTEX" "SEQEND")
10.       )
11. )
12.       (ssadd EN SS)
13.     )
14.   )
15.   SS
16. )
18. (defun C:TTTT_LAI (/   A  ANG B      C      D      D1
19.      DZB   EN  EN1 ENT    HOLDECHO      HOLDOSMODE
20.      HOLDPTYPE  I P1     SS     WW
21.     )
22.   (setq HOLDECHO (getvar "CMDECHO"))
23.   (setq HOLDOSMODE (getvar "OSMODE"))
24.   (setvar "CMDECHO" 0)
25.   (setvar "OSMODE" 0)
26.   (setq HOLDPTYPE (getvar "PLINETYPE"))
27.   (setvar "PLINETYPE" 2)
28.   (command "_.UNDO" "BE")
29.   (if (null AA)
30.     (setq AA 0.02
31.    BB 0.2
32.    CC 4
33.    DD (/ pi 4)
34.     )
35.   )
36.   (if (setq SS (ssget '((0 . "CIRCLE")
37.    ;;(8 . "*_W")
38.    ;;(62 . 1)
39.    ;;(-4 . ">=")
40.    ;;(40 . 0.24)
41.          )
42.         )
43.       )
44.     (progn
45.       (if (= (setq A (getdist (strcat "\n凸出量<" (rtos AA) ">: ")))
46.       NIL
47.    )
48. (setq A AA)
49. (setq AA A)
50.       )
51.       (if
52. (= (setq B (getdist (strcat "\n小缺口半徑<" (rtos BB) ">: ")))
53.     NIL
54. )
55.   (setq B BB)
56.   (setq BB B)
57.       )
58.       (if
59. (= (setq C (getint (strcat "\n小缺口數量<" (rtos CC) ">: ")))
60.     NIL
61. )
62.   (setq C CC)
63.   (setq CC C)
64.       )
65.       (if
66. (= (setq
67.       D (getdist (strcat "\n小缺口起始角度<"
68.     (rtos (/ (* DD 180) pi))
69.     ">: "
70.    )
71.         )
72.     )
73.     NIL
74. )
75.   (setq D (/ (* DD 180) pi))
76.   (setq DD (/ (* D pi) 180))
77.       )
78.       (setq I 0
79.      ANG (/ (* 2 pi) C)
80.       )
81.       (repeat (sslength SS)
82. (setq EN1 (entlast)
83.        EN  (ssname SS I)
84.        ENT (entget EN)
85.        D1  (cdr (assoc 40 ENT))
86.        DZB (cdr (assoc 10 ENT))
87.        P1  (polar DZB D (- D1 (- B A)))
88. )
89. (command "_.CIRCLE" P1 B)
90. (command "_.trim"
91.    EN
92.    ""
93.    (list (entlast) (polar P1 (+ D pi) D1))
94.    ""
95. )
96. (command "_.array" (entlast) "" "p" DZB C 360 "y")
97. (setq WW (SS_LAI EN1))
98. (repeat C
99.    (command "_.trim"
100.      WW
101.      ""
102.      (list EN (polar DZB (setq D (- D ANG)) D1))
103.      ""
104.    )
105. )
106. (command "_.pedit" "M" EN (SS_LAI EN1) "" "Y" "j" "0" "")
107. (setq I (1+ I))
108.       )
109.     )
110.   )
111.   (command "_.UNDO" "E")
112.   (setvar "PLINETYPE" HOLDPTYPE)
113.   (setvar "OSMODE" HOLDOSMODE)
114.   (setvar "CMDECHO" HOLDECHO)
115.   (princ)
116. )

;;(62 . 1)是顏色 ;;LUCAS (defun SS_LAI (EN / SS)   (setq SS (ssadd))   (while (setq EN (entnext EN))     (if (not (member (cdr (assoc 0 (entget EN)))        '("ATTRIB" "VERTEX" "SEQEND")       ) )       (ssadd EN SS)     )   )   SS ) (defun C:TTTT_LAI (/   A  ANG B      C      D      D1      DZB   EN  EN1 ENT    HOLDECHO      HOLDOSMODE      HOLDPTYPE  I P1     SS     WW     )   (setq HOLDECHO (getvar "CMDECHO"))   (setq HOLDOSMODE (getvar "OSMODE"))   (setvar "CMDECHO" 0)   (setvar "OSMODE" 0)   (setq HOLDPTYPE (getvar "PLINETYPE"))   (setvar "PLINETYPE" 2)   (command "_.UNDO" "BE")   (if (null AA)     (setq AA 0.02    BB 0.2    CC 4    DD (/ pi 4)     )   )   (if (setq SS (ssget '((0 . "CIRCLE")    ;;(8 . "*_W")    ;;(62 . 1)    ;;(-4 . ">=")    ;;(40 . 0.24)          )         )       )     (progn       (if (= (setq A (getdist (strcat "\n凸出量<" (rtos AA) ">: ")))       NIL    ) (setq A AA) (setq AA A)       )       (if (= (setq B (getdist (strcat "\n小缺口半徑<" (rtos BB) ">: ")))     NIL )   (setq B BB)   (setq BB B)       )       (if (= (setq C (getint (strcat "\n小缺口數量<" (rtos CC) ">: ")))     NIL )   (setq C CC)   (setq CC C)       )       (if (= (setq       D (getdist (strcat "\n小缺口起始角度<"     (rtos (/ (* DD 180) pi))     ">: "    )         )     )     NIL )   (setq D (/ (* DD 180) pi))   (setq DD (/ (* D pi) 180))       )       (setq I 0      ANG (/ (* 2 pi) C)       )       (repeat (sslength SS) (setq EN1 (entlast)        EN  (ssname SS I)        ENT (entget EN)        D1  (cdr (assoc 40 ENT))        DZB (cdr (assoc 10 ENT))        P1  (polar DZB D (- D1 (- B A))) ) (command "_.CIRCLE" P1 B) (command "_.trim"    EN    ""    (list (entlast) (polar P1 (+ D pi) D1))    "" ) (command "_.array" (entlast) "" "p" DZB C 360 "y") (setq WW (SS_LAI EN1)) (repeat C    (command "_.trim"      WW      ""      (list EN (polar DZB (setq D (- D ANG)) D1))      ""    ) ) (command "_.pedit" "M" EN (SS_LAI EN1) "" "Y" "j" "0" "") (setq I (1+ I))       )     )   )   (command "_.UNDO" "E")   (setvar "PLINETYPE" HOLDPTYPE)   (setvar "OSMODE" HOLDOSMODE)   (setvar "CMDECHO" HOLDECHO)   (princ) )