需要紧急更改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-我很确定：

... 应该是这样的：

copy


(setq p (SSGET "X" '((0 . "TEXT")([color=red]7[/color] . "TEXT STYLE NAME"))))

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

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

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

我在试这个

copy


(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

发表回复

精选推荐