2013-07-13 明经AutoCAD.VBA编程(45054712) 群聊记录：如何设定选择集为单行文本或多行文本？

明经快报 · 发表于 2013-7-13 13:30

闲人一个 13:30:51

如何设定选择集为单行文本或多行文本？

小山 13:34:03

选择集没法设定

选择时可以庙宇3

使用过滤选择

闲人一个 13:35:22

网上找了这个

如何改使，使适用多行文本？

小山 13:37:21

MText

闲人一个 13:38:59

改这个，单行文本就选不中了

明经快报 · 发表于 2013-7-13 14:31

十字路口 14:31:30

[qqimg]201307/{296BA119-6DF9-F2C6-DF9A-2BCD68B871DB}.jpg[/qqimg]编程如何去掉红框内容，保存格式为TXT

明经快报 · 发表于 2013-7-13 15:09

小学生 15:09:25

看不清

明经快报 · 发表于 2013-7-13 15:21

十字路口 15:21:16

原格式（扩展名RTK）、目标格式(扩展名TXT)[qqimg]201307/{13FF2E02-EE9C-E499-3284-A72360C96BA7}.jpg[/qqimg]去掉红框内容，保存为TXT
只保留 1 2 3 4 6列

小学生 15:23:09

用程序实现吗？

十字路口 15:23:19

是

小学生 15:24:51

你用什么语言？

十字路口 15:26:54

实现

明经快报 · 发表于 2013-7-13 21:04

胡日查 21:04:36

大神门

[qqimg]201307/{124FCF04-96DF-E5ED-1F50-A34606D117EB}.jpg[/qqimg]

胡日查 21:05:11

上面的代码我分部执行就能打印三张图纸，怎么F5的时候就出错

只能打印一张

胡日查 21:08:59

大神们

说话啊

明经快报 · 发表于 2013-7-13 21:20

闲人一个 21:20:17

Dim SsetObj As AcadSelectionSet
    Dim FilterType(0) As Integer, filterDate(0) As Variant

      FilterType(0) = 0
      filterDate(0) = "Text"

     Do While ThisDrawing.SelectionSets.Count > 0 '=====安全创建选择集
         ThisDrawing.SelectionSets.Item(0).Delete
     Loop

明经快报 · 发表于 2013-7-13 23:48

CL 23:48:20

谁会后期绑定啊

编译dll时候的后期绑定

账号		自动登录	找回密码
密码			注册

[VBA群] 2013-07-13 明经AutoCAD.VBA编程(45054712) 群聊记录：如何设定选择集为单行文本或多行文本？

相关帖子