乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 98|回复: 6

多插入V0.1B

[复制链接]

9

主题

23

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
59
发表于 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

本帖以下内容被隐藏保护;需要你回复后,才能看到!

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

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2003-12-23 18:07:25 | 显示全部楼层
只有当我可以在一个文件夹中选择多个块并让它插入每个块时,才可以选择它。顺便说一句,Rug,你也可以投票。
回复

使用道具 举报

9

主题

23

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
59
发表于 2003-12-23 18:14:32 | 显示全部楼层
好的…所以多重blk支持和浏览功能…应该不会太难。我认为至少不会。嗯,到目前为止…这听起来不太值得尝试。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

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

使用道具 举报

18

主题

222

帖子

51

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

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

使用道具 举报

9

主题

23

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
59
发表于 2003-12-24 08:13:14 | 显示全部楼层
好吧,看来你们中有很多人想看看现在会变成什么样子。至于回答你的问题,Hendie<em>顺便说一句,这篇文章不应该出现在VBA论坛上吗
Rug
回复

使用道具 举报

9

主题

23

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
59
发表于 2003-12-25 16:27:40 | 显示全部楼层
好的……我一直坐在这里编写程序,遇到了一些困扰我的问题。
这是我下拉列表中显示dwg中所有图层的代码
  1. Private Sub ComboBox1_DropButtonClick()
  2. Dim AllLayers As Object
  3. Dim Layer As Object
  4. 'declare local variables
  5. Set AllLayers = ThisDrawing.Layers
  6. 'get the layers from the layers collection
  7. For Each Layer In AllLayers
  8. 'For each layer ->
  9.     ComboBox1.AddItem Layer.Name
  10.     'Add layer name
  11.    
  12.     Next
  13.    
  14. 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)块来对抗。酷呵呵...
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 11:54 , Processed in 0.458729 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表