cAD里怎么自动做逃角？

有心人人 · 发表于 2011-8-24 14:33

cAD里怎么自动做逃角？

彼岸花落 · 发表于 2011-8-24 15:00

逃角是神马

仿心 · 发表于 2011-8-24 15:40

逃角？

Jerson · 发表于 2011-9-10 09:23

做逃角？是这个避空角吗？

●﹎●熊寳¨ · 发表于 2011-9-17 15:22

彼岸花落发表于 2011-8-24 15:00 2 F3 Q8 p, j2 ^0 ]& k" L: J, N! f: g
逃角是神马

逃角是清根

tgdoing · 发表于 2012-3-7 12:25

不明白楼主的意思。。。

djh1006 · 发表于 2014-9-17 13:54

需要autolisp
;djh_194.lsp
;逃角_四方形自動_不修剪
(defun c:djh_194(/ OSP CCLR CLTP CLAY PTB CTM CVR R1 COL1 EN PP_LST J EN_CAR EN_DATA NN EN_LAYER EN_COLOR EN_LINETYPE PP PTYP PT1 PT1X PT1Y PT2 PT2X PT2Y PT3 PT3X PT3Y PT4 PT4X PT4Y PL1 PR1 PR2 PL2 PTBX PTBY P1 P2 P3 P4 L1 L2 L3 A0 A45 A90 A135 A180 A225 A270 A315 PT11 PT12 PT13 PT1C PT1R1 PT1R2 PT21 PT22 PT23 PT2C PT2R1 PT2R2 PT21R PT22R PT31 PT32 PT33 PT3C PT3R1 PT3R2 PT31R PT32R PT41 PT42 PT43 PT4C PT4R1 PT4R2 PT41R PT42R PTW11 PT212 PTW21 PTW22 PTW31 PTW32 PTW41 PTW42 )
  (graphscr)
  (setvar "CMDECHO" 0)
  (setq
OSP (getvar "OSMODE")
CCLR (getvar "CECOLOR")
CLTP (getvar "CELTYPE")
CLAY (getvar "CLAYER")
  )
  (setq
PTB (getvar "INSBASE")
CVR (GETVAR "ACADVER")
  )
  (if (= 逃角半徑R nil)(setq 逃角半徑R 4.6))
  (if (= 逃示量C nil)(setq 逃示量C 0))
  (cond
((/= 逃角半徑R nil)
   (setq
      RR (strcat "\n逃角半徑 <" (rtos 逃角半徑R) ">：")
      R1 (getreal RR)
   )  ;end setq
   (if (= R1 nil) (setq R1 逃角半徑R))
)  ;end )
((= 逃角半徑R nil)
   (setq R1 (getreal "\n逃角半徑： "))
   (if (= R1 nil)(exit))
)  ;end )
  )  ;end cond
  (cond
((/= 逃示量C nil)
   (setq
      LL (strcat "\n逃示量 <" (rtos 逃示量C) ">：")
      COL1 (getreal LL)
   )  ;end setq
   (if (= COL1 nil) (setq COL1 逃示量C))
)  ;end )
((= 逃示量C nil)
   (setq COL1 (getreal "\n逃示量： "))
)  ;end )
  )  ;end cond
  (if (< COL1 0) (setq COL1 (* COL1 -1)))
  (while (>= COL1 R1)
(princ "逃示量不可大於半徑!!!")
(setq COL1 (getreal "\n逃示量："))
(if (= COL1 nil)(exit))
  )
  (setq EN (entsel "\n選取聚合線："))
  (while (/= (cdr (assoc 0 (entget (car EN)))) "LWPOLYLINE")
(princ "選取的物件不是聚合線或未串接！")
(setq EN (entsel "\n選取聚合線："))
  )
  (while (/= EN nil)(progn
(setq PP_LST '() J 0)
(setq
   EN_CAR (car EN)
   EN_DATA (entget EN_CAR)
   NN (length EN_DATA)
   EN_LAYER (cdr (assoc 8 EN_DATA))
   EN_COLOR (cdr (assoc 62 EN_DATA))
   EN_LINETYPE (cdr (assoc 6 EN_DATA))
)
(if (/= EN_COLOR nil) (setq EN_COLOR (rtos EN_COLOR)))
(if (= EN_COLOR nil) (setq EN_COLOR "BYLAYER"))
(repeat NN
   (setq PP (nth J EN_DATA))
   (setq PTYP (car PP))
   (if (= PTYP 10) (setq PP_LST (cons (cdr PP) PP_LST)))
   (setq J (1+ J))
)
(setq
   PP_LST (reverse PP_LST)
   PT1 (nth 0 PP_LST)
   PT1X (car PT1)
   PT1Y (cadr PT1)
   PT2 (nth 1 PP_LST)
   PT2X (car PT2)
   PT2Y (cadr PT2)
   PT3 (nth 2 PP_LST)
   PT3X (car PT3)
   PT3Y (cadr PT3)
   PT4 (nth 3 PP_LST)
   PT4X (car PT4)
   PT4Y (cadr PT4)
)
(cond
   ((and (< PT1X PT2X) (> PT1Y PT4Y))
      (setq
      PL1 PT1
      PR1 PT2
      PR2 PT3
      PL2 PT4
      )
   )
   ((and (> PT1X PT2X) (> PT1Y PT4Y))
      (setq
      PL1 PT2
      PR1 PT1
      PR2 PT4
      PL2 PT3
      )
   )
   ((and (> PT1X PT2X) (< PT1Y PT4Y))
      (setq
      PL1 PT3
      PR1 PT4
      PR2 PT1
      PL2 PT2
      )
   )
   ((and (< PT1X PT2X) (< PT1Y PT4Y))
      (setq
      PL1 PT4
      PR1 PT3
      PR2 PT2
      PL2 PT1
      )
   )
   ((and (> PT1X PT4X) (> PT1Y PT2Y))
      (setq
      PL1 PT4
      PR1 PT1
      PR2 PT2
      PL2 PT3
      )
   )
   ((and (> PT1X PT4X) (< PT1Y PT2Y))
      (setq
      PL1 PT3
      PR1 PT2
      PR2 PT1
      PL2 PT4
      )
   )
   ((and (< PT1X PT4X) (< PT1Y PT2Y))
      (setq
      PL1 PT2
      PR1 PT3
      PR2 PT4
      PL2 PT1
      )
   )
   ((and (< PT1X PT4X) (> PT1Y PT2Y))
      (setq
      PL1 PT1
      PR1 PT4
      PR2 PT3
      PL2 PT2
      )
   )
)
(setq
   PT1X (car PL1)
   PT1Y (cadr PL1)
   PT2X (car PR1)
   PT2Y (cadr PR1)
   PT3X (car PR2)
   PT3Y (cadr PR2)
   PT4X (car PL2)
   PT4Y (cadr PL2)
   PTBX (car PTB)
   PTBY (cadr PTB)
   P1 (list (+ PT1X PTBX) (+ PT1Y PTBY))
   P2 (list (+ PT2X PTBX) (+ PT2Y PTBY))
   P3 (list (+ PT3X PTBX) (+ PT3Y PTBY))
   P4 (list (+ PT4X PTBX) (+ PT4Y PTBY))
   L1 (distance P1 P2)
   L2 (distance P2 P3)
   L3 (* (* R1 2.0) (sin (/ (* 45 PI) 180)))
   A0 0
   A45 (/ (* 45 PI) 180)
   A90 (/ (* 90 PI) 180)
   A135 (/ (* 135 PI) 180)
   A180 (/ (* 180 PI) 180)
   A225 (/ (* 225 PI) 180)
   A270 (/ (* 270 PI) 180)
   A315 (/ (* 315 PI) 180)
)
(while (or (<= (- L1 (* L3 2.0)) 0) (<= (- L2 (* L3 2.0)) 0))
   (setvar "CMDECHO" OCE)
   (princ "逃角R量太大，超過圖形")
   (exit)
)
(setq
   PT11 (polar P1 A0 (/ (- R1 COL1) 2.0))
   PT12 (polar P1 A270 (/ (- R1 COL1) 2.0))
   PT13 (polar P1 A315 (+ R1 (- R1 COL1)))
   PT1C (polar P1 A315 (- R1 COL1))
   PT1R1 (polar PT1C A90 R1)
   PT1R2 (polar PT1C A180 R1)
   PT11R (polar P1 A0 (* R1 2.0))
   PT12R (polar P1 A270 (* R1 2.0))
   PT21 (polar P2 A180 (/ (- R1 COL1) 2.0))
   PT22 (polar P2 A270 (/ (- R1 COL1) 2.0))
   PT23 (polar P2 A225 (+ R1 (- R1 COL1)))
   PT2C (polar P2 A225 (- R1 COL1))
   PT2R1 (polar PT2C A90 R1)
   PT2R2 (polar PT2C A0 R1)
   PT21R (polar P2 A180 (* R1 2.0))
   PT22R (polar P2 A270 (* R1 2.0))
   PT31 (polar P3 A180 (/ (- R1 COL1) 2.0))
   PT32 (polar P3 A90 (/ (- R1 COL1) 2.0))
   PT33 (polar P3 A135 (+ R1 (- R1 COL1)))
   PT3C (polar P3 A135 (- R1 COL1))
   PT3R1 (polar PT3C A0 R1)
   PT3R2 (polar PT3C A270 R1)
   PT31R (polar P3 A90 (* R1 2.0))
   PT32R (polar P3 A180 (* R1 2.0))
   PT41 (polar P4 A0 (/ (- R1 COL1) 2.0))
   PT42 (polar P4 A90 (/ (- R1 COL1) 2.0))
   PT43 (polar P4 A45 (+ R1 (- R1 COL1)))
   PT4C (polar P4 A45 (- R1 COL1))
   PT4R1 (polar PT4C A180 R1)
   PT4R2 (polar PT4C A270 R1)
   PT41R (polar P4 A90 (* R1 2.0))
   PT42R (polar P4 A0 (* R1 2.0))
   PTW11 (polar P1 A135 (* R1 3.0))
   PTW32 (polar P3 A315 (* R1 3.0))
   逃角半徑R R1
   逃示量C COL1
)
(command "UNDO" "BE")
(setvar "CLAYER" EN_LAYER)
(setvar "CECOLOR" "200")
(setvar "OSMODE" 0)
(command "ZOOM" PTW11 PTW32)
(setvar "CELTYPE" "PHANTOM")
(command "CIRCLE" PT1C R1)
(command "CIRCLE" PT2C R1)
(command "CIRCLE" PT3C R1)
(command "CIRCLE" PT4C R1)
(command "ZOOM" "P")
)
(setvar "OSMODE" OSP)
(setvar "CECOLOR" CCLR)
(setvar "CELTYPE" CLTP)
(setvar "CLAYER" CLAY)
(command "UNDO" "E")
(setq EN (entsel "\n選取聚合線："))
(while (and (/= EN nil)(/= (cdr (assoc 0 (entget (car EN)))) "LWPOLYLINE"))
   (princ "選取的物件不是聚合線或未串接！")
   (setq EN (entsel "\n選取聚合線："))
)
  )
  (princ)
)

ANY660 · 发表于 2014-10-6 19:41

逃角应指清角或避空角（因为逃孔指的就是像镶件挂台的沉孔这样的特征）

李继明 · 发表于 2015-5-18 16:59

下载（燕秀工具箱）快捷键： MK

青华杨老师 · 发表于 2015-7-13 14:02

燕秀找到辟空角功能，找到后按提示即可找到你的逃角

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