乐筑天下

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

我有多大空间？

[复制链接]
Jeff_M

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2008-7-17 18:09:40 | 显示全部楼层 |阅读模式
在我的脑海中，我记不起如何确定一个区块是毫秒还是秒。有人能提醒我吗？我认为这与OwnerID有关，但我找不到任何我使用过的代码，所以我不确定我是否正确

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

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

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2008-7-17 18:25:20 | 显示全部楼层
别担心，Bryco以前做过，我就是找不到 
  1. Function IsPs(oBref As AcadBlockReference) As Boolean

  2.     Dim oblock As AcadBlock

  3.     Set oblock = ThisDrawing.ObjectIdToObject(oBref.OwnerID)

  4.     If Not oblock.Name = "*Model_Space" Then

  5.         IsPs = True

  6.     End If

  7. End Function
回复

使用道具 举报

Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2008-7-18 06:45:08 | 显示全部楼层
也许是更好的？它演示了如何比较数字(ObjectId)而不是进行字符串比较:
  1. Function IsPs(pBlkRef As AcadBlockReference) As Boolean

  2.     IsPs = (pBlkRef.OwnerID  ThisDrawing.ModelSpace.ObjectID)

  3. End Function

干杯，
格伦。
回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2008-7-18 06:47:30 | 显示全部楼层
实际上，这应该严格地说是：
  1. Function IsPs(pBlkRef As AcadBlockReference) As Boolean

  2.     IsPs = (pBlkRef.OwnerID = ThisDrawing.PaperSpace.ObjectID)

  3. End Function

回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2008-7-18 12:27:11 | 显示全部楼层
Glenn，我认为第一个更正确。“ThisDrawing.Paperspace”仅指最近的当前布局，因此如果块在任何其他布局中，第二个方法仍然会返回False。
回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2008-7-18 13:04:35 | 显示全部楼层
Jeff
，是的，这是正确的，只有当它与从用户那里收集的选择集结合使用时。如果您正在处理嵌套的插入，则所有赌注都已关闭，并且这些都不正确。
它显示了意图
回复

使用道具 举报

Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2008-7-18 14:25:03 | 显示全部楼层
谢谢格伦，我更喜欢那个。！
回复

使用道具 举报

Bryco

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2008-7-18 14:38:17 | 显示全部楼层
没有探测器嘟嘟。
回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2008-7-18 17:19:06 | 显示全部楼层
假设
，
  1. Set objBlkRef = getblock("UES")

返回一个名为UES的块，我如何检查它是否已返回？我试过
  1. If Not objBlkRef = Nothing

严重失败
回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2008-7-18 18:26:26 | 显示全部楼层

我认为应该是：
如果objBlkRef什么都不是，那么
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-4 08:32 , Processed in 1.049698 second(s), 72 queries .

© 2020-2025 乐筑天下

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