需要转换的例程

RickyD302 · 发表于 2022-7-6 09:39:59

我正在寻找一个例程或lisp，vba。net将我在表格单元格中使用的公式和字段转换为显示值但仍保持表格的简单文本。
我总是可以把桌子炸开，但是。。。。我有一些例程可以将多行文字中的字段转换为文本，但我似乎找不到任何表的代码，也没有足够的经验编写自己的代码。TIA

SOliver · 发表于 2022-7-6 09:50:23

这会让你上路：

运行脚本之前。为了以防万一，我现在已经将其添加到上述来源中

RickyD302 · 发表于 2022-7-6 09:55:46

试试这个VB。Net代码，刚刚快速测试

copy

SOliver · 发表于 2022-7-6 10:02:09

谢谢李，这也很有效，但它花了很长时间运行。Windows 72011 64位。这个网络速度快得多。

fixo · 发表于 2022-7-6 10:09:02

RickyD302 · 发表于 2022-7-6 10:12:19

Thanks...just need to figure out how to get it into autocad......I have a copy of visual 2005 so I'm ASSuMEing I create a vb project and then copy the code it for starters? Here again links and pointers are appreciated

RickyD302 · 发表于 2022-7-6 10:17:40

Thank you Fixo! that worked....got some interesting warnings when I brought it into visual studio 8.....Man thanks again!

fixo · 发表于 2022-7-6 10:26:48

I could be able to create the project just in Sharpdevelop 3.2
but I'm not sure if this will be working on your end
Glad you fixed it by yourself though
Cheers

~'J'~

RickyD302 · 发表于 2022-7-6 10:28:25

Yea me too...I've been wanting to medal in vb.net but ....just the time it takes.....I commend you and any others who can just sit down and knock out code!

Lee Mac · 发表于 2022-7-6 10:35:45

This seems complicated, why not just:

copy

(defun c:test ( / e i j o s ) (vl-load-com) (if   (and     (setq e (car (entsel "\nSelect Table: ")))     (eq "AcDbTable" (vla-get-Objectname (setq o (vlax-ename->vla-object e))))   )   (repeat (setq i (vla-get-rows o)) (setq i (1- i))     (repeat (setq j (vla-get-columns o))       (setq s (vla-getText o i (setq j (1- j))))       (vla-deletecontent o i j)       (vla-settext o i j s)     )   ) ) (princ))

[编程交流] 需要转换的例程

发表回复

精选推荐