LD lisp-帮助
大家好！！你好吗
我需要帮助来控制代码的文本大小。
有人能帮我吗？
(defun C:ld (/ osm pt prf suf)
(vl-load-com)
(defun *error* (msg)
(if osm
(progn (setvar "osmode" osm) (setvar "cmdecho" 1))
)
(or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
(princ (strcat "\n** Error: " msg " **"))
)
(princ)
)
(if (not num)
(setq num 1)
)
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(if (and (/= (setq prf (getstring t "\n Type prefix : ")) "")
(/= (setq suf (getstring t "\n Type suffix : ")) "")
(setq num (cond ((getint (strcat "\n Enter an initial number < "
(itoa num)
" > : "
)
)
)
(t num)
)
)
)
(while
(setq
pt (getpoint
"\nSpecify leader start point: (or hit ENTER to Exit) :"
)
)
(command "._leader" "_non"
pt
pause
""
(strcat prf " " (itoa num) " " suf)
""
)
(setq num (1+ num))
)
)
(setvar "cmdecho" 1)
(setvar "osmode" osm)
(princ)
)
(princ "\nStart command with LD")
(princ)
当做 变量呢。
DIMTXT
页:
[1]