lml2023 发表于 2024-8-19 14:27:04

谁有这样的插件，能够一次性修剪多个图形外的线段的线头，是一次性哦

谁有这样的插件，能够一次性修剪多个图形外的线段的线头，是一次性哦
最好是按图层选择框与线进行修剪






czb203 发表于 2024-8-19 18:29:05

是这样的效果吗

lzspain 发表于 2024-8-19 23:08:10

谜你工具箱的全能裁剪可以满足你的需求，还有选层全能裁剪，你也可以去试试

夏生生 发表于 2024-8-21 16:02:05

lml2023 发表于 2024-8-21 09:53
这个不太可以

乞丐版，自己改一下吧，不会改就凑合着用
(defun c:ttt(/ area en lst n obj obj1 old pt1 pt2 ss)
(setq old (getvar "osmode"))
(setvar "osmode" 0)
(prompt "\n选择外框:")
(setq ss (ssget '((0 . "lwpolyline") (8 . "1")))) ;_无例图，假设边界图层为1
(repeat (setq n (sslength ss))
(setq        en   (ssname ss (setq n (1- n)))
        obj(vlax-ename->vla-object en)
        area (vla-get-area obj))
(setq        obj1 (car (vlax-safearray->list
                   (vlax-variant-value (vla-offset obj 1))))) ;_无例图，假设边界偏移1为宜
(if (< (vla-get-area obj1) area)
   (progn (vla-delete obj1)
          (setq        obj1 (car (vlax-safearray->list
                           (vlax-variant-value (vla-offset obj -1))))))) ;_无例图，假设边界偏移1为宜
(setq        lst (vl-remove-if-not '(lambda (x) (= 10 (car x)))
                              (entget (vlax-vla-object->ename obj1)))
        lst (mapcar 'cdr (cons (last lst) lst)))
(vla-getboundingbox obj1 'pt1 'pt2)
(vla-delete obj1)
(command "zoom"
           (vlax-safearray->list pt1)
           (vlax-safearray->list pt2))
(command "trim" en "" "f")
(foreach n lst (command n))
(command "" "")
(command "zoom" "p"))
(setvar "osmode" old)
(princ))

自贡黄明儒 发表于 2024-8-19 15:13:26

extrim ET中的工具

liuhe 发表于 2024-8-19 17:11:10

我可以提供定制，我估计没有人有现成的插件

raimo 发表于 2024-8-19 18:28:05

你是想剪去线头，我是想找能自动加上线头的。哈哈

aws 发表于 2024-8-19 21:06:44

1、选取封闭的多段线
2、多段线向外偏移0.1毫米
3、偏移后的多段线转点表
4、修剪命令利用点表去修剪

天天问 发表于 2024-8-19 22:09:41

难道EXTRIM命令不香吗？

wang2006zhi 发表于 2024-8-19 22:29:28

1选取多段线2计算线段与多段线交点3修改线段端点4循环

lml2023 发表于 2024-8-20 09:06:42

czb203 发表于 2024-8-19 18:29
是这样的效果吗

是的，亲，
页: [1] 2
查看完整版本: 谁有这样的插件，能够一次性修剪多个图形外的线段的线头，是一次性哦