源码分享 画圆柱截断线

liuhaixin88

1. ;;;=================================================================*                                        *
   
2. ;;;zml84  2010-03-18                                        *
   
3. (defun c:tt ()
   
4.   (if (and (setq pt1 (getpoint "\nPT1: "))
   
5.     (setq pt2 (getpoint pt1 "\nPT2: "))
   
6.       )
   
7.     (progn
   
8.       (tt-01 pt1 pt2)
   
9.       (if (setq pt3 (getpoint pt2 "\nPT3: "))
   
10. (tt-01 pt3
    
11.         (polar pt3 (angle pt2 pt1) (distance pt2 pt1))
    
12. )
    
13.       )
    
14.     ) ;
    
15.   )
    
16.   (princ)
    
17. )
    
18. ;;;=================================================================*                            *
    
19. (defun tt-01 (pt1 pt2 / ang dist pt_tmp1)
    
20.   (setq ang  (angle pt1 pt2)
    
21. dist (distance pt1 pt2)
    
22.   )
    
23.   (setq pt_tmp1 (polar pt1 ang (* 0.5 dist)))
    
24.   (command "_.pline"
    
25.     "non"
    
26.     pt1
    
27.     "a"
    
28.     "d"
    
29.     (+ (* 180 (/ ang pi)) -45)
    
30.     "non"
    
31.     pt_tmp1
    
32.     "non"
    
33.     pt2
    
34.     "d"
    
35.     (+ (* 180 (/ ang pi)) 180 45)
    
36.     "non"
    
37.     pt_tmp1
    
38.     ""
    
39.   )
    
40.   t
    
41. )

;;;=================================================================*                                        *<br /> ;;;zml84  2010-03-18                                        *<br /> (defun c:tt ()<br />   (if (and (setq pt1 (getpoint "\nPT1: "))<br />     (setq pt2 (getpoint pt1 "\nPT2: "))<br />       )<br />     (progn<br />       (tt-01 pt1 pt2)<br />       (if (setq pt3 (getpoint pt2 "\nPT3: "))<br /> (tt-01 pt3<br />         (polar pt3 (angle pt2 pt1) (distance pt2 pt1))<br /> )<br />       )<br />     ) ;<br />   )<br />   (princ)<br /> )<br /> ;;;=================================================================*                            *<br /> (defun tt-01 (pt1 pt2 / ang dist pt_tmp1)<br />   (setq ang  (angle pt1 pt2)<br /> dist (distance pt1 pt2)<br />   )<br />   (setq pt_tmp1 (polar pt1 ang (* 0.5 dist)))<br />   (command "_.pline"<br />     "non"<br />     pt1<br />     "a"<br />     "d"<br />     (+ (* 180 (/ ang pi)) -45)<br />     "non"<br />     pt_tmp1<br />     "non"<br />     pt2<br />     "d"<br />     (+ (* 180 (/ ang pi)) 180 45)<br />     "non"<br />     pt_tmp1<br />     ""<br />   )<br />   t<br /> )

totoro

还算实用~
源码分享~ 推~

lyqiezi

挺好用，有点意见：
1、第二点的时候，设定捕捉垂足
2、第三点的时候，最好能把点自动控制在与第二点沿线上，或者设定捕捉最近点
理由：
1、避免1、2点不垂直
2、平时画图我都不打开最近点的，但是画剖断线不需要太精确，可以用最近点，不用人为切换

liuhaixin88

1. ;; put break pipe symbols and break pipe within
   
