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

lml2023

天天问 发表于 2024-8-19 22:09
难道EXTRIM命令不香吗？

是的，只能单个

lml2023

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

可以私聊报价

夏生生

如果出头一样长

1. ;;;线缩短
   
2. (defun c:lsc (/ os l ss n en pt1 pt2 i l1)
   
3.   (setvar "CMDECHO" 0)
   
4.   (setq os (getvar "OSMODE"))
   
5.   (setvar "OSMODE" 0)
   
6.   (if (null ***l***)
   
7.     (setq ***l*** "100")
   
8.   )
   
9.   (setq l (getreal (strcat "\n伸长量<" ***l*** ">:")))
   
10.   (if (null l)
    
11.     (setq l (atof ***l***))
    
12.   )
    
13.   (if (= l (fix l))
    
14.     (setq ***l*** (rtos l 2 0))
    
15.     (progn (setq i  0
    
16.                  l1 l
    
17.            )
    
18.            (while (/= l1 (fix l1))
    
19.              (setq l1 (* l (expt 10 i))
    
20.                    i  (1+ i)
    
21.              )
    
22.            )
    
23.            (setq ***l*** (rtos l 2 (1- i)))
    
24.     )
    
25.   )
    
26.   (setq ss (ssget '((0 . "lwpolyline,line,arc"))))
    
27.   (repeat (setq n (sslength ss))
    
28.     (setq en  (ssname ss (setq n (1- n)))
    
29.           pt1 (vlax-curve-getstartpoint en)
    
30.           pt2 (vlax-curve-getendpoint en)
    
31.     )
    
32.     (command "lengthen" "de" l (list en pt1) (list en pt2) "")
    
33.   )
    
34.   (setvar "OSMODE" os)
    
35.   (princ)
    
36. )
    

;;;线缩短<br /> (defun c:lsc (/ os l ss n en pt1 pt2 i l1)<br />   (setvar "CMDECHO" 0)<br />   (setq os (getvar "OSMODE"))<br />   (setvar "OSMODE" 0)<br />   (if (null ***l***)<br />     (setq ***l*** "100")<br />   )<br />   (setq l (getreal (strcat "\n伸长量<" ***l*** ">:")))<br />   (if (null l)<br />     (setq l (atof ***l***))<br />   )<br />   (if (= l (fix l))<br />     (setq ***l*** (rtos l 2 0))<br />     (progn (setq i  0<br />                  l1 l<br />            )<br />            (while (/= l1 (fix l1))<br />              (setq l1 (* l (expt 10 i))<br />                    i  (1+ i)<br />              )<br />            )<br />            (setq ***l*** (rtos l 2 (1- i)))<br />     )<br />   )<br />   (setq ss (ssget '((0 . "lwpolyline,line,arc"))))<br />   (repeat (setq n (sslength ss))<br />     (setq en  (ssname ss (setq n (1- n)))<br />           pt1 (vlax-curve-getstartpoint en)<br />           pt2 (vlax-curve-getendpoint en)<br />     )<br />     (command "lengthen" "de" l (list en pt1) (list en pt2) "")<br />   )<br />   (setvar "OSMODE" os)<br />   (princ)<br /> )<br />

gzcsun

-----------------------------------------------------

panliang9

这个需求实际上是建多个选择集的外轮廓线，然后用这些外轮廓线进行“extrim”的工作

lml2023

夏生生 发表于 2024-8-20 12:01
如果出头一样长

这个不太可以

夏生生

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))

lml2023

夏生生 发表于 2024-8-21 16:02
乞丐版，自己改一下吧，不会改就凑合着用

en,我最终选择生成中线出头100，然后用全打断，快速选择＜300的线头，即可解决