求焊缝标注的程序呀

uditx

大家好，谁有焊缝标注的程序呀 发一个呗？小弟学习一下呀

429014673

2. (DEFUN C:HF ()
   
3.        (CMDLA0)
   
4.        (setvar "PICKSTYLE" 3)
   
5.        (xyp-initSet '(z) '(10))
   
6.        (setq        p1 (getpoint "\n焊缝起始点: " )
   
7.                       p2 (getpoint p1 "\n焊缝结束点: " )
   
8.                       z (UREAL 7 "" "焊缝尺寸<弧半径>大小" z)
   
9.                       ss1 (ssget "x" )
   
10.        );end setq        p1
    
11.        (Setvar "osmode" 0)
    
12.        (setq p3 (polar p1 (angle p1 p2) (* 2 z)))
    
13.        (command "arc" p1 "e" p3 "a" 180)
    
14.        (setq        p4 (polar p3 (- (angle p1 p2) (* 120 (/ PI 180))) Z)
    
15.                       n (fix (- (/ (distance p1 p2) z) 2))
    
16.        );end setq        p4
    
17.        (command "arc" p4 "c" p3 "a" 120)
    
18.        (setvar "snapang" (angle p1 p2))
    
19.        (command "array" "last" "" "r" "" n z)
    
20.        (setvar "snapang" 0)
    
21.        (setq        ss2 (ssget "X" )
    
22.                       ss (SSDIFF SS2 SS1)
    
23.        );end setq        ss2
    
24.        (command "group" "" "*" "" ss "" )
    
25.        (CMDLA1)
    
26. );end DEFUN
    
27. ;好像是YXP的！！！

(DEFUN C:HF ()<br />        (CMDLA0)<br />        (setvar "PICKSTYLE" 3)<br />        (xyp-initSet '(z) '(10))<br />        (setq        p1 (getpoint "\n焊缝起始点: " )<br />                       p2 (getpoint p1 "\n焊缝结束点: " )<br />                       z (UREAL 7 "" "焊缝尺寸<弧半径>大小" z)<br />                       ss1 (ssget "x" )<br />        );end setq        p1<br />        (Setvar "osmode" 0)<br />        (setq p3 (polar p1 (angle p1 p2) (* 2 z)))<br />        (command "arc" p1 "e" p3 "a" 180)<br />        (setq        p4 (polar p3 (- (angle p1 p2) (* 120 (/ PI 180))) Z)<br />                       n (fix (- (/ (distance p1 p2) z) 2))<br />        );end setq        p4<br />        (command "arc" p4 "c" p3 "a" 120)<br />        (setvar "snapang" (angle p1 p2))<br />        (command "array" "last" "" "r" "" n z)<br />        (setvar "snapang" 0)<br />        (setq        ss2 (ssget "X" )<br />                       ss (SSDIFF SS2 SS1)<br />        );end setq        ss2<br />        (command "group" "" "*" "" ss "" )<br />        (CMDLA1)<br /> );end DEFUN<br /> ;好像是YXP的！！！

迹扬

楼主要的是标注焊缝程序，就是能标注“角焊缝”，焊脚多高等。不是画焊缝的。

上面的沙发白坐了

迹扬

楼主 看这个  

http://bbs.mjtd.com/thread-108627-1-1.html