最好的方法是编写参数可变的函数IMHO
像这样方便的东西
(你可以在上面写上类似的内容,以便输入)
- ;;author unknown
- (defun text-draw (txt pnt height rotation justification)
- (if (null pnt)(command "_.-TEXT" "" txt)
- (if (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))
- 0.0
- )
- (progn
- (if justification
- (command "_.-TEXT" "_J" justification "_none" pnt height rotation txt)
- (command "_.-TEXT" "_none" pnt height rotation txt)
- )
- )
- (progn
- (if justification
- (command "_.-TEXT" "_J" justification "_none" pnt rotation txt)
- (command "_.-TEXT" "_none" pnt rotation txt)
- )
- )
- )
- )
- (entlast)
- )
~'J'~ |