怎样根据已有文字样式创建一个新样式？

wharan

AutoCAD的已有文字样式，根据已有样式创建一个新字体，仅仅改变宽度因子。比如系统已有文字样式“Standard",字体文件分别是“txt.shx”和“hztxt.shx”,根据这个文字样式创建一个新样式“Standard01"，只改变“Standard"的宽度因子，其他定义参数如字体、大小、效果等保持不变。


怎样用简单程序完成上述功能？
我用了一个笨方法：取得已有文字样式参数，重建一个新样式。代码亟待优化。

2. ;;以已有文字样式为模板创建新文字样式
   
3. (defun Style2Style (Ostyle   Nstyle        width     /
   
4.         styleObj   name        BigFontFile  fontfile
   
5.         Height   width        TextGenerationFlag
   
6.         obj
   
7.        )
   
8.   (vl-load-com)
   
9.   (if (tblobjname "STYLE" Nstyle)
   
10.     (progn
    
11.       (setq
    
12.   styleObj (vlax-ename->vla-object (tblobjname "style" Nstyle))
    
13.       )
    
14.       (vla-put-Width styleObj width)
    
15.     )
    
16.     (progn
    
17.       (setq
    
18.   styleObj (vlax-ename->vla-object (tblobjname "style" Ostyle))
    
19.       )
    
20.       (setq name (vla-get-name styleObj))
    
21.       (setq BigFontFile (vla-get-BigFontFile styleObj))
    
22.       (setq fontfile (vla-get-fontfile styleObj))
    
23.       (setq Height (vla-get-Height styleObj))
    
24.       (setq TextGenerationFlag (vla-get-TextGenerationFlag styleObj))
    
25. 
    
26.       (setq
    
27.   obj (vla-add (vla-get-TextStyles
    
28.            (vla-get-ActiveDocument (vlax-get-acad-object))
    
29.          )
    
30.          Nstyle
    
31.       )
    
32.       )
    
33.       (vla-put-Width Obj width)
    
34.       (vla-put-BigFontFile Obj BigFontFile)
    
35.       (vla-put-fontfile Obj fontfile)
    
36.       (vla-put-Height Obj Height)
    
37.       (vla-put-TextGenerationFlag Obj TextGenerationFlag)
    
38.     )
    
39.   )
    
40. )
    

;;以已有文字样式为模板创建新文字样式<br /> (defun Style2Style (Ostyle   Nstyle        width     /<br />         styleObj   name        BigFontFile  fontfile<br />         Height   width        TextGenerationFlag<br />         obj<br />        )<br />   (vl-load-com)<br />   (if (tblobjname "STYLE" Nstyle)<br />     (progn<br />       (setq<br />   styleObj (vlax-ename->vla-object (tblobjname "style" Nstyle))<br />       )<br />       (vla-put-Width styleObj width)<br />     )<br />     (progn<br />       (setq<br />   styleObj (vlax-ename->vla-object (tblobjname "style" Ostyle))<br />       )<br />       (setq name (vla-get-name styleObj))<br />       (setq BigFontFile (vla-get-BigFontFile styleObj))<br />       (setq fontfile (vla-get-fontfile styleObj))<br />       (setq Height (vla-get-Height styleObj))<br />       (setq TextGenerationFlag (vla-get-TextGenerationFlag styleObj))<br /> <br />       (setq<br />   obj (vla-add (vla-get-TextStyles<br />            (vla-get-ActiveDocument (vlax-get-acad-object))<br />          )<br />          Nstyle<br />       )<br />       )<br />       (vla-put-Width Obj width)<br />       (vla-put-BigFontFile Obj BigFontFile)<br />       (vla-put-fontfile Obj fontfile)<br />       (vla-put-Height Obj Height)<br />       (vla-put-TextGenerationFlag Obj TextGenerationFlag)<br />     )<br />   )<br /> )<br />

ssyfeng

直接修改字体样式宽度因子就好啦，修改字体很难的

mikewolf2k

没有简单程序。如果一定要做，要反编译形文件，看里面具体怎么写的。如果运气好，形文件里用了通用的高宽代码，那么修改这一段即可，否则就要修改每一个字符。然后再编译形文件。

wharan

mikewolf2k 发表于 2022-6-15 09:50
没有简单程序。如果一定要做，要反编译形文件，看里面具体怎么写的。如果运气好，形文件里用了通用的高宽代 ...

可能没能理解我的意思

自贡黄明儒

Ostyle如果己经存在，是不是要先删除？

wharan

自贡黄明儒 发表于 2022-6-17 22:22
Ostyle如果己经存在，是不是要先删除？

不需要删除，做这个的目的是为了修改AutoCAD和天正的多行文字。