请教各位高手：如何用lisp程序实现对style命令的定义???

bd_lhq · 发表于 2002-11-19 17:15:00

我在 12下用autolisp很容易修改字体的大小等参数（command"style"....)
可是现在autocad 14(autocad2000)中，style 命令出来的对话框，我多次尝试用
(command"style" "standard" "txt,hztxt" "30.0" "0.8" "0" "n" "n" )等等各种方法
来实现用lisp修改字体的大小，最终总是失败！
请教各位高手，如何用lisp程序实现对字体的修改？？？
我的地址：bd_hd001@sohu.com

cy956 · 发表于 2002-11-20 13:45:00

(defun #m_style(stynam styw styo styxw styzw / en);;造字型
  (setq e(tblobjname "style" stynam))
  (if e (progn
(setq en(entget e)
      en(cy_asubst en(list
         (cons 2 stynam)
         (cons 41 styw)
         (cons 50 styo)
         (cons 3 styxw)
         (cons 4 styzw))))
(entmod en))(progn
(setq en(list
         '(0 . "STYLE")
         '(100 . "AcDbSymbolTableRecord")
         '(100 . "AcDbTextStyleTableRecord")
         (cons 2 stynam)
         '(70 . 0)
         '(40 . 0)
         (cons 41 styw)
         (cons 50 styo)
         '(71 . 0)
         (cons 3 styxw)
         (cons 4 styzw)))
(entmake en)
  ) )
)
;;(#m_style "ddd" 0.8 0 "romans.shx" "dxfs.shx")没有后者为西文romans,romanc,standard,
;;;;建立字型
(#m_style "standard" 0.6 (/ pi 12) "romans.shx" "")
(#m_style "dxfs" 0.7 0 "romans.shx" "dxfs.shx")
(#m_style "s" 1 0 "romanc.shx" "s.shx")
(setvar "textstyle" "dxfs")

Hart · 发表于 2002-11-20 08:41:00

把style命令写成"-style"，对话框就会以命令行方式显示。再按你上面写的程序就可以对字体样式进行设置了。

wzh · 发表于 2002-11-20 21:44:00

我在使用LISP设置字型时,TTF后缀的文件没有问题,但在设置宋体字时则出现问题,我看了一下宋体字的文件后缀为TTC(simsun.ttc),我是在windowsXP下使用autocad2002编程,请问这是什么原因?

cy956 · 发表于 2002-11-21 00:04:00

我提供的lisp做style的程序，用于shx工作正常，用于ttf则说不清，
有时cad还会崩溃；后来试着直接用style命令，居然也崩溃。反正平时
不用ttf，用style都会崩溃大概就只能自己意会了，所以一直没问过。
这样情况各位遇到过吗？

ll_j · 发表于 2002-11-21 10:06:00

(defun c:msty ()
  (setq stynam (getstring "\nStyle name: "))
  (entmake
(list
   '(0 . "STYLE")
   '(5 . "28")
   '(100 . "AcDbSymbolTableRecord")
   '(100 . "AcDbTextStyleTableRecord")
   (cons 2 stynam)
   '(70 . 0)
   '(40 . 0.0)
   '(41 . 0.6)
   '(50 . 0.161799)
   '(71 . 0)
   '(42 . 3.0)
   '(3 . "@楷体_GB2312")
   '(4 . "")
)
  )
  (setvar "textstyle" stynam)
)
直接用以上代码定义，我在R14中通过，虽然，在Style对话框中显示不对（显示“ @楷体_GB2312.shx”），但写字是对的。而用style定义时，直接写成“(command "style" "aa" "@宋体" "" "" "" "" "" "")”就可以了。

龙龙仔 · 发表于 2002-11-21 11:12:00

我這樣做OK!!(#m_style "dxs" 0.7 0 "標楷體" "")(#m_style "xs" 0.7 0 "simsun" "")[br]

bd_lhq · 发表于 2002-11-22 10:27:00

谢谢诸位的帮助！！！

请教各位高手：如何用lisp程序实现对style命令的定义???

发表回复

精选推荐