xyp1964
发表于 2012-5-18 12:50:06
;; swbz(三维标注)
(defun c:swbz (/ ilst ll1 ll2)
(cmdla0)
(defun main-pro (/ p1 p2 p3)
(defun u3p (p1 p2 p3)
(command "ucs" "n" "3P" p1 p2 p3)
)
(xyp-MkLaCo "三维标注" 3)
(setvar "dimblk" "AR")
(setvar "dimblk1" "AR")
(setvar "dimblk2" "AR")
(while (and (setq p1 (getpoint "\n标注基点1<退出>: "))
(setq p2 (getpoint p1 "\n标注基点2<退出>: "))
(setq p3 (getpoint p1 "\n放置基点<退出>: "))
)
(cond ((= k1 "1")
(u3p p1 (xyp-get-Pt2X p1 10) (xyp-get-Pt2Y p1 10))
)
((= k2 "1")
(u3p p1 (xyp-get-Pt2X p1 10) (xyp-get-Pt2Z p1 10))
)
((= k3 "1")
(u3p p1 (xyp-get-Pt2Y p1 10) (xyp-get-Pt2Z p1 10))
)
((= k4 "1")
(u3p p1 p2 p3)
)
)
(command "dim1"
"ali"
"non"
(trans p1 0 1)
"non"
(trans p2 0 1)
"non"
(trans p3 0 1)
""
)
(command "ucs" "")
)
)
(setq ll1 '(k1 k2 k3 k4)
ll2 '("1" "0" "0" "0")
)
(xyp-initSet ll1 ll2)
(setq ilst '(("" "方式" ":boxed_radio_row{")
("k1" "平面" "radio")
("k2" "正立面" "radio")
("k3" "侧立面" "radio")
("k4" "自定义" "radio")
"}"
"spacer;"
"spacer;"
)
)
(if (= (xyp-Dcl-Init Ilst "【三维标注】" t) 1)
(main-pro)
)
(cmdla1)
)
vvcd
发表于 2012-5-18 13:03:02
这次这个能单独使用不呢
自贡黄明儒
发表于 2012-5-18 13:07:55
支持..............
ZZY28791568
发表于 2012-5-18 13:31:41
支持院长
teykmcqh
发表于 2012-5-18 13:47:56
拜赏一下
zichang
发表于 2012-5-18 14:15:45
呵呵！不错！支持院长！
xyp1964
发表于 2012-5-18 22:16:57
429014673
发表于 2012-5-18 23:07:20
e2002
发表于 2012-5-18 23:54:33
这个水平标注似乎没什么意义,点选时无动态显示.
标准的 DimContinue 不是更好吗?点选时有动态显示.
xyp1964
发表于 2012-5-19 07:17:01
本帖最后由 xyp1964 于 2012-5-19 07:21 编辑
那就上个“交点连标”：
页:
1
2
3
4
[5]
6
7
8
9
10