社区 › Auto Lisp › 创建新文字样式

tgibbo 发表于 2022-7-5 19:39:19

创建新文字样式

有人能告诉我为什么我运行这个程序时出错吗。
错误是“坏的DXF组：（73.3.0）如果我为null 73，则显示72的相同错误。
我正在尝试创建一种居中/居上对齐的文本样式
 
(defun c:Delta2 ()
(if (not (tblsearch "STYLE" "Delta2"))
(entmake '((0 . "STYLE")
         (100 . "AcDbSymbolTableRecord")
         (100 . "AcDbTextStyleTableRecord")
         (2 . "Delta2") ;STYLE NAME
         (3 . "Calibri.ttf") ;FONT NAME
         (70 . 0)
         (73 . 3.0) ;VERTICAL JUSTIFICATION
         (72 . 1.0) ;HORIZONTAL JUSTIFICATION                        
         (40 . 0.0)
         (41 . 1.0)
         (50 . 0.0) ;TEXT ROTATION

         )
      )
)
)
 
当做
托尼

David Bethel 发表于 2022-7-5 19:59:57

除非多年来有所改变，否则样式表定义没有第72组和第73组。文本实体，而不是表格-大卫

tgibbo 发表于 2022-7-5 20:23:05

谢谢大卫的建议。
我没有意识到这一点。关于文本对齐，我必须尝试另一种方法。
我在想，我可以做一个带有特定理由的文本样式。

David Bethel 发表于 2022-7-5 20:36:41

这里有一个用于ATTDEF和ATTRIBs。将文本实体的组74更改为73。我对MTEXT一无所知
 
HTH-David

Lee Mac 发表于 2022-7-5 20:44:13

FWIW，这里有一个参考，详细介绍了样式图元的可用DXF组码：
 
http://exchange.autodesk.com/autocad/enu/online-help/browse#WS1a9193826455f5ff18cb41610ec0a2e719-7a4d。htm

查看完整版本: 创建新文字样式