cad数字加减乘除lisp_求两个cad lsp。1.cad中几个数字相乘。2.cad中几个数字做除法。并且都能控制小数点后的位数...

展开全部

(defun C:CY1 ( / #os1 #os2 #os3 @k)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(setvar "dimzin" 0)

(vl-load-com) ;;加载vlax扩展函数

(setq #os1 (getvar "osmode"))

(setq #os2 (getvar "Clayer")

#os3 (getvar "textstyle"); 取得当前字体样式

)

(initget "X S")

(setq @k (getkword (strcat "\n请选择32313133353236313431303231363533e58685e5aeb931333337383863方式[数值相乘(X)/数值除以(S)]:")))

(if (= @k nil) (setq @k "X") )

(setq @k (strcase @k))

(setvar "osmode" 0)

(if (= @k "X") (CY2) )

(if (= @k "S") (CY4) )

(setvar "osmode" #os1)

(setvar "Clayer" #os2)

(setvar "textstyle" #os3)

(prin1)

)

(defun CY2 ( / #k1 #k2 &k1 &kw1 s