[编程申请]：对批量LINE进行有规律打断。急急急急

pfrynwgkq

对批量LINE进行有规律打断。急急急急

要求：
1 可以批量选择。只对LINE起作用
2 以LINE两端为基点、往中心的一段距离保留（如图中的100），其它的都删掉。
3 要保留的长度（如图中的100）可以调整（可以手动输入与在图上点取）

21cn

2. 
   
3. (defun c:tt (/ ss d ssl i e el sp ep an an1 p1 p2 el0)
   
4.   (if (and (setq ss (ssget '((0 . "line"))))
   
5.            (setq d (getdist "\n保留长度:"))
   
6.       )
   
7.     (progn
   
8.       (setq ssl        (sslength ss)
   
9.             i        -1
   
10.       )
    
11.       (repeat ssl
    
12.         (setq e          (ssname ss (setq i (1+ i)))
    
13.               el  (entget e)
    
14.               sp  (vlax-curve-getstartpoint e)
    
15.               ep  (vlax-curve-getendpoint e)
    
16.               an  (angle sp ep)
    
17.               an1 (angle ep sp)
    
18.               p1  (polar sp an d)
    
19.               p2  (polar ep an1 d)
    
20.               el0 (subst (cons 10 p2) (assoc 10 el) el)
    
21.               el  (subst (cons 11 p1) (assoc 11 el) el)             
    
22.         )
    
23.         (entmod el)
    
24.         (entmake el0)
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )

<br /> (defun c:tt (/ ss d ssl i e el sp ep an an1 p1 p2 el0)<br />   (if (and (setq ss (ssget '((0 . "line"))))<br />            (setq d (getdist "\n保留长度:"))<br />       )<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq e          (ssname ss (setq i (1+ i)))<br />               el  (entget e)<br />               sp  (vlax-curve-getstartpoint e)<br />               ep  (vlax-curve-getendpoint e)<br />               an  (angle sp ep)<br />               an1 (angle ep sp)<br />               p1  (polar sp an d)<br />               p2  (polar ep an1 d)<br />               el0 (subst (cons 10 p2) (assoc 10 el) el)<br />               el  (subst (cons 11 p1) (assoc 11 el) el)             <br />         )<br />         (entmod el)<br />         (entmake el0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

pfrynwgkq

谢谢 21cn  

但是我试过不行啊。
以下是我输入命令后的结果

命令不通完成，报错也。

命令:  TT
选择对象: 找到 1 个
选择对象:
保留长度:100
错误: no function definition: VLAX-CURVE-GETSTARTPOINT

pfrynwgkq

问体解决了。
在这非常感谢明经通道的版主龙龙仔
以下是他给我编的一个程序

zhengguoyun

我也碰到类似的问题，但是我的问题是要多段删除。就是说可以在等长的距离删除多个小段，这个可能可以实现了。但是我还想复原（不用UNDO），哪位能帮我吗

eachy

2. 
   
3. (defun c:tt (/ ss d ssl i e el sp ep an an1 p1 p2 el0)
   
4.   (if (and (setq ss (ssget '((0 . "line"))))
   
5.            (setq d (getdist "\n保留长度:"))
   
6.       )
   
7.     (progn
   
8.       (setq ssl        (sslength ss)
   
9.             i        -1
   
10.       )
    
11.       (repeat ssl
    
12.         (setq e          (ssname ss (setq i (1+ i)))
    
13.               el  (entget e)
    
14.               ;;sp  (vlax-curve-getstartpoint e)
    
15.               ;;ep  (vlax-curve-getendpoint e)
    
16.               sp  (cdr (assoc 10 el))
    
17.               ep  (cdr (assoc 11 el)
    
18.               an  (angle sp ep)
    
19.               an1 (angle ep sp)
    
20.               p1  (polar sp an d)
    
21.               p2  (polar ep an1 d)
    
22.               el0 (subst (cons 10 p2) (assoc 10 el) el)
    
23.               el  (subst (cons 11 p1) (assoc 11 el) el)             
    
24.         )
    
25.         (entmod el)
    
26.         (entmake el0)
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

<br /> (defun c:tt (/ ss d ssl i e el sp ep an an1 p1 p2 el0)<br />   (if (and (setq ss (ssget '((0 . "line"))))<br />            (setq d (getdist "\n保留长度:"))<br />       )<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq e          (ssname ss (setq i (1+ i)))<br />               el  (entget e)<br />               ;;sp  (vlax-curve-getstartpoint e)<br />               ;;ep  (vlax-curve-getendpoint e)<br />               sp  (cdr (assoc 10 el))<br />               ep  (cdr (assoc 11 el)<br />               an  (angle sp ep)<br />               an1 (angle ep sp)<br />               p1  (polar sp an d)<br />               p2  (polar ep an1 d)<br />               el0 (subst (cons 10 p2) (assoc 10 el) el)<br />               el  (subst (cons 11 p1) (assoc 11 el) el)             <br />         )<br />         (entmod el)<br />         (entmake el0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

wjfling

下来看一看!

nichon

6楼的，我下载了不行啊