乐筑天下

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

3dface的坐标

[复制链接]

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
34
发表于 2004-4-5 22:37:12 | 显示全部楼层 |阅读模式
谁能告诉我为什么这个代码不起作用。事实上,我尝试了VarType(Vpoints)。它返回一个“0”值。我推测这是未初始化的值。我还尝试将ObjEnt作为3dface分配给另一个变量。两种方式,它都不会给出错误...错误,但它没有给我区域。
我错在哪里?
对于 ThisDrawing.ModelSpace 中的每个
objEnt 如果 TypeOf objEnt Is Acad3DFace 则
objEnt.color = acCyan
objEnt.Layer = “ABC”
Set Vpoints = objEnt.Coordinates
Set region = ThisDrawing.ModelSpace.AddRegion(Vpoints)
region.color = acBlue
End If
Next objEnt

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

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

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-4-6 13:41:26 | 显示全部楼层
是3dface共面的点。如果没有,那么您将无法生成带有它们的区域。
回复

使用道具 举报

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
34
发表于 2004-4-6 15:22:52 | 显示全部楼层

我昨晚发现了区域。没有得分。
但是不知道为什么我没有得到。坐标。
嗯...是的,它们是共面的。
回复

使用道具 举报

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
34
发表于 2004-4-6 15:55:11 | 显示全部楼层

我还用了“set”…不应该有<让我再试一次
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-4-6 15:55:44 | 显示全部楼层
我也应该意识到…
快速检查会发现一个区域没有“坐标”属性,可能是因为一个区域可以有多个形状段,如圆弧、圆、样条曲线和椭圆
如果需要获得坐标,可以分解区域,提取结果分解的坐标,然后再次对实体进行区域划分。
回复

使用道具 举报

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
34
发表于 2004-4-6 16:23:44 | 显示全部楼层
我试图在选择集中找到三维面的坐标。我以为用"就够简单了。坐标”属性。
它没有给出错误...我在子例程的前面使用了一个错误恢复next.........我想这又是一件愚蠢的事情。
我家里的autocad没有开发人员的帮助.....网上有吗??
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-4-6 16:43:15 | 显示全部楼层
我有一个VBA资源可以分享...让我知道..
回复

使用道具 举报

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
34
发表于 2004-4-6 18:44:27 | 显示全部楼层
基思在哪里??.........
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-4-6 19:16:06 | 显示全部楼层
它太大了,无法发送电子邮件,如果你PM我你的电子邮件地址,我会给你一个链接,你可以在那里下载它以及一些资源。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 16:26 , Processed in 0.388270 second(s), 70 queries .

© 2020-2025 乐筑天下

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