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

lml2023

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

czb203

是这样的效果吗

lzspain

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

夏生生

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

乞丐版，自己改一下吧，不会改就凑合着用

1. (defun c:ttt  (/ area en lst n obj obj1 old pt1 pt2 ss)
   
2. (setq old (getvar "osmode"))
   
3. (setvar "osmode" 0)
   
4. (prompt "\n选择外框:")
   
5. (setq ss (ssget '((0 . "lwpolyline") (8 . "1")))) ;_无例图，假设边界图层为1
   
6. (repeat (setq n (sslength ss))
   
7.   (setq        en   (ssname ss (setq n (1- n)))
   
8.         obj  (vlax-ename->vla-object en)
   
9.         area (vla-get-area obj))
   
10.   (setq        obj1 (car (vlax-safearray->list
    
11.                    (vlax-variant-value (vla-offset obj 1))))) ;_无例图，假设边界偏移1为宜
    
12.   (if (< (vla-get-area obj1) area)
    
13.    (progn (vla-delete obj1)
    
14.           (setq        obj1 (car (vlax-safearray->list
    
15.                            (vlax-variant-value (vla-offset obj -1))))))) ;_无例图，假设边界偏移1为宜
    
16.   (setq        lst (vl-remove-if-not '(lambda (x) (= 10 (car x)))
    
17.                               (entget (vlax-vla-object->ename obj1)))
    
18.         lst (mapcar 'cdr (cons (last lst) lst)))
    
19.   (vla-getboundingbox obj1 'pt1 'pt2)
    
20.   (vla-delete obj1)
    
21.   (command "zoom"
    
22.            (vlax-safearray->list pt1)
    
23.            (vlax-safearray->list pt2))
    
24.   (command "trim" en "" "f")
    
25.   (foreach n lst (command n))
    
26.   (command "" "")
    
27.   (command "zoom" "p"))
    
28. (setvar "osmode" old)
    
29. (princ))

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

自贡黄明儒

extrim ET中的工具

liuhe

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

raimo

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

aws

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

天天问

难道EXTRIM命令不香吗？

wang2006zhi

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

lml2023

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

是的，亲，