lzg8877 发表于 2013-1-6 07:27:02

求加入字体大小

看看这个代码　怎么样改可以固定字体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 发表于 2013-1-6 08:51:33

不太理解你说的意思，如果只想固定文字高度为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 发表于 2013-1-6 11:39:47

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

lzg8877 发表于 2013-1-6 20:01:07

回来晚了　谢谢大家
页: [1]
查看完整版本: 求加入字体大小