请问ssget如何调用变量? (己解決 谢谢)
本帖最后由 lincctw_ccl 于 2011-6-10 11:11 编辑下列程序为偏移并倒R角,在后段ssget时
有些疑问,请各位指导一下 问题1 ssget如何调用rval 变量?
谢谢!!
(defun c:tt(/ ven pt1 el rsa);;;
(if (= rval nil) (setq rval 4.00))(princ "\n半径 <")(princ rval)(setq answer_rval(getstring ">: "))(if (/= (atof answer_rval) 0.00)(setq rval(atof answer_rval)));;;;;(setq rsa (ssget (list'(0 . "arc")(cons 40 rval)))) ;;調用變數的寫法(command "chprop" rsa "" "C" "1"""))(setvar "cmdecho" 1)(setvar "FILLETRAD" FILLETRAD_old)(princ))
页:
[1]