liminnet
发表于 2008-7-29 09:28:00
liminnet
发表于 2008-7-29 10:17:00
caoyin
发表于 2008-7-29 10:33:00
删掉 (setvar "textsize" 500)
liminnet
发表于 2008-7-29 10:40:00
caoyin
发表于 2008-7-29 11:45:00
(defun c:tczw (/ ss ent str)<br/> (setvar "textsize" 500)<br/> (while (setq ss (entsel "\n点取对象: "))<br/> (setq ent (entget (car ss))<br/> str (cdr (assoc 8 ent))<br/> hi (getreal (strcat "\n请输入文字高度<" (rtos (if hi hi (getvar "textsize")) 2) ">:"))<br/> )<br/> (princ "***** 文字内容 = ") (princ str) (princ " *****")<br/> (if (= hi nil) (setq hi (getvar "textsize")) (setvar "textsize" hi))<br/> (IF (SETQ PT (GETPOINT "\n点取放置点: "))<br/> (command "-text" pt hi "" str)<br/> )<br/> )<br/> (princ)<br/>)
liminnet
发表于 2008-7-29 11:58:00
caoyin
发表于 2008-7-29 12:35:00
本帖最后由 作者 于 2008-7-29 13:48:53 编辑 <br /><br /> (defun c:tczw (/ ss ent str e)<br/> (setvar "textsize" 500)<br/> (setvar "cmdecho" 0)<br/> (while (setq ss (entsel "\n点取对象: "))<br/> (setq ent (entget (car ss))<br/> str (cdr (assoc 8 ent))<br/> hi (getreal (strcat "\n请输入文字高度<" (rtos (if hi hi (getvar "textsize")) 2) ">:"))<br/> )<br/> (princ "***** 文字内容 = ") (princ str) (princ " *****")<br/> (if (= hi nil) (setq hi (getvar "textsize")) (setvar "textsize" hi))<br/> (command "_.text" "_non" "0,0" hi "" str)<br/> (setq e (entlast))<br/> (command "_.cutclip" e "")<br/> (princ "\n点取放置点: ")<br/> (command "_.pasteclip" "\\")<br/> )<br/> (princ)<br/>)
liminnet
发表于 2008-7-29 14:49:00
页:
[1]