AutoLISP将文本转换为bl

Stephen Shafer · 发表于 2022-7-6 09:25:34

好的，我四处搜索了一下，但显然没有正确的方法来表达这个。基本上我有电流AL来处理电流块。我有一个新客户，他向我提供了我通常会亲自输入的信息。我想让涉及AutoLISP的东西获取一段文本并将该信息放入当前块，或者当前AutoLISP可以处理的类似内容，这样我仍然可以从现在向我提供此信息的客户那里获得好处

wizman · 发表于 2022-7-6 09:36:48

托尼·霍奇基斯先生收到了短信2att。LSP看看cadalyst。通用域名格式

Stephen Shafer · 发表于 2022-7-6 09:43:04

维斯曼，这是一个很好的开始，谢谢你的领导。这实际上做了很多我需要它做的事情。它看起来也正是我需要的样子。现有块有三个属性，这有一个。基本上，我的当前块有街道名称（通过选择当前街道名称的块派生），然后是地址和单元数。我想做的是选择街道名称，然后选择一系列地址（当前在文本中），然后将所有这些信息放置在一个块中，每个文本块将类似于我的当前块，这样我就可以在其上使用另一个LISP。谢谢

wizman · 发表于 2022-7-6 09:45:48

斯蒂芬，请你贴一张带有属性块的示例图。所以这里的人可以看看你的目标。

cadplayer · 发表于 2022-7-6 09:54:54

我找不到lisp

内容提供商

Lee Mac · 发表于 2022-7-6 10:00:12

你想成为什么样的球童？

cadplayer · 发表于 2022-7-6 10:04:34

我认为用attribute在块中转换文本会很好。我在cadalyst上找不到这个工具。

Lee Mac · 发表于 2022-7-6 10:09:40

在块上使用BEDIT，然后使用它将文本转换为属性定义：

copy


[color=GREEN];;-------------------=={ Text 2 Attribute }==-----------------;;[/color]
[color=GREEN];;                                                            ;;[/color]
[color=GREEN];;  Converts single-line text to an attribute definition.     ;;[/color]
[color=GREEN];;------------------------------------------------------------;;[/color]
[color=GREEN];;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;[/color]
[color=GREEN];;------------------------------------------------------------;;[/color]
([color=BLUE]defun[/color] c:txt2att ( [color=BLUE]/[/color] el i ss st ) ([color=BLUE]vl-load-com[/color])
 
 ([color=BLUE]if[/color] ([color=BLUE]setq[/color] ss ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"TEXT"[/color]))))
   ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] ss))
     ([color=BLUE]setq[/color] el ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] ss ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i))))
           st ([color=BLUE]vl-string-translate[/color] [color=MAROON]" "[/color] [color=MAROON]"_"[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 1 el)))
     )
     ([color=BLUE]if[/color]
       ([color=BLUE]entmakex[/color]
         ([color=BLUE]append[/color] '((0 . [color=MAROON]"ATTDEF"[/color]))
           ([color=BLUE]vl-remove-if[/color] '([color=BLUE]lambda[/color] ( pair ) ([color=BLUE]member[/color] ([color=BLUE]car[/color] pair) '(0 100 73))) el)
           ([color=BLUE]list[/color]
             ([color=BLUE]cons[/color] 70  0)
             ([color=BLUE]cons[/color] 74 ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 73 el)))
             ([color=BLUE]cons[/color]  2 st)
             ([color=BLUE]cons[/color]  3 st)
           )
         )
       )
       ([color=BLUE]entdel[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] -1 el)))
     )
   )
 )
 ([color=BLUE]princ[/color])
)

cadplayer · 发表于 2022-7-6 10:17:10

是的，这很好。可以在一个块中做属性吗。
这意味着转换attribute中的文本并粘贴到块中。

Lee Mac · 发表于 2022-7-6 10:25:06

我想你的要求与我刚才提供的相反？是的，这是可能的，遵循与我之前代码中相同的方法。

[编程交流] AutoLISP将文本转换为bl

发表回复

精选推荐