请帮此程序加上一个zoom的功能!!(已自行解決,謝謝)

lincctw_ccl

大家好!!

下列程序 有哪位大哥有空可帮忙追加

将 "每个文字" 左下 右上 zoom 成最大 (或不限点 只要能将文字zoom 成屏幕那么大就好了)

谢谢

(defun c:tt (/ )

(setvar "osmode" 0)

(setvar "blipmode" 0)

(setvar "OrthoMode" 0)

(setvar "cmdecho" 0)

(command "_ucs" "w")

(prompt "\n框选设定范围:")

(setq pt1 (getpoint))

(setq pt3 (getcorner pt1))

(setq ss(ssget "w" pt1 pt3 '((0 . "text"))))

(progn

(setq i  0  n (sslength ss))

(repeat n

(setq en(ssname ss i))

(setq viewname(cdr(assoc 1 (entget en))))

(command "-view" "s" viewname)

(setq i (1+ i))

)

)

(princ)

(setvar "cmdecho" 1)

)

mandala

没用过view……看看加上(command "zoom" pt1 pt3)行不行？

lincctw_ccl

mandala 发表于 2011-9-9 09:55
没用过view……看看加上(command "zoom" pt1 pt3)行不行？

谢谢指导!!
应该是不行的
我题意说明不清,不好意思
应该是zoom 每个字成最大

cabinsummer

你用下textbox函数

lincctw_ccl

cabinsummer 发表于 2011-9-14 07:47
你用下textbox函数

謝謝指點
已查到textbox的用法了