复制块内的文本

Freerefill · 发表于 2022-7-6 14:38:36

我昨晚睡得不多，我知道有一个简单的方法可以做到这一点。。。

复制文本的简单方法是什么？我知道“Ctrl+C”，实际上我在要求一些不同的东西。使用（nentsel）（谢谢李^。^）可以获得被阻止文本位的数据。。如果要在完全相同的位置创建一段大小和内容完全相同的新文本。。现在，我创建了一段新的文本，然后匹配VLA属性，比如，

（vla put InsertionPoint lasEnt（vla get InsertionPoint ent））

我对每一个必要的属性都这样做。。有更好的方法吗？（命令“copy”）是否适用于此，即使它是填充在块中的文本？

谢谢^。^

Commandobill · 发表于 2022-7-6 15:14:15

实际上，我这个周末创建了一个lisp。。。那么，您希望只复制文本还是嵌套在块中的文本？因为如果只是文本，我会考虑copybase。如果没有，我可以在早上给你Lisp程序

Lee Mac · 发表于 2022-7-6 15:34:39

当你说“复制一个属性”时，如果你想返回一个新属性，那么我只是在胡闹：

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ctxt  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] doc spc tEnt tObj[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] doc [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-Acad-Object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       spc [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]zerop[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-activespace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-mspace[/color][/b] doc[b][color=RED])[/color][/b] :vlax-true[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-paperspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nentsel[/color][/b] [b][color=#ff00ff]"\nSelect Text Object: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                  [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"TEXT"[/color][/b] [b][color=#ff00ff]"MTEXT"[/color][/b] [b][color=#ff00ff]"ATTRIB"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tObj [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"TEXT"[/color][/b] [b][color=#ff00ff]"MTEXT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]vla-move[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]vla-copy[/color][/b] tObj[b][color=RED])[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] tObj[b][color=RED])[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect New Location: "[/color][/b]
                      [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b]T
            [b][color=RED]([/color][/b][b][color=BLUE]vla-move[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]vla-addAttribute[/color][/b] spc
                [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Height[/color][/b] tObj[b][color=RED])[/color][/b] [b][color=#009900]0[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]vla-get-TagString[/color][/b] tObj[b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] tObj[b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=BLUE]vla-get-TagString[/color][/b] tObj[b][color=RED])[/color][/b] [b][color=#ff00ff]""[/color][/b][b][color=RED])[/color][/b]
                        [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] tObj[b][color=RED])[/color][/b]
                          [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b]
                            [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect New Location: "[/color][/b]
                              [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray->list[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
                                  [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] tObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<!> Incorrect Selection <!>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Lee Mac · 发表于 2022-7-6 15:52:49

我猜你更喜欢这样的事情：

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ctxt  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] doc spc tEnt tObj mtxt[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] doc [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-Acad-Object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       spc [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]zerop[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-activespace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-mspace[/color][/b] doc[b][color=RED])[/color][/b] :vlax-true[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-paperspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nentsel[/color][/b] [b][color=#ff00ff]"\nSelect Text Object: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                  [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"TEXT"[/color][/b] [b][color=#ff00ff]"MTEXT"[/color][/b] [b][color=#ff00ff]"ATTRIB"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tObj [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"TEXT"[/color][/b] [b][color=#ff00ff]"MTEXT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]vla-move[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]vla-copy[/color][/b] tObj[b][color=RED])[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] tObj[b][color=RED])[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect New Location: "[/color][/b]
                      [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] tEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b]T
            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] mtxt
              [b][color=RED]([/color][/b][b][color=BLUE]vla-addMText[/color][/b] spc
                [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] tObj[b][color=RED])[/color][/b] [b][color=#009900]0[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]vla-get-TextString[/color][/b] tObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]vla-put-layer[/color][/b] mtxt [b][color=RED]([/color][/b][b][color=BLUE]vla-get-layer[/color][/b] tObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]vla-put-StyleName[/color][/b] mtxt [b][color=RED]([/color][/b][b][color=BLUE]vla-get-StyleName[/color][/b] tObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]vla-put-color[/color][/b] mtxt [b][color=RED]([/color][/b][b][color=BLUE]vla-get-color[/color][/b] tObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]vla-put-height[/color][/b] mtxt [b][color=RED]([/color][/b][b][color=BLUE]vla-get-height[/color][/b] tObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]vla-move[/color][/b] mtxt
              [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] mtxt[b][color=RED])[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect New Location: "[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray->list[/color][/b]
                      [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
                        [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] mtxt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<!> Incorrect Selection <!>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[编程交流] 复制块内的文本

发表回复

精选推荐