2. (defun C:SYP(/ ang ang+ ang- cop osm p1 p2 pc pp sset symp)
   
3. (alert "Pick two pipe sides to be trimmed at the end")
   
4. (setq osm (getvar 'osmode))
   
5. (setvar 'osmode 512)
   
6. (setq p1 (getpoint "\nFirst Line: "))
   
7. (setq sset (ssadd))
   
8. (setq pp (ssname (ssget p1) 0))
   
9. (ssadd pp sset)
   
10. (setvar 'osmode 128)
    
11. (setq p2 (getpoint p1 "\nSecond Line: "))
    
12. (setq pc (mapcar '* (mapcar '+ p1 p2) (list 0.5 0.5 0.5)))
    
13. (setq ang  (angle p1 p2)
    
14.       ang- (- ang (/ pi 4))
    
15.       ang+ (+ (+ ang pi) (/ pi 4))
    
16.       ang- (vl-princ-to-string (/ (* ang- 180) pi))
    
17.       ang+ (vl-princ-to-string (/ (* ang+ 180) pi))
    
18. )
    
19. 
    
20. 
    
21. (command "_PLINE"         "_non"         p1         "A"         "D"         ang-
    
22.          "_non"         pc         "_non"         p2         "D"         ang+         "_non"
    
23.          pc         ""
    
24.         )
    
25. (setq symp (entlast))
    
26. (ssadd symp sset)
    
27. (command "_copy" symp "" "_non" pc "_non" pc)
    
28. (command "_rotate" (entlast) "" "_non" pc "180")
    
29. (setvar 'osmode 512)
    
30. (command "_move"
    
31.          (entlast)
    
32.          ""
    
33.          "_non"
    
34.          p1
    
35.          "_non"
    
36.          (getpoint p1 "\nNew Location: ")
    
37. )
    
38. (setq cop (entlast))
    
39. (ssadd cop sset)
    
40. 
    
41. (command "_trim" sset "" pause pause "")
    
42. (setvar 'osmode osm)
    
43. (princ)
    
44.   )

;; put break pipe symbols and break pipe within<br /> (defun C:SYP(/ ang ang+ ang- cop osm p1 p2 pc pp sset symp)<br /> (alert "Pick two pipe sides to be trimmed at the end")<br /> (setq osm (getvar 'osmode))<br /> (setvar 'osmode 512)<br /> (setq p1 (getpoint "\nFirst Line: "))<br /> (setq sset (ssadd))<br /> (setq pp (ssname (ssget p1) 0))<br /> (ssadd pp sset)<br /> (setvar 'osmode 128)<br /> (setq p2 (getpoint p1 "\nSecond Line: "))<br /> (setq pc (mapcar '* (mapcar '+ p1 p2) (list 0.5 0.5 0.5)))<br /> (setq ang  (angle p1 p2)<br />       ang- (- ang (/ pi 4))<br />       ang+ (+ (+ ang pi) (/ pi 4))<br />       ang- (vl-princ-to-string (/ (* ang- 180) pi))<br />       ang+ (vl-princ-to-string (/ (* ang+ 180) pi))<br /> )<br /> <br /> <br /> (command "_PLINE"         "_non"         p1         "A"         "D"         ang-<br />          "_non"         pc         "_non"         p2         "D"         ang+         "_non"<br />          pc         ""<br />         )<br /> (setq symp (entlast))<br /> (ssadd symp sset)<br /> (command "_copy" symp "" "_non" pc "_non" pc)<br /> (command "_rotate" (entlast) "" "_non" pc "180")<br /> (setvar 'osmode 512)<br /> (command "_move"<br />          (entlast)<br />          ""<br />          "_non"<br />          p1<br />          "_non"<br />          (getpoint p1 "\nNew Location: ")<br /> )<br /> (setq cop (entlast))<br /> (ssadd cop sset)<br /> <br /> (command "_trim" sset "" pause pause "")<br /> (setvar 'osmode osm)<br /> (princ)<br />   )

xyp1964

xyp1964

更BT的情形：

tianyi1230

院长无敌，境界高深啊！

ysq101

lyqiezi 发表于 2014-4-24 23:46
挺好用，有点意见：
1、第二点的时候，设定捕捉垂足
2、第三点的时候，最好能把点自动控制在与第二点沿线 ...

哈哈。。。跟我的作图习惯完全相同。。。顶一个

ymcui

不错,谢谢              

669423907

非常感谢楼主分享好程序，提一点小建议：
如果按这个比例，是不是可以省去第三点呢？