批量多段线灵活倒角（倒内角、倒外角）

Lispboy · 发表于 2016-10-8 09:10:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2016-10-8 09:10 编辑

需要去通用LISP函数库下载函数：
http://bbs.xdcad.net/thread-671362-1-1.html
http://bbs.xdcad.net/thread-705702-1-1.html

[sell=5]

(defun c:XDTB_PLineFillet (/ #dis #div _isclose bound dis div e gap ge
ge1 i intv keyword len pts sec sec1 sec2 ss
x
)
(defun _setdis (keyword)
(cond
((= keyword "SE")
(if (setq r (getreal (xdrx_prompt "\n请输入倒角半径<" #radius ">:" t)))
(setq #radius r)
)
)
((= keyword "BE")
(if (setq mode (getint (xdrx_prompt "\n请输入倒角方式[所有角(0)/只倒内角(1)/只倒外角(2)]<"
#mode ">:" t
)
)
)
(setq #mode mode)
)
)
)
(xdrx_prompt "\n当前设置：倒角方式(*" (cond
((= #mode 0)
"所有角"
)
((= #mode 1)
"只倒内角"
)
(t
"只倒外角"
)
) "*)/半径(" #radius ")"
)
)
(defun _fillet (e mode radius)
(cond
((= mode 0)
(setq gr (apply 'append gr))
(setq gr (vl-sort gr '(lambda(x y)(< x y))))
)
((= mode 1)
(setq gr (car gr))
)
((= mode 2)
(setq gr (last gr))
)
)
(setq i 0)
(mapcar
'(lambda (index)
(XD::Polyline:AddFillet e (+ i index) "F" radius 1.0)
(setq i (1+ i))
)
gr
)
)
(xdrx_begin)
(if (not #mode)
(setq #mode 0)
)
(if (not #radius)
(setq #radius 10.0)
)
(xdrx_prompt "\n当前设置：倒角方式(*" (cond
((= #mode 0)
"所有角"
)
((= #mode 1)
"只倒内角"
)
(t
"只倒外角"
)
) "*)/半径(" #radius ")"
)
(xdrx_initssget "\n选取要倒角的多段线[倒角方式(BE)/半径(SE)]<退出>:"
"BE SE" "移除不倒角的多段线[添加(A)]<退出>:" "_setdis" ""
)
(if (setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
(progn
(mapcar
'(lambda (x)
(setq gr (xd::polyline:anglegroup x))
(_fillet x #mode #radius)
)
(xdrx_pickset->ents ss)
)
)
)
(xdrx_end)
(princ)
)

(defun c:XDTB_PLineFillet (/ #dis #div _isclose bound dis div e gap ge 
        ge1 i intv keyword len pts sec sec1 sec2 ss 
        x 
           ) 
  (defun _setdis (keyword) 
    (cond 
      ((= keyword "SE") 
  (if (setq r (getreal (xdrx_prompt "\n请输入倒角半径<" #radius ">:" t))) 
    (setq #radius r) 
  ) 
      ) 
      ((= keyword "BE") 
  (if (setq mode (getint (xdrx_prompt "\n请输入倒角方式[所有角(0)/只倒内角(1)/只倒外角(2)]<" 
              #mode ">:" t 
             ) 
           ) 
      ) 
    (setq #mode mode) 
  ) 
      ) 
    ) 
    (xdrx_prompt "\n当前设置：倒角方式(*" (cond 
              ((= #mode 0) 
                "所有角" 
              ) 
              ((= #mode 1) 
                "只倒内角" 
              ) 
              (t 
                "只倒外角" 
              ) 
            ) "*)/半径(" #radius ")" 
    ) 
  ) 
  (defun _fillet (e mode radius) 
    (cond 
      ((= mode 0) 
        (setq gr (apply 'append gr)) 
        (setq gr (vl-sort gr '(lambda(x y)(< x y)))) 
      ) 
      ((= mode 1) 
        (setq gr (car gr)) 
      ) 
      ((= mode 2) 
        (setq gr (last gr)) 
      ) 
    ) 
    (setq i 0) 
    (mapcar 
      '(lambda (index) 
   (XD::Polyline:AddFillet e (+ i index) "F" radius 1.0) 
   (setq i (1+ i)) 
       ) 
      gr 
    ) 
  ) 
  (xdrx_begin) 
  (if (not #mode) 
    (setq #mode 0) 
  ) 
  (if (not #radius) 
    (setq #radius 10.0) 
  ) 
  (xdrx_prompt "\n当前设置：倒角方式(*" (cond 
            ((= #mode 0) 
              "所有角" 
            ) 
            ((= #mode 1) 
              "只倒内角" 
            ) 
            (t 
              "只倒外角" 
            ) 
          ) "*)/半径(" #radius ")" 
  ) 
  (xdrx_initssget "\n选取要倒角的多段线[倒角方式(BE)/半径(SE)]<退出>:" 
      "BE SE" "移除不倒角的多段线[添加(A)]<退出>:" "_setdis" "" 
  ) 
  (if (setq ss (xdrx_ssget '((0 . "*POLYLINE")))) 
    (progn 
      (mapcar 
  '(lambda (x) 
     (setq gr (xd::polyline:anglegroup x)) 
     (_fillet x #mode #radius) 
   ) 
  (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

[/sell]

longer1000 · 发表于 2016-10-8 11:11:56

啥也不说了，感谢楼主分享哇！

liuyj · 发表于 2016-10-8 11:28:50

看上去很智能啊

yanchao316 · 发表于 2016-10-9 10:46:16

啥也不说了，感谢楼主分享哇！

yanchao316 · 发表于 2016-10-12 12:23:28

我只是路过打酱油的

zxwzbw · 发表于 2016-10-13 09:19:12

感谢楼主分享哇！

yanchao316 · 发表于 2016-11-1 09:33:54

啥也不说了，感谢楼主分享哇！

ysq101 · 发表于 2016-12-5 20:01:24

很强大呢。。。一定要安装XD工具箱才能运行吗？

newer · 发表于 2016-12-5 20:11:25

ysq101 发表于 2016-12-5 20:01

装 XDRX API 就行

sicky111 · 发表于 2016-12-5 23:31:57

支持晓东工具箱。

ysq101 · 发表于 2017-3-15 11:58:11

newer 发表于 2016-12-5 20:11

是否支持这类图形

1028882406@qq.c · 发表于 2017-5-12 23:26:24

谢谢楼主，支持下

变幻之枫 · 发表于 2017-6-23 12:48:45

啥也不说了，就是感谢！

jxwfz19740724 · 发表于 2017-6-27 08:33:11

看看再说吧。

pezyl · 发表于 2017-6-27 10:57:49

实用的好插件

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

[多段线] 批量多段线灵活倒角（倒内角、倒外角）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。