乐筑天下

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

[编程交流] VBA和Autocad

[复制链接]

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:44:39 | 显示全部楼层 |阅读模式
你好
 
我有个问题,找不到解决办法。我正在处理一个办公室的文件,我必须对其进行一些修改。办公室有不同的层(墙壁、家具等)我不知道如何与他们合作。
 
更准确地说,我需要绘制一些光线,并计算与这些层的交点。此外,我无法获得办公室顶点或该层内任何对象顶点的坐标。我真的需要一些帮助。
 
谢谢,
塞萨尔
回复

使用道具 举报

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 12:08:40 | 显示全部楼层
我在描述设置时遇到了一些问题:是否有一个示例文件可以帮助“问题定义”?
回复

使用道具 举报

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 12:24:57 | 显示全部楼层
你好
 
该项目的关键是能够与层的实体交互。
 
在随附的文件中,有一个简单的办公室向你解释我想做什么。我将在3D中工作,但对于这个问题不一定。vba项目要求用户在其中放置一个圆,这将是我们的原点。然后问题来了,因为我从这个原点开始在每个角度做光线,我必须知道与墙层的交点。我不知道如何处理层的对象。
 
同样,正如我之前发布的一样,我无法用命令获得办公室顶点的坐标。
 
谢谢SEANT
office_示例。图纸
回复

使用道具 举报

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 12:40:02 | 显示全部楼层
我解决这个问题的方法是创建一个包含目标层上所有几何体的选择集。请参阅本线程中有关过滤选择集的信息。
 
http://www.cadtutor.net/forum/showthread.php?t=38124
http://www.cadtutor.net/forum/showthread.php?t=28949
 
该选择集的迭代可以设置为查询集内所有直线的起点/终点,以获取坐标和/或与光线一起使用以调用IntersectWith方法。
 
不过,当您切换到3D时,您可能会发现VBA缺少一些必要的工具。你最好探索一下新的VB。净期权。
回复

使用道具 举报

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 12:58:41 | 显示全部楼层
谢谢肖特!!!!
 
我从你的建议开始。我希望它能起作用!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 10:44 , Processed in 0.451577 second(s), 62 queries .

© 2020-2025 乐筑天下

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