标注样式的替换LISP

abtjy

大家新年好！新的一年祝大家心想事成！我想请大家帮我写一个LISP，就是我一个档案里有三个标注样式UNIT1 UNIT2 UNIT3 ，我输入U1选中尺寸就变成UNIT1样式，我输入U2选中尺寸就变成UNIT2样式，我输入U3选中尺寸就变成UNIT3样式，谢谢！

ymeng

楼主试一下是这样吗？

(DEFUN C:U1( )(VL-CMDF "DIMSTYLE" "R" "UNIT1" ) (PRIN1))
(DEFUN C:U2( )(VL-CMDF "DIMSTYLE" "R" "UNIT2" ) (PRIN1))
(DEFUN C:U3( )(VL-CMDF "DIMSTYLE" "R" "UNIT3" ) (PRIN1))

abtjy

谢谢楼主，祝你新年事事顺心

jxphklibin

呵呵，编个程序啊，这些都是用到command，cad命令，最好不要用到