AUTOCAD里的引线标注，有谁能帮我把这个程序修改一下，使其能用在浩辰的CAD
本帖最后由 hzzhao 于 2015-12-23 09:01 编辑;这个是AUTOCAD里的引线标注，是先写文字，再指定引线的，很好用，可是现在因为版权的原因，买了浩辰CAD，有谁能帮我把这个程序修改一下，使其能用在浩辰的CAD。
;创建新尺寸样式ISO-25
(defun cdimstyle (/ oldexp)
(setvar "cmdecho" 0)
(if (= (tblsearch "style" "dimtext") nil)
(command "-style" "dimtext" "txt.shx,hznum.shx" "0" "1" "" "" "" "")
)
(setq OLDEXP (getvar "expert"))
(setvar "expert" 5)
(command "dim" "res" "ISO-25"
"dimclrd" 1 "dimlwd" -2 "dimdli" 8 "dimclre" 1 "dimlwe" -2 "dimexe" 2
"dimexo" 1 "dimasz" 3 "dimcen" 0 "dimexo" 1 "dimasz" 3 "dimcen" 0
"dimtxsty" "dimtext" "dimclrt" 3 "dimtxt" 3 "dimtad" 1 "dimjust" 0
"dimgap" 1 "dimtoh" 0 "dimatfit" 0 "dimdsep" "."
"save" "ISO-25" "exit")
(setvar "expert" OLDEXP)
(setvar "cmdecho" 1)
;(command "hide")
)
;引线标注
(defun c:li(/ p1 txt_len nent olay osm dimdliva)
(setvar "cmdecho" 0)
(if (= (tblsearch "style" "dimtext") nil)(cdimstyle))
(setvar "textstyle" "dimtext")
(setq osm (getvar "osmode")
olay (getvar "clayer")
p1 (getpoint "指定文本位置 :")
)
(setq dimdliva (getvar "dimdli"))
(if (/= (getvar "dimstyle") "ISO-25")(cdimstyle))
(if (/= dimdliva 8) (cdimstyle))
(if (= (tblsearch "layer" "08") nil)
(command "layer" "n" "08" "s" "08" "c" "1" "" "")
)
(if (= (tblsearch "layer" "11") nil)
(command "layer" "n" "11" "s" "11" "c" "3" "" "")
)
(setvar "clayer" "11") (setvar "osmode" 512)
(command "_.dtext" p1 (* 3 (getvar "dimscale")) "0")
(setq nent (entlast)
p1 (cdr (assoc 10 (entget nent)))
ent_pnt (getpoint "指定引出线位置:")
txt_len (caar (cdr (textbox (entget nent))))
p1 (list (- (car p1) (* 0.25 (cdr (assoc 40 (entget nent)))))
(cadr p1)
)
)
(setvar "clayer" "08")
(if (<= (car ent_pnt) (car p1))
(command "leader" ent_pnt
(list (car p1)(- (cadr p1) (* 0.9(getvar "dimscale"))))
(list (+ (car p1) txt_len (* 0.5 (cdr (assoc 40 (entget nent)))))
(- (cadr p1) (* 0.9(getvar "dimscale")))
)
"" "" "n" )
(command "leader" ent_pnt
(list (+ (car p1) txt_len (* 0.5 (cdr (assoc 40 (entget nent)))))
(- (cadr p1) (* 0.9(getvar "dimscale")))
)
(list (car p1)(- (cadr p1) (* 0.9(getvar "dimscale")))
)
"" "" "n" )
)
(setvar "clayer" olay) (setvar "osmode" osm)
(setvar "textstyle" "standard")
(setvar "cmdecho" 1)
)
请修改标题! 提问就选择[提问]标签好啦, 【不死猫】不是你用的!
坛子里,估计很少人装浩辰...... 那是刚才随便选的！不好意思 自已修改好了，现在可以用在浩辰里面了！
页:
[1]