社区 › Auto Lisp › 需要紧急更改lisp

Tharwat 发表于 2022-7-6 09:28:04

fab，欢迎来到论坛。
 
试着习惯于将变量本地化，以避免在例程中出现任何错误和奇怪的反应，请使用
这个
codes here 包装代码以获得良好的阅读和外观。
 
塔瓦特

SLW210 发表于 2022-7-6 09:29:22

blackeagle1245&fab30请阅读。

fab30 发表于 2022-7-6 09:33:29

谢谢，新发布的帖子

BlackBox 发表于 2022-7-6 09:35:50

@Fab30-我很确定：
 
 
... 应该是这样的：
 

(setq p (SSGET "X" '((0 . "TEXT")(7 . "TEXT STYLE NAME"))))

 
DXF代码8是对象的图层名称，而DXF代码7是文字样式名称。

gilsoto13 发表于 2022-7-6 09:39:27

嗨，塔瓦
你知道为什么你的程序不能使用true type字体吗？
 
我在试这个
 

(defun c:cgts6 nil
(vl-load-com)
;; Tharwat 04. 07. 2011
(vlax-for x
(vla-get-textstyles
               
(vla-get-activedocument
(vlax-get-acad-object))
            
)
   (if (eq (vla-get-fontfile x)
"simplex.shx")
   (vlax-put-property x 'fontfile
"arialn.ttf")
   )
)
(vla-regen
(vla-get-ActiveDocument
(vlax-get-acad-object))
            
acAllViewports
)
(princ)
)

 
但它根本不认识阿里亚龙。ttf公司

Tharwat 发表于 2022-7-6 09:45:45

 
你的问题似乎在挑战我。

gilsoto13 发表于 2022-7-6 09:49:04

完全我不是有意攻击你的。
 
只是我试过arialn。ttf和你知道。。。这是我的错。。。阿里亚伦。ttf是Arial窄字体，它是Arial字体家族的一部分，但我没有检查它实际上是在一个单独的文件arialn中。ttf不包括在我的字体支持文件夹中，现在我下载了它并将其放在我的支持文件夹中，您的例程运行得很好。
 
现在我遇到了另一个同样宽度的问题，但它似乎更难或不可能。。。谢谢你的回复。
 
 
 

查看完整版本: 需要紧急更改lisp