创建新文字样式

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
         ) 
      )
  )
)