多插入V0.1B

rugaroo · 发表于 2003-12-23 18:01:59

嗯，我正在研究一些东西，我想看看你们是否看到了它的真正用途，或者这可能是浪费时间
Psuedo代码/想法：
1.用户有这样一个弹出框：
2.在“dwg信息”点中，显示当前dwg ltscale，以及斯纳潘和克莱尔。
3.下面是一个称为“块”的东西。这里列出了当前dwg中的所有块（字母化）。
4.插入层-选择要将所有BLK插入的层。（隐藏外部参照层并绑定）
5。制服Ang-如果用户检查制服。ang.box，这将变为活动状态，允许用户为此程序插入的所有BLK指定统一角度。
6.新图层名称-如果用户选中“创建新图层”，这将变成活动状态，并允许用户键入新图层名称并将所有BLK插入该图层
7.允许MIRRTEXT-仅在未选择unif ang时有用。允许用户旋转块，并在需要时使其自动镜像。
8.块预览-如果存在预览，则预览blk
现在我在VBA模块中创建了表单，但没有任何有效的功能…我对魔鬼和他的方式一无所知。你们觉得这对初学者来说是有用的还是只是一种奇特的插入方式
让我知道你们的想法，这样我就可以尝试开始并为此编写一些代码，如果这是值得做的事情。
Rug

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

daron · 发表于 2003-12-23 18:07:25

只有当我可以在一个文件夹中选择多个块并让它插入每个块时，才可以选择它。顺便说一句，Rug，你也可以投票。

rugaroo · 发表于 2003-12-23 18:14:32

好的…所以多重blk支持和浏览功能…应该不会太难。我认为至少不会。嗯，到目前为止…这听起来不太值得尝试。

Keith · 发表于 2003-12-23 22:05:58

在我的书中，任何有用处的东西和有人会使用的东西以及使工作更容易和/或使工作更快和/或使工作更准确的东西都是受欢迎的。
许多程序中的编码量多次被认为对最终结果来说完全太多了，但根据我的经验，任何可以节省每次绘图2分钟并可以每天重复使用3到5次或更多次并使工作更准确的代码肯定是值得努力的。原因是一旦程序被编写出来，它就会成为您常规工具包的一部分，您会变得更加依赖它，并为它找到更多用途。虽然大多数人不太容易将依赖程序视为一件积极的事情，但我认为这是积极的，因为如果您遵守一套标准，然后可以创建一系列程序来完成更大且越来越困难的任务，您就可以减少错误幅度并提高生产力，更不用说提高工人满意度了。
加油。让它真正发挥作用...

hendie · 发表于 2003-12-24 03:29:32

加油
如果没有其他内容…您将了解有关VBA的bt，因此无论发生什么，您都将在autocad方案中向前迈进。（顺便说一句，这篇文章不应该出现在VBA论坛上吗？在那里有点孤独。）
我想补充的一点是，虽然您目前已经用特定的功能设计了proggy，但您很可能会发现，随着您开发程序，这种情况会发生变化。即使在完成之后，您也可能会在以后的某个日期重新访问它以进行修改/添加等
顺便说一句，您可能也想在其中添加一个“比例”因子

rugaroo · 发表于 2003-12-24 08:13:14

好吧，看来你们中有很多人想看看现在会变成什么样子。至于回答你的问题，Hendie＜em＞顺便说一句，这篇文章不应该出现在VBA论坛上吗
Rug

rugaroo · 发表于 2003-12-25 16:27:40

好的……我一直坐在这里编写程序，遇到了一些困扰我的问题。
这是我下拉列表中显示dwg中所有图层的代码

copy

Private Sub ComboBox1_DropButtonClick()
Dim AllLayers As Object
Dim Layer As Object
'declare local variables
Set AllLayers = ThisDrawing.Layers
'get the layers from the layers collection
For Each Layer In AllLayers
'For each layer ->
    ComboBox1.AddItem Layer.Name
    'Add layer name
    
    Next
    
End Sub

问题是，如果我多次单击下拉按钮……那么它会一次又一次地添加图层……你明白了……我该如何解决这个问题？我试图从＜strong＞组合框1_ "*" Then
'add it to the combo box
ComboBox2.AddItem objBlk.Name
'end if evaluation
End If
'proceed to the next objBlk
Next objBlk
'release AllBlocks - this isn't necessary but I don't like leaving loose ends
Set AllBlocks = Nothing
[/code]
现在你没有维度（*Dxx）、舱口（*Xxx）、匿名（*Uxx）、纸空间（*PaperSpacexx）或模型空间（*ModelSpace）块来对抗。酷呵呵...

多插入V0.1B

发表回复

精选推荐