等宽倒角圆角

elitefish · 发表于 2017-10-11 10:39

2006CAD 对等宽多线段和直线倒角圆角后会将最终的多线段的宽度设为之前多线段宽度，新版CAD取消了这个功能，本来想是什么变量控制，但似乎没找到。于是写了个等宽倒角和等宽圆角，倒角后，线宽会随最先选择的多线段宽度[EF_CHAMFER]等宽倒角.LSP

序号

代码

01.
02.
03.
04.
05.
06.
07.
08.
09.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

;等宽倒角
(defun C:EF_CHAMFER ( / e ename pt edata echo)
  (setq echo (getvar 'cmdecho))
  (if (and (setq e (entsel))
   (setq pt (cadr e))
   (setq ename (car e))
   (setq edata (entget ename))
   (setvar 'cmdecho 1)
   )
(if (and (= (cdr (assoc 0 edata)) "LWPOLYLINE")
      (setq w (cdr (assoc 43 edata)))
      )
   (progn
(command "CHAMFER" (vlax-curve-getClosestPointTo ename pt))
(while (/= 0 (getvar 'CMDACTIVE)) (command pause))
(command "PEDIT" ename "W" w "")
(setvar 'cmdecho echo)
)
   (progn
(command "CHAMFER" e)
(setvar 'cmdecho echo)
)
   )
)
  (princ)
  )

[EF_FILLET]等宽圆角.LSP

序号

代码

01.
02.
03.
04.
05.
06.
07.
08.
09.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

;等宽圆角
(defun C:EF_FILLET ( / e ename edata echo pt)
  (setq echo (getvar 'cmdecho))
  (if (and (setq e (entsel))
   (setq pt (cadr e))
   (setq ename (car e))
   (setq edata (entget ename))
   (setvar 'cmdecho 1)
   )
(if (and (= (cdr (assoc 0 edata)) "LWPOLYLINE")
      (setq w (cdr (assoc 43 edata)))
      )
   (progn
(command "FILLET" (vlax-curve-getClosestPointTo ename pt))
(while (/= 0 (getvar 'CMDACTIVE)) (command pause))
(command "PEDIT" ename "W" w "")
(setvar 'cmdecho echo)
)
   (progn
(command "FILLET" e)
(setvar 'cmdecho echo)
)
   )
)
  (princ)
  )

fan_zh · 发表于 2017-10-11 17:27

学习收藏了

elitefish · 发表于 2017-10-11 23:42

似乎 (command "CHAMFER"） (command "fillet") 就可以了不用写这么多了

天宇飞翔12 · 发表于 2021-8-23 12:21

找好久了，谢谢

LYC688 · 发表于 2021-12-28 07:33

666666666666666666666666

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

[源码] 等宽倒角 圆角

[源码] 等宽倒角圆角