改变atuolisp中字体大小和字型是怎么做的？

jacksion · 发表于 2003-7-25 10:31:00

麻烦大家告诉我，改变atuolisp中字体大小和字型是怎么做的？谢谢！
程序替我编写一段吧！谢谢！

虚词 · 发表于 2003-7-25 11:27:00

1） (setvar "textstyle" "XXX") ，XXX指定字体。
2） (command "text" pt0 "mc" "H" 5.0 STRING "")，"H" 5.0设定字高。

meflying · 发表于 2003-7-25 12:05:00

(defun c:ed( / sname sinf h st m)
  (setq sname (car (entsel)))
  (setq sinf (entget sname))
  (setq h (getreal (strcat "\n输入新字高:")))
  (setq st (getstring (strcat "输入新字型:")))
  (setq m nil)
  (if h
(progn (setq m t)
(setq sinf (subst (cons 40 h) (assoc 40 sinf) sinf)))
  )
  (if (/= st "")
(progn (setq m t)
(setq sinf (subst (cons 7 st) (assoc 7 sinf) sinf)))
  )
  (if m
(entmod sinf)
  )
  (princ)
)

改变atuolisp中字体大小和字型是怎么做的？

发表回复

精选推荐