圆生成特定4处小缺圆

啵浪鼓 · 发表于 2009-10-15 12:43:00

選擇了所有圓﹐內含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 · 发表于 2009-10-15 17:15:00

(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 · 发表于 2009-10-15 19:44:00

五楼又改了，再试试。

xyp1964 · 发表于 2009-10-15 21:45:00

(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)
)

啵浪鼓 · 发表于 2009-10-16 00:35:00

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

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

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

龙龙仔 · 发表于 2009-10-16 07:57:00

本帖最后由作者于 2009-10-19 17:27:21 编辑

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

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

龙龙仔 · 发表于 2009-10-19 17:29:00

;;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)
)

;;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)
)

啵浪鼓 · 发表于 2009-10-20 00:56:00

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

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

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

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

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

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

啵浪鼓 · 发表于 2009-10-24 11:56:00

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

龙龙仔 · 发表于 2009-10-24 16:59:00

;;(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)
)

;;(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)
)

账号		自动登录	找回密码
密码			注册

[基础] 圆生成特定4处小缺圆

本帖子中包含更多资源

本帖子中包含更多资源