按块ed更改字体样式

wimal · 发表于 2022-7-5 15:23:06

即使我用块编辑器将此字体样式更改为URO标准，它也不会显示在图形中。有很多画我需要改变属性的字体。
是否有任何LISP代码来执行此操作。
图纸2.dwg

wimal · 发表于 2022-7-5 15:28:34

更多澄清

guran · 发表于 2022-7-5 15:31:23

打开“BATTMAN”，然后打开“Sync”

wimal · 发表于 2022-7-5 15:36:10

谢谢。
但是有一个错误。一些文本旋转正在改变。这可能是镜像块。我们能做什么。

rlx · 发表于 2022-7-5 15:39:20

在我的工作中，我必须从一个新的项目开始，所以不要认为我在接下来的几周/月里会有太多时间，但我已经写了一些东西来改变风格，经过一些修改，可能会对你有所帮助

http://www.cadtutor.net/forum/showthread.php?102696-AutoCAD-Lisp-Routine-to-change-all-attributes-text-to-a-style&高亮显示=更改+样式

gr.Rlx

guran · 发表于 2022-7-5 15:42:16

很抱歉，我找不到解决方案，但我认为这是因为块被镜像，可能会旋转。

guran · 发表于 2022-7-5 15:45:14

我发现如果你把旋转角度从270改为90，文本就会旋转回直角

wimal · 发表于 2022-7-5 15:48:40

你是对的。但在整个绘图中，我们怎么能发现方块，将文本旋转到270。
这就是为什么我们需要LISP代码。

ronjonp · 发表于 2022-7-5 15:49:58

如果将属性对正更改为左中，然后更改为ATTSYNC，则此问题就会消失。这里有一些代码

copy

(defun c:foo (/ s)
 (if (setq s (ssget ":L" '((0 . "insert") (2 . "drp"))))
   (foreach blk (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
     (if (vl-some '(lambda (x) (minusp (cdr (assoc x (entget blk))))) '(41 42 43))
(foreach a (vlax-invoke (vlax-ename->vla-object blk) 'getattributes)
  (vla-put-rotation a (rem (vla-get-rotation a) pi))
)
     )
   )
 )
 (princ)
)(vl-load-com)

rlx · 发表于 2022-7-5 15:55:36

很好的方法，Ron，我将在周一的工作中尝试这个方法，因为直到现在（我想）如果我记得正确的话，我只是剪切/粘贴了整个dwg（不确定我在工具栏按钮下放置了什么来修复对齐）。。。也许我得减少按钮的数量。

gr.Rlx

[编程交流] 按块ed更改字体样式

发表回复

精选推荐