AUTOCAD里的引线标注，有谁能帮我把这个程序修改一下，使其能用在浩辰的CAD

hzzhao

;这个是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)
)

lucas_3333

请修改标题! 提问就选择[提问]标签好啦, 【不死猫】不是你用的!
坛子里,估计很少人装浩辰......

hzzhao

那是刚才随便选的！不好意思

hzzhao

自已修改好了，现在可以用在浩辰里面了！