如何得到当前默认单位

showshong

大家好！

一个简单的问题，我想在visual lisp里面如何得到当前CAD图的默认单位，如是毫米还是米等；同时如何改变他，运行程序后再恢复，非常感谢。

tryhi

2. (setq ins '("无单位""英寸""英尺""英里""毫米""厘米""米""公里""微英寸""英里""码""埃""毫微米""微米""分米""十米""百米""百万公里""天文单位""光年" "秒差距"))
   
3. (alert(strcat"当前的图形单位为："(nth (getvar "INSUNITS")ins)))
   
4. (alert"将图形单位设置为：英寸")
   
5. (setvar "INSUNITS" 1)
   
6. )

(setq ins '("无单位""英寸""英尺""英里""毫米""厘米""米""公里""微英寸""英里""码""埃""毫微米""微米""分米""十米""百米""百万公里""天文单位""光年" "秒差距"))<br /> (alert(strcat"当前的图形单位为："(nth (getvar "INSUNITS")ins)))<br /> (alert"将图形单位设置为：英寸")<br /> (setvar "INSUNITS" 1)<br /> )

showshong

tryhi 发表于 2016-4-20 14:59

有点不明白，我是想知道现在的单位，自己做一个判断，能否麻烦高手讲讲这代码啥意思啊。

showshong

金币不够不能评分，非常抱歉。