合并Dimstyle和文字样式af

nababeer · 发表于 2022-7-5 20:38:01

两者均为标准字体-宋体

pBe · 发表于 2022-7-5 20:40:59

如果样式不是宋体，而是其他样式呢？这正是我在纳巴贝尔的目的，有一些条件需要首先解决。

彻底描述预期结果，而不是步骤。

你请求帮助，至少做你该做的。

nababeer · 发表于 2022-7-5 20:44:49

好的，pBe

我不知道条件，因为我不熟悉lisp。但实际情况是，我已经将所有文本样式的字体转换为Arial。ttf然后我使用我之前上传的lisp。在实际情况下，样式名称在$0$之后相似，而不是在我发送的图形之前。因此，带前缀的样式名称应合并为不带前缀的样式名称。然后我必须清除所有，以删除带有前缀的样式名称！
谢谢你的时间pBe

pBe · 发表于 2022-7-5 20:48:41

我所说的条件是指期望的结果，与编写代码无关。正如我所说，我们在这里试图使代码尽可能通用。

深吸一口气，想想最终的结果，这是一个简单的假设/然后/否则。。。不涉及编码，我试图在这里帮助您获得一个合适的解决方案nababeer。要有耐心。

nababeer · 发表于 2022-7-5 20:49:16

这就是我认为的程序：

Lee Mac · 发表于 2022-7-5 20:53:25

试试下面的nababeer，我希望它能有所帮助：

copy


([color=BLUE]defun[/color] c:mergedimtxt ( [color=BLUE]/[/color] cmd doc pos str )
   ([color=BLUE]setq[/color] doc ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color])))
   ([color=BLUE]foreach[/color] col '(textstyles dimstyles)
       (mergedimtxt:processcollection ([color=BLUE]vlax-get-property[/color] doc col))
   )
   ([color=BLUE]vlax-for[/color] blk ([color=BLUE]vla-get-blocks[/color] doc)
       ([color=BLUE]if[/color] ([color=BLUE]=[/color] [color=BLUE]:vlax-false[/color] ([color=BLUE]vla-get-isxref[/color] blk))
           ([color=BLUE]vlax-for[/color] obj blk
               ([color=BLUE]if[/color]
                   ([color=BLUE]and[/color]
                       ([color=BLUE]wcmatch[/color] ([color=BLUE]vla-get-objectname[/color] obj) [color=MAROON]"AcDb*Text,AcDb*Dimension"[/color])
                       ([color=BLUE]setq[/color] str ([color=BLUE]vla-get-stylename[/color] obj)
                             pos ([color=BLUE]vl-string-position[/color] 36 str [color=BLUE]nil[/color] [color=BLUE]t[/color])
                       )
                       ([color=BLUE]vlax-write-enabled-p[/color] obj)
                   )
                   ([color=BLUE]vla-put-stylename[/color] obj ([color=BLUE]substr[/color] str ([color=BLUE]+[/color] 2 pos)))
               )
           )
       )
   )
   ([color=BLUE]setq[/color] cmd ([color=BLUE]getvar[/color] 'cmdecho))
   ([color=BLUE]setvar[/color] 'cmdecho 0)
   ([color=BLUE]setvar[/color] 'textstyle [color=MAROON]"Standard"[/color])
   ([color=BLUE]command[/color] [color=MAROON]"_.-dimstyle"[/color] [color=MAROON]"_r"[/color] [color=MAROON]"Standard"[/color] [color=MAROON]"_.-purge"[/color] [color=MAROON]"_r"[/color] [color=MAROON]"*"[/color] [color=MAROON]"_n"[/color] [color=MAROON]"_.-purge"[/color] [color=MAROON]"_a"[/color] [color=MAROON]"*"[/color] [color=MAROON]"_n"[/color])
   ([color=BLUE]setvar[/color] 'cmdecho cmd)
   ([color=BLUE]vla-regen[/color] doc [color=BLUE]acallviewports[/color])
   ([color=BLUE]princ[/color])
)
([color=BLUE]defun[/color] mergedimtxt:processcollection ( col [color=BLUE]/[/color] pos str )
   ([color=BLUE]vlax-for[/color] obj col
       ([color=BLUE]if[/color]
           ([color=BLUE]and[/color]
               ([color=BLUE]setq[/color] str ([color=BLUE]vla-get-name[/color] obj)
                     pos ([color=BLUE]vl-string-position[/color] 36 str [color=BLUE]nil[/color] [color=BLUE]t[/color])
               )
               ([color=BLUE]vl-catch-all-error-p[/color] ([color=BLUE]vl-catch-all-apply[/color] '[color=BLUE]vla-item[/color] ([color=BLUE]list[/color] col ([color=BLUE]substr[/color] str ([color=BLUE]+[/color] 2 pos)))))
           )
           ([color=BLUE]vla-put-name[/color] obj ([color=BLUE]substr[/color] str ([color=BLUE]+[/color] 2 pos)))
       )
   )
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])