[求助][LISP]關於尺寸換算的2個命令自動化

alan_cmh

由於工作中经常接触各类图纸，公英制都有，经常需要换算尺寸，因此我编制了以下2个lisp命令来避免频繁的修改尺寸属性，DTI 是在公制图纸中将尺寸增加英制换算的命令，DTM 则是在英制图纸中将尺寸增加公制换算的命令，请哪位帮忙，将之合并成一个命令，自动判断当前尺寸的公制英制并追加相对应的换算单位，谢谢！ (defun c:dti ()
(setvar "cmdecho" 0)
(command "dimoverride"
"DIMalt"
"1"
"dimaltF"
"0.03937007874015748031496062992126"
"dimaltu"
"7"
"dimapost"
"\""
"dimaltd"
"4"
""
(ssget)
""
)
(PRINC)
) (defun c:dtm ()
(setvar "cmdecho" 0)
(command "dimoverride"
"DIMalt"
"1"
"dimaltu"
"2"
"dimaltd"
"1"
"dimaltF"
"25.4"
"DIMZIN"
"8"
"dimapost"
"mm"
""
(ssget)
""
)
(PRINC)
)

alan_cmh

怎麼沒人幫忙啊？

BDYCAD

加上IF 判决就解决了 , 题外话. 怎么楼主也和我一样用繁体操作系统啊. (DEFUN C:DTI()
(SETVAR "CMDECHO"0)
(IF (= (GETVAR "MEASUREMENT")1)
(VL-CMDF "dimoverride""DIMalt""1""dimaltF"
"0.03937007874015748031496062992126"
"dimaltu" "7""dimapost" "\"""dimaltd" "4" ""(ssget "X") "")
(command "dimoverride""DIMalt""1""dimaltu"
"2" "dimaltd""1" "dimaltF" "25.4" "DIMZIN" "8""dimapost" "mm" "" (ssget "X") "")
)
(SETVAR "CMDECHO"1)
(PRINC))