(07.07再更新)改进Lee-Mac李麦克大神的outline轮廓边界线程序

yjtdkj

先上Lee-Mac李麦克大神的原版程序，和G版的函数
我的程序在2楼

yjtdkj

我的改进是可以消除内部多余的轮廓，
不过现在还只做到了生成的边界是多段线的情况，如果生成的边界是面域，这种情况还没有考虑。
我有空试试把面域转成多段线。
---------------------------------------------------------
2021.06.28更新
面域也转成多段线了,大家再试试。
---------------------------------------------------------
2021.07.02更新
优化代码，加快速度，通用函数整合在一起了
---------------------------------------------------------
2021.07.07更新
修复了一bug，就是当内部轮廓与外部轮廓局部重合时，无法消除这个内部轮廓
增加了一个向外偏移的函数，向外偏移0.01，再wp窗选，再过滤掉本体，通过这个办法就可以消除BUG

xiangganglv

好大一坨啊，几kb变成10几kb了。

zj20190405

yjtdkj 发表于 2021-6-26 21:23
我的改进是可以消除内部多余的轮廓，
不过现在还只做到了生成的边界是多段线的情况，如果生成的边界是面域 ...

谢谢大佬，很好用。修改了下直接变遮罩
(defun c:outline ( / *error* idx sel )
    (defun *error* ( msg )
        (LM:endundo (LM:acdoc))
        (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )
    (if        (setq sel (ssget))
      (progn
        (setq #t0# (getvar "cdate"))
        (LM:startundo (LM:acdoc))
;;;        (LM:outline sel)
        (foreach x (LM:outline sel);;;图元列表
          (if (< (cdr (assoc 90 (entget x))) 3)
            (entdel x)
            (progn
              (vl-cmdf "WIPEOUT" "p" x "y")
              (vl-cmdf "draworder" (entlast) "" "f")
            )
          )
        )
        (princ
          (strcat "\n耗时："
                  (rtos (* 1000000 (- (getvar "cdate") #t0#) 2 3))
                  "秒"
          )
        )       
;;;        (initget "Yes No")
;;;        (if (/=        "No"
;;;                (getkword
;;;                  "\nErase original objects? [Yes/No] <Yes>: "
;;;                )
;;;            )
;;;          (repeat (setq idx (sslength sel))
;;;            (entdel (ssname sel (setq idx (1- idx))))
;;;          )
;;;        )
        (LM:endundo (LM:acdoc))
      )
    )
    (princ)
)

LIULISHENG

只保留外轮廓吗

oistre

Error: no function definition: YJ_UN-REPEAT-LIST
什么情况

oistre

Error: no function definition: YJ_UN-REPEAT-LIST
什么情况

yjtdkj

oistre 发表于 2021-6-26 22:08
Error: no function definition: YJ_UN-REPEAT-LIST
什么情况

不好意思，通用函数少了一个函数，现在加上了，请重新下载“通用函数.lsp”

yjtdkj

LIULISHENG 发表于 2021-6-26 21:50
只保留外轮廓吗

是的，没错的

xiangganglv

怎么调用通用函数？

yjtdkj

xiangganglv 发表于 2021-6-27 08:38
好大一坨啊，几kb变成10几kb了。

因为我把李麦克和G版函数合并到一起了呀，再加上我自己的，你以为消除内部多余线条这么容易呢？
you can you up!