将文本转换为属性

rustym · 发表于 2022-7-5 16:26:45

我正在为下一个dwg创建从tag_1到tag_6，然后从tag_7到tag_12的块，以此类推，并花时间重命名每个块的所有标记。因此，我喜欢在excel中创建我的tag_1到tag_40，将其复制到Autocad，分解为单行txt，然后将文本转换为我的属性标记，然后只需使每个块包含6个标记。

我找到了一个txt2att。lsp，但它将txt转换为属性值，并将标记名设置为“label”。我需要它将单行文本转换为属性标记。

Thanx获取任何建议或lisp程序：眨眼：

Lee Mac · 发表于 2022-7-5 16:31:58

又快又脏：

copy


(defun c:txt2tag (/ oldcmd ss)
 (setq oldcmd (getvar "CMDECHO")) (setvar "CMDECHO" 0)
 (if (setq ss (ssget (list (cons 0 "TEXT")
   (if (getvar "CTAB")(cons 410 (getvar "CTAB"))
      (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
      (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    (command "-attdef" "" (cdr (assoc 1 (entget e))) "" ""
         (cdr (assoc 10 (entget e))) "")
    (entdel e)))
   (princ "\n<!> No Text Selected <!>"))
 (setvar "CMDECHO" oldcmd)
 (princ))

rustym · 发表于 2022-7-5 16:33:40

你是一个明星李麦克。非常感谢你！！

Lee Mac · 发表于 2022-7-5 16:37:15

没问题很乐意帮忙

rustym · 发表于 2022-7-5 16:40:31

是否可以使其一次选择多个文本。我似乎认为它应该这样做，但它给出了一个错误，只是转换其中一个。

又是thanx

Lee Mac · 发表于 2022-7-5 16:43:45

当我在多个文本对象上尝试它时，它似乎对我有效-它会产生什么错误？

rustym · 发表于 2022-7-5 16:48:54

以下是选择2个对象后的文本，然后在输入旋转后仅继续转换选定的1个对象：

命令：TXT2TAG
选择对象：找到1个

选择对象：找到1个，共2个

选择对象：
需要有效的数字角度或第二个点。
; 错误：功能已取消

指定文字的旋转角度：

David Bethel · 发表于 2022-7-5 16:50:30

你可能想看看这里：

http://www.cadtutor.net/forum/showthread.php?t=28205&highlight=txt2attd

-大卫

rustym · 发表于 2022-7-5 16:52:44

谢谢，甚至没有通过搜索找到那个帖子。。。无论如何，这工作得更好，因为它添加了提示以及不要求旋转开关在我的情况下是不必要的，但不幸的是，没有转换多个选定的文本。

David Bethel · 发表于 2022-7-5 16:57:19

尝试此选项进行多项选择

copy


[b][color=BLACK]([/color][/b]defun c:txt2atta [b][color=FUCHSIA]([/color][/b]/ ss i en ed[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not ss[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect TEXT to Convert to ATTDEF:   "[/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]"TEXT"[/color][b][color=BLUE])[/color][/b]
                              [b][color=BLUE]([/color][/b]if [b][color=RED]([/color][/b]getvar [color=#2f4f4f]"CTAB"[/color][b][color=RED])[/color][/b]
                                  [b][color=RED]([/color][/b]cons 410 [b][color=PURPLE]([/color][/b]getvar [color=#2f4f4f]"CTAB"[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                  [b][color=RED]([/color][/b]cons 67 [b][color=PURPLE]([/color][/b]- 1 [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"TILEMODE"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][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]setq i [b][color=NAVY]([/color][/b]sslength ss[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]minusp [b][color=GREEN]([/color][/b]setq i [b][color=BLUE]([/color][/b]1- i[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 en [b][color=MAROON]([/color][/b]ssname ss i[b][color=MAROON])[/color][/b]
              ed [b][color=MAROON]([/color][/b]entget en[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]wcmatch [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 1 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [color=#2f4f4f]"* *"[/color][b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]alert [color=#2f4f4f]"\nString Contains Spaces - Try Again..."[/color][b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]progn
              [b][color=GREEN]([/color][/b]entmake [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"ATTDEF"[/color][b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 8 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 10 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 11 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 7 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 40 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 41 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 50 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 51 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]cons 70 0[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 71 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 72 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]cons 74 [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 73 ed[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]assoc 210 ed[b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]cons 1 [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]cons 2 [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 1 ed[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]cons 3 [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 1 ed[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]assoc 6 ed[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]assoc 6 ed[b][color=PURPLE])[/color][/b]'[b][color=PURPLE]([/color][/b]6 . [color=#2f4f4f]"BYLAYER"[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]assoc 39 ed[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]assoc 39 ed[b][color=PURPLE])[/color][/b]'[b][color=PURPLE]([/color][/b]39 . 0[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                             [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]assoc 62 ed[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]assoc 62 ed[b][color=PURPLE])[/color][/b]'[b][color=PURPLE]([/color][/b]62 . 256[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
              [b][color=GREEN]([/color][/b]entdel en[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]redraw[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-大卫

[编程交流] 将文本转换为属性

发表回复

精选推荐