选项卡重命名lisp帮助

kddsuq2727 · 发表于 2022-7-5 13:17:24

大家好，我一直潜伏在这个网站周围，以及其他试图吸收尽可能多的知识。在花了相当长的时间试图修改和调整lisp以满足我的需要后，我觉得是时候引入大炮了，所以我来了。

我从一个lisp开始，它只需要选取一个选定的文本并将选项卡与之匹配。修改后的lisp使我能够提示我选择工作表编号，然后选择工作表名称，删除选项卡中不允许的任何宪章，并在编号和名称之间添加空格/连字符/空格。这就把我们带到了下一组hurtles，在不破坏文本的情况下，我希望能够在不必使用“StripMtext.lsp”的情况下拉入具有属性的文本和格式良好的多行文字

谢谢

dlanorh · 发表于 2022-7-5 13:26:11

通过使用（nentsel）并选择属性，可以直接访问块中的属性。请参阅下面的代码段

copy


(setq thestring (cdr (assoc 1 (entget (car (nentsel "\nSelect Attribute : "))))))

如果没有，则无法访问格式化多行文字的文本字符串

a）剥离格式

b）分解多行文字

可以将多行文字复制到适当的位置，然后分解副本，收集文本项并重新构造字符串，然后再将其删除，将原始多行文字保留在适当的位置。

kddsuq2727 · 发表于 2022-7-5 13:27:17

好的，我认为多行文字是通过简单的lisp无法实现的，我还假设我可以使用属性或简单文字编写多行文字，但不能使用或？

谢谢你的回复

kddsuq2727 · 发表于 2022-7-5 13:33:00

添加了感谢dlanorh

dlanorh · 发表于 2022-7-5 13:38:01

你可以使用多行文字，它只是更复杂的文本字符串，并可能会更容易使用Visual Lisp（activex）

由于对于非复杂实体，nentsel返回的结果与entsel相同，因此可以将所有结果合并为一个。

选择“文本”并获取对象类型和实体

copy


(setq ent_type (cdr (assoc 0 (entget (setq ent (car (nentsel "\nSelect Text : ")))))))

对这4种情况使用条件

copy


(cond ( (= ent_type "TEXT")
        ;code to get text string for text goes here
      )
      ( (= ent_type "MTEXT")
        ;code to get text string for mtext goes here
      )
      ( (= ent_type "ATTRIBUTE")
        ;code to get text string for attribute goes here     
      )
      ( 
        ;code for not a text entity goes here     
      )
);end_cond