乐筑天下

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

阻止计划创建者

[复制链接]

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2008-5-1 17:05:19 | 显示全部楼层 |阅读模式
我正在构建一个块明细表生成器,该生成器搜索所有打开的图形,并创建按类型过滤的块和描述明细表
我已经构建了基本代码,尽管我必须扩展它以允许计划命名、文本大小、层等。目标是让它完全由用户配置,因此它更适合多个学科的多个用户。我最初考虑这样做是为了我的电气时间表,后来决定它也适用于我的门窗
因此,我现在需要确定所有块的边界框,并将其缩放到由边界框确定的单高度空间或双高空间的空间约束中。(即,如果要将块缩放到小于70%以适合单个高度行,请将该行设置为双倍高度。(参见附图)我将根据我们的标准为门窗使用其他符号,但最终我希望用户能够选择是使用块还是块内的属性

kibm0mfqllh.PNG

kibm0mfqllh.PNG

回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2008-5-1 17:52:00 | 显示全部楼层
听起来很酷,基思
要使它如此多功能,似乎需要做一些工作。
回复

使用道具 举报

7

主题

35

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
63
发表于 2008-5-1 21:59:44 | 显示全部楼层
Keith,
当您在图形中循环时,您也可以计算要添加到明细表中的类似块的数量。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2008-5-3 01:41:37 | 显示全部楼层
好的。这是第一个化身。有限的错误检查和代码是'我真的很漂亮;我没有时间组织和优化…我甚至可能不会打扰它,它应该可以在2000年以后的任何版本的AutoCAD上工作(在不支持它的版本中没有TrueColor或配色系统)
在开始时,设置时间表将是一件痛苦的事,直到您输入所有的描述。(见下面的注释)
要做的事:
添加块“;图标“;(几何)到明细表中添加块计数到明细表,过滤已指定为明细表类型的现有块;删除计划模板;选项
允许在明细表中使用替代图标(而不是块几何图形)
在块列表中添加列排序
添加功能以打开其他图形以包括在明细表内
添加机制以在更改明细表类型时自动更新块列表
需要更多的错误检查
单击块列表中的项目以添加说明如果在单击“选项”后选择其他图形,则只会显示您定义为所有当前块的特定明细表所需的项目的描述(请参阅待办事项列表中的过滤项目);“获取所有块”;按钮,您需要再次单击它以更新阻止列表。同样,如果您更改计划类型或创建新的计划,则需要选择;“获取所有块”;再次按下按钮
;“获取所有块”;按钮更改为;插入附表;,必须再次选择它才能将明细表放置在激活图形中
操作:执行宏;MakeSchedule“&nbsp。。。它应该是程序中唯一暴露的sub
法律资料:实施Frank Oquendo的VLAX class版权1999-2001(见完整版权披露来源)
版权所有2008 ResourceCAD International
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2008-5-5 16:52:58 | 显示全部楼层
仅供参考。GetSchedules函数中存在一个错误,导致程序在读取注册表以获取已定义时间表列表时失败。如果不存在计划,则会生成致命错误
需要在modCount模块中替换GetSchedules函数
[代码在调用函数(form initialize)中,将函数末尾的For X循环替换为:
  1.     For X = 0 To UBound(Schedules, 1)
  2.         If Schedules(X, 0)  "" Then
  3.             Set Lbl(X + 1) = New ScheduleLink
  4.             ReDim Preserve Lbl(0 To (UBound(Lbl) + 1))
  5.             Lbl(X + 1).Caption = Schedules(X, 0)
  6.             Lbl(X + 1).Tag = Schedules(X, 0)
  7.         End If
  8.     Next X
我添加了一些其他函数,只要我把它们都整理好,我就会发布新代码。
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

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

铜币
481
发表于 2008-5-5 19:21:32 | 显示全部楼层
基思,这看起来很有趣。我可能不得不下载并玩它,但我'我还发帖问你是否'我看过这个:
http://www.codezebra.com/livinglegend.html有一段时间我把它弄乱了,它'它很甜。我认为你想写你自己的,但这也可能给你一些其他的想法。祝你好运
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 15:24 , Processed in 0.597237 second(s), 67 queries .

© 2020-2025 乐筑天下

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