【e派】ccgj(尺寸工具大全)－逐步放出所有代码

xyp1964

2. ;; swbz(三维标注)
   
3. (defun c:swbz (/ ilst ll1 ll2)
   
4.   (cmdla0)
   
5.   (defun main-pro (/ p1 p2 p3)
   
6.     (defun u3p (p1 p2 p3)
   
7.       (command "ucs" "n" "3P" p1 p2 p3)
   
8.     )
   
9.     (xyp-MkLaCo "三维标注" 3)
   
10.     (setvar "dimblk" "AR")
    
11.     (setvar "dimblk1" "AR")
    
12.     (setvar "dimblk2" "AR")
    
13.     (while (and (setq p1 (getpoint "\n标注基点1<退出>: "))
    
14.   (setq p2 (getpoint p1 "\n标注基点2<退出>: "))
    
15.   (setq p3 (getpoint p1 "\n放置基点<退出>: "))
    
16.     )
    
17.       (cond ((= k1 "1")
    
18.       (u3p p1 (xyp-get-Pt2X p1 10) (xyp-get-Pt2Y p1 10))
    
19.      )
    
20.      ((= k2 "1")
    
21.       (u3p p1 (xyp-get-Pt2X p1 10) (xyp-get-Pt2Z p1 10))
    
22.      )
    
23.      ((= k3 "1")
    
24.       (u3p p1 (xyp-get-Pt2Y p1 10) (xyp-get-Pt2Z p1 10))
    
25.      )
    
26.      ((= k4 "1")
    
27.       (u3p p1 p2 p3)
    
28.      )
    
29.       )
    
30.       (command "dim1"
    
31.         "ali"
    
32.         "non"
    
33.         (trans p1 0 1)
    
34.         "non"
    
35.         (trans p2 0 1)
    
36.         "non"
    
37.         (trans p3 0 1)
    
38.         ""
    
39.       )
    
40.       (command "ucs" "")
    
41.     )
    
42.   )
    
43.   (setq ll1 '(k1 k2 k3 k4)
    
44. ll2 '("1" "0" "0" "0")
    
45.   )
    
46.   (xyp-initSet ll1 ll2)
    
47.   (setq ilst '(("" "方式" ":boxed_radio_row{")
    
48.         ("k1" "平面" "radio")
    
49.         ("k2" "正立面" "radio")
    
50.         ("k3" "侧立面" "radio")
    
51.         ("k4" "自定义" "radio")
    
52.         "}"
    
53.         "spacer;"
    
54.         "spacer;"
    
55.        )
    
56.   )
    
57.   (if (= (xyp-Dcl-Init Ilst "【三维标注】" t) 1)
    
58.     (main-pro)
    
59.   )
    
60.   (cmdla1)
    
61. )
    

;; swbz(三维标注)<br /> (defun c:swbz (/ ilst ll1 ll2)<br />   (cmdla0)<br />   (defun main-pro (/ p1 p2 p3)<br />     (defun u3p (p1 p2 p3)<br />       (command "ucs" "n" "3P" p1 p2 p3)<br />     )<br />     (xyp-MkLaCo "三维标注" 3)<br />     (setvar "dimblk" "AR")<br />     (setvar "dimblk1" "AR")<br />     (setvar "dimblk2" "AR")<br />     (while (and (setq p1 (getpoint "\n标注基点1<退出>: "))<br />   (setq p2 (getpoint p1 "\n标注基点2<退出>: "))<br />   (setq p3 (getpoint p1 "\n放置基点<退出>: "))<br />     )<br />       (cond ((= k1 "1")<br />       (u3p p1 (xyp-get-Pt2X p1 10) (xyp-get-Pt2Y p1 10))<br />      )<br />      ((= k2 "1")<br />       (u3p p1 (xyp-get-Pt2X p1 10) (xyp-get-Pt2Z p1 10))<br />      )<br />      ((= k3 "1")<br />       (u3p p1 (xyp-get-Pt2Y p1 10) (xyp-get-Pt2Z p1 10))<br />      )<br />      ((= k4 "1")<br />       (u3p p1 p2 p3)<br />      )<br />       )<br />       (command "dim1"<br />         "ali"<br />         "non"<br />         (trans p1 0 1)<br />         "non"<br />         (trans p2 0 1)<br />         "non"<br />         (trans p3 0 1)<br />         ""<br />       )<br />       (command "ucs" "")<br />     )<br />   )<br />   (setq ll1 '(k1 k2 k3 k4)<br /> ll2 '("1" "0" "0" "0")<br />   )<br />   (xyp-initSet ll1 ll2)<br />   (setq ilst '(("" "方式" ":boxed_radio_row{")<br />         ("k1" "平面" "radio")<br />         ("k2" "正立面" "radio")<br />         ("k3" "侧立面" "radio")<br />         ("k4" "自定义" "radio")<br />         "}"<br />         "spacer;"<br />         "spacer;"<br />        )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【三维标注】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )<br />

vvcd

这次这个能单独使用不呢

自贡黄明儒

支持..............

ZZY28791568

支持院长

teykmcqh

拜赏一下

zichang

呵呵！不错！支持院长！

xyp1964

429014673

e2002

这个水平标注似乎没什么意义,点选时无动态显示.

标准的 DimContinue 不是更好吗?点选时有动态显示.

xyp1964

那就上个“交点连标”：