我在一个图档里所有的标注样式只有一个，只是设置的dimscale 标注比例不同。
你自己先试一下再说，我一直这样画图的，我设置的是QQ画小点引线，QA画箭头引线。
我在一个图档里所有的标注样式只有一个，只是设置的dimscale 标注比例不同。
(defun c:Qq ( / mirrtxt pt1 pt2 pt3 pt0)
(setq pt1 (getpoint"\n指定个引线第一点:"))
(setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
;;(undobe)
(SETVAR "CMDECHO" 0)
(setvar 'dimldrblk "小点")
(setq *error* q_err )
(setq qscale (getvar "dimscale"))
(setvar "attreq" 0)
(setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
(setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
(command "_.leader" "non" pt1 "non" pt2 "" "" "n")
(command "chprop" (entlast) """LA" "02标注" "")
(if (= (fix(cadr pt1))(fix(cadr pt2)))
(entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
(cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
(progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) """LA" "02标注" "") )
)
(SETVAR "CMDECHO" 1)
;;(undoe)
(prin1)
)
(defun c:Qa ( / mirrtxt pt1 pt2 pt3 pt0)
(setq pt1 (getpoint"\n指定个引线第一点:"))
(setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
;;(undobe)
(SETVAR "CMDECHO" 0)
(setvar 'dimldrblk ".")
(setq *error* q_err )
(setq qscale (getvar "dimscale"))
(setvar "attreq" 0)
(setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
(setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
(command "_.leader" "non" pt1 "non" pt2 "" "" "n")
(command "chprop" (entlast) """LA" "02标注" "")
(if (= (fix(cadr pt1))(fix(cadr pt2)))
(entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
(cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
(progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) """LA" "02标注" "") )
)
(SETVAR "CMDECHO" 1)
;;(undoe)
(prin1)
)
你自己尝试过没有？同一个标注样式名，可以标注出不同的样式！
(defun c:qq ( / mirrtxt pt1 pt2 pt3 pt0)
(setq pt1 (getpoint"\n指定个引线第一点:"))
(setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
;;(undobe)
(SETVAR "CMDECHO" 0)
(setvar 'dimldrblk "小点")
(setq *error* q_err )
(setq qscale (getvar "dimscale"))
(setvar "attreq" 0)
(setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
(setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
(command "_.leader" "non" pt1 "non" pt2 "" "" "n")
(command "chprop" (entlast) """LA" "02标注" "")
(if (= (fix(cadr pt1))(fix(cadr pt2)))
(entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
(cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
(progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) """LA" "02标注" "") )
)
(SETVAR "CMDECHO" 1)
;;(undoe)
(prin1)
)
(defun c:qa ( / mirrtxt pt1 pt2 pt3 pt0)
(setq pt1 (getpoint"\n指定个引线第一点:"))
(setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
;;(undobe)
(SETVAR "CMDECHO" 0)
(setvar 'dimldrblk ".")
(setq *error* q_err )
(setq qscale (getvar "dimscale"))
(setvar "attreq" 0)
(setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
(setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
(command "_.leader" "non" pt1 "non" pt2 "" "" "n")
(command "chprop" (entlast) """LA" "02标注" "")
(if (= (fix(cadr pt1))(fix(cadr pt2)))
(entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
(cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
(progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) """LA" "02标注" "") )
)
(SETVAR "CMDECHO" 1)
;;(undoe)
(prin1)
) 菜卷鱼 发表于 2018-11-16 08:41
你自己尝试过没有？同一个标注样式名，可以标注出不同的样式！
谢谢，
我研究一下。
再次感谢。
页:
1
[2]