(求助)双线修剪，麻烦路过的大神能否帮忙解决以下的问题

xyp1964

999999

xyp1964 发表于 2021-12-15 21:06

院长您好，请问这个插件可以发一下吗

xyp1964

1. (defun c:tt () ; tt(实体开槽)
   
2. (xyp-Start)
   
3. (defun abc (ptn / p1 p2)
   
4.   (while (and (setq p1 (car ptn)) (setq p2 (cadr ptn)))
   
5.    (xyp-line p1 p2)
   
6.    (setq ptn (cddr ptn))
   
7.   )
   
8. )
   
9. (or dd (setq dd 100.))
   
10. (setq dd (Udist 7 "" "槽宽<输入或鼠标直接量取>" dd nil))
    
11. (while (and (setq p0 (getpoint "\n基点<退出>: "))
    
12.              (setq p1 (getpoint p0 "\n基点<退出>: "))
    
13.         )
    
14.   (setvar "osmode" 0)
    
15.   (setq s1 (xyp-Line p0 p1))
    
16.   (xyp-Offset s1 (* dd 0.5) t nil nil)
    
17.   (setq s2 (entlast))
    
18.   (xyp-Offset s1 (* dd 0.5) nil t nil)
    
19.   (setq s3 (entlast))
    
20.   (setq ptn2 (xyp-Get-CurveIntersLeng s2 4))
    
21.   (setq ptn3 (xyp-Get-CurveIntersLeng s3 4))
    
22.   (entdel s1)
    
23.   (command "trim" s2 s3 "" "f")
    
24.   (foreach pt (list p0 p1) (command pt))
    
25.   (command "" "")
    
26.   (abc ptn2)
    
27.   (abc ptn3)
    
28.   (entdel s2)
    
29.   (entdel s3)
    
30. )
    
31. (xyp-End)
    
32. )
    

(defun c:tt () ; tt(实体开槽)<br /> (xyp-Start)<br /> (defun abc (ptn / p1 p2)<br />   (while (and (setq p1 (car ptn)) (setq p2 (cadr ptn)))<br />    (xyp-line p1 p2)<br />    (setq ptn (cddr ptn))<br />   )<br /> )<br /> (or dd (setq dd 100.))<br /> (setq dd (Udist 7 "" "槽宽<输入或鼠标直接量取>" dd nil))<br /> (while (and (setq p0 (getpoint "\n基点<退出>: "))<br />              (setq p1 (getpoint p0 "\n基点<退出>: "))<br />         )<br />   (setvar "osmode" 0)<br />   (setq s1 (xyp-Line p0 p1))<br />   (xyp-Offset s1 (* dd 0.5) t nil nil)<br />   (setq s2 (entlast))<br />   (xyp-Offset s1 (* dd 0.5) nil t nil)<br />   (setq s3 (entlast))<br />   (setq ptn2 (xyp-Get-CurveIntersLeng s2 4))<br />   (setq ptn3 (xyp-Get-CurveIntersLeng s3 4))<br />   (entdel s1)<br />   (command "trim" s2 s3 "" "f")<br />   (foreach pt (list p0 p1) (command pt))<br />   (command "" "")<br />   (abc ptn2)<br />   (abc ptn3)<br />   (entdel s2)<br />   (entdel s3)<br /> )<br /> (xyp-End)<br /> )<br />

999999

xyp1964 发表于 2021-12-15 22:26

谢谢院长，，院长威武

999999

xyp1964 发表于 2021-12-15 22:26

院长您好，加载了您的工具箱也运行不了呢，

999999

lee50310 发表于 2021-12-23 19:43
剛寫好,是不是這個效果

大神，，是什么效果呀

999999

lee50310 发表于 2021-12-23 19:43
剛寫好,是不是這個效果

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=184626&pid=904152&page=1 ...

是的是的，是这个效果哟，，谢谢大神的帮助