当然是可以啊!
(defun c:*(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:")) (command "text" "s" "仿宋体" pt1 pause "0" "边钉线割") (print))
(defun c:T01(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:")) (command "text" "s" "仿宋体" pt1 pause "0" "导柱") (print)) (defun c:T02(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:")) (command "text" "s" "仿宋体" pt1 pause "0" "管位") (print)) (defun c:T03(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:")) (command "text" "s" "仿宋体" pt1 pause "0" "边钉") (print)) (defun c:T04(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:")) (command "text" "s" "仿宋体" pt1 pause "0" "杯头") (print)) (defun c:T05(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:")) (command "text" "s" "仿宋体" pt1 pause "0" "螺纹") (print)) (defun c:T06(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:")) (command "text" "s" "仿宋体" pt1 pause "0" "浮钉") (print))
其余的相同! |