乐筑天下

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

3dface的坐标

[复制链接]
sbattina

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

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

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

使用道具 举报

Keith™

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

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

使用道具 举报

sbattina

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

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

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

使用道具 举报

sbattina

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

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

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

使用道具 举报

Keith™

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

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

使用道具 举报

sbattina

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

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

使用道具 举报

Keith™

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

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

使用道具 举报

sbattina

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

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

使用道具 举报

Keith™

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

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

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

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

© 2020-2025 乐筑天下

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