在lisp中获取dwg单位（公制/i
我有一个自定义的引线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)
)
克莱德。图纸 （getvar“LUNITS”） 隐马尔可夫模型。。。LUNITS只告诉我是否：
1科学
2十进制
3工程
4建筑
5分数
它不会告诉我dwg是公制还是英制。 （getvar“MEASUREMENT”）对于英制单位返回0，对于公制单位返回1。 （getvar“测量”） 谢谢我现在明白了。 致VovKa
我看到你在一分钟后发布了与我相同的答案。没有必要删除你自己的帖子。这个论坛充满了重复的答案。 好的，谢谢福卡罗，我会照古人所说的去做——“重复就是学习”
页:
[1]