;变量反应器 free-Lancer
(defun blfyq(v1 v2 / s)
(setq s "F= $(getvar,filletrad) C= $(getvar,cham ...
V1,V2
是什么,没用的吧? (defun hm()
(setq modemacro-string "**土地复丈外业程序**") ;显示在左下角
(setvar "modemacro" modemacro-string) ;(setvar "系统变量" 值) 设定该系统变量的值
)
页:
1
[2]