在lisp中获取dwg单位（公制/i

JeepMaster · 发表于 2022-7-6 17:29:28

我有一个自定义的引线lisp，如果dwg是公制的，它可以完美地绘制引线。当dwg为英制时，引线标头将小25.4X。有没有办法检查lisp上的绘图单位？然后缩放领导者头部25.4倍？


;;;Conduit Leader;;;
(defun c:cld ( / )
 ;;store orig error handler, assign new error handler 
 (setq OrigError *error* *error* *InsError*) 
 (command "-insert" "cleader");****** the cleader.dwg must be in one of the support path for it to work!******
 (command);;cancels the insert 
 (setvar "dimldrblk" "cleader")
 (setvar "texteval" 1)
 (prompt "\nCLeader")
 (setq CL (getvar "clayer"))
 (c:setlayer "E-ANNO-TEXT")
 (command "_.qleader")
 (while (> (getvar "cmdactive") 0);;pauses while command is active 
      (command pause) 
  ) 
 (setvar "dimldrblk" ".") ;;restore arrowhead 
 (setvar "clayer" CL);;restore layer
 (setq *error* OrigError);;restore default error handler 
 (princ)
)
;;---error handler for routine------- 
(defun *InsError* (msg) 
   (princ (strcat msg " ** CLeader Terminated **")) 
   (if CL (setvar "clayer" CL));;restore layer 
   (setvar "dimldrblk" ".") ;;restore arrowhead 
   (setq *error* OrigError) 
)