求加入字体大小

lzg8877

看看这个代码　怎么样改可以固定字体2.5高吗　不改变ＣＡＤ　原有字体
　我自己改了几天没成功！
　　(defun C:rt( / date0 pt0)
        (setq pt0 (getpoint "\n请指定插入位置点 :")
          wzgd (getvar "textsize"))
   (setq date0 (menucmd "M=$(edtime,$(getvar,date),YYYY\".\"M\".\"DD\" \")"))
    (command "text" "j" "bl"  pt0 wzgd 0 date0   )
    (princ)
)

zyhandw

不太理解你说的意思，如果只想固定文字高度为2.5，直接改这一句：
(command "text" "j" "bl"  pt0 wzgd 0 date0   )==>为
(command "text" "j" "bl"  pt0 2.5 0 date0   )
如果想新注记的文字为2.5，注记完再改回原来默认的文字高度，可以这样改：
(defun C:rt( / date0 pt0)
   (setq pt0 (getpoint "\n请指定插入位置点 :")
         wzgd (getvar "textsize"))
   (setvar "textsize" 2.5)
   (setq date0 (menucmd "M=$(edtime,$(getvar,date),YYYY\".\"M\".\"DD\" \")"))
   (command "text" "j" "bl"  pt0 "" 0 date0)
   (setvar "textsize" wzgd)
   (princ)
)

ll_j

ACAD在使用TEXT命令时，根据STYLE的定义不同会出现参数数量不同的情况，所以，想程序与STYLE设置无关，就不要使用TEXT命令，建议使用entmake的方法来输出。

lzg8877

回来晚了　谢谢大家