转换属性定义t

reynaldomalasag · 发表于 2022-7-5 17:24:42

David Bethel，这是你的代码吗？即使属性已经在块上，它也会起作用吗？对不起，我的英语：（

David Bethel · 发表于 2022-7-5 17:27:39

简而言之，“不”

最初的请求是转换ATTDEF。不是属性。

可以这样做，但必须制定某些标准。

[列表]

是要分解块还是只剥离属性？

是按原样保留的所有属性，还是与插入匹配
[/列表]

相当复杂的操作-大卫

reynaldomalasag · 发表于 2022-7-5 17:33:15

谢谢你的rply。。先生，你能帮我吗。。我需要一个代码，将属性转换为多行文字的
*块不会分解
*所有要按原样保留的属性。

我有一些密码给她。。但他们的错误。。呵呵呵呵

David Bethel · 发表于 2022-7-5 17:37:28

对不起，我对多行文字几乎一无所知。我有一些程序可以将正则文本属性转换为正则文本。

我担心，如果其中任何一个是多行文字样式的实体，它都会失败或崩溃。希望有人能帮忙。

我会在一段时间内发布我的内容-大卫

David Bethel · 发表于 2022-7-5 17:40:27

这是相当危险的事情。请备份原始文件

要将标准文本属性转换为独立的文本实体并将属性设置为“”：

copy


[b][color=BLACK]([/color][/b]defun c:att2txt [b][color=FUCHSIA]([/color][/b]/ ss i en an ad av td[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]defun remove [b][color=NAVY]([/color][/b]expr lst[b][color=NAVY])[/color][/b][color=#8b4513];;;TonyT or VNesterowski[/color]
   [b][color=NAVY]([/color][/b]apply 'append [b][color=MAROON]([/color][/b]subst nil [b][color=GREEN]([/color][/b]list expr[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]mapcar 'list lst[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect ATTRIBute INSERTs"[/color][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b]
                            [b][color=BLUE]([/color][/b]cons 66 1[b][color=BLUE])[/color][/b]
                            [b][color=BLUE]([/color][/b]cons 70 0[b][color=BLUE])[/color][/b]
                            [b][color=BLUE]([/color][/b]cons 71 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq an [b][color=GREEN]([/color][/b]entnext en[b][color=GREEN])[/color][/b]
                   ad [b][color=GREEN]([/color][/b]entget an[b][color=GREEN])[/color][/b]
                   av [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 1 ad[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]while [b][color=GREEN]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 0 ad[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]entmod [b][color=BLUE]([/color][/b]subst [b][color=RED]([/color][/b]cons 1 [color=#2f4f4f]""[/color][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]assoc 1 ad[b][color=RED])[/color][/b] ad[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq td ad[b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq td [b][color=BLUE]([/color][/b]remove [b][color=RED]([/color][/b]assoc  2 td[b][color=RED])[/color][/b] td[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq td [b][color=BLUE]([/color][/b]remove [b][color=RED]([/color][/b]assoc 70 td[b][color=RED])[/color][/b] td[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq td [b][color=BLUE]([/color][/b]subst  [b][color=RED]([/color][/b]cons 1 av[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]assoc 1 td[b][color=RED])[/color][/b] td[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq td [b][color=BLUE]([/color][/b]subst  [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]assoc 0 td[b][color=RED])[/color][/b] td[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq td [b][color=BLUE]([/color][/b]subst  [b][color=RED]([/color][/b]cons 73 [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 74 td[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                     [b][color=RED]([/color][/b]assoc 74 td[b][color=RED])[/color][/b] td[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]entmake td[b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq an [b][color=BLUE]([/color][/b]entnext an[b][color=BLUE])[/color][/b]
                          ad [b][color=BLUE]([/color][/b]entget an[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]entupd en[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.REGENALL"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

没有考虑多行文字（因为我对它们一无所知）

块定义没有修改，只有插入数据

祝你好运-大卫

[编程交流] 转换属性定义t

发表回复

精选推荐