社区 › CAD › 插入座位号

designerstuart 发表于 2022-7-7 20:16:38

哇，听起来一团糟。这些街区内的每个座位本身都是一个街区吗，都有相同的名字？如中所示-图形中的每个座位是否都是同一个块（无论是否嵌套在其他块中）？
 
高级编辑中有一个附件按钮

ChrisGrady 发表于 2022-7-7 20:20:53

有一些座位是他们自己的，但一些座位是在24等街区-如果你们能看到它更好地理解它！！！真是一团糟！！
 
我试着把它贴在这里，但文件太大了，我试着把它压缩，但还是太大了！有什么建议吗？？

designerstuart 发表于 2022-7-7 20:23:00

建议删除所有对你的问题不重要的东西，并附加在这里-我相信有人会帮助你

BIGAL 发表于 2022-7-7 20:28:14

如果每个座位都是单独的座位，会有问题吗？再次查看此选项适用于LT，只需剪切并粘贴此示例块称为“aaaa”。一个属性仅对LT用户重要，如果它起作用，请阅读有关编程MS word以在LT内运行以执行某些任务的信息
 
要测试的TXT文件

-insert
aaaa
0,0 1 1 0
1


10,0 1 1 0
2

20,0 1 1 0
3

30,0 1 1 0
4

40,0 1 1 0
5

50,0 1 1 0
6

60,0 1 1 0
72

70,0 1 1 0
82


 
对于其他人来说，这里是从记录的宏的字加上两行额外的x=x+1的直接副本。我没有理由不写纯代码，从一张空白纸开始，写下包含所需座位数的txt文件，然后从座位号开始。
 
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/17/2011 by Alan
Dim x As Integer
x = 1
   Selection.MoveUp Unit:=wdLine, Count:=19
   Selection.MoveLeft Unit:=wdCharacter, Count:=10
   Selection.MoveDown Unit:=wdLine, Count:=3
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   textans = x
   Selection.TypeText Text:=x
   Selection.MoveDown Unit:=wdLine, Count:=4
   Selection.MoveLeft Unit:=wdCharacter, Count:=1
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   x = x + 1
   Selection.TypeText Text:=x
   Selection.MoveDown Unit:=wdLine, Count:=4
   Selection.MoveLeft Unit:=wdCharacter, Count:=1
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
x = x + 1
Selection.TypeText Text:=x
   Selection.MoveDown Unit:=wdLine, Count:=4
   Selection.MoveLeft Unit:=wdCharacter, Count:=3
   Selection.MoveRight Unit:=wdCharacter, Count:=2
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   x = x + 1
   Selection.TypeText Text:=x
End Sub

BIGAL 发表于 2022-7-7 20:35:16

你得到答案了吗？

查看完整版本: 插入座位号