乐筑天下

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

莫名,各位大虾

[复制链接]

31

主题

129

帖子

5

银币

后起之秀

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

铜币
253
发表于 2004-2-11 19:56:00 | 显示全部楼层 |阅读模式
如何修改某实体中已存在的object data数据,我知道对于无object data 存在可用下列代码,完成添加object data数据
Set ODRecord = ODtb.CreateRecord
ODRecord.Item(0).Value = "dfdsfdsf"
ODRecord.AttachTo (en.ObjectID)
但如何修改object data 一存在的呢?
回复

使用道具 举报

21

主题

166

帖子

7

银币

后起之秀

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

铜币
250
发表于 2004-2-11 20:35:00 | 显示全部楼层
根据帮助文件,应该还是用下列语句实现修改object data数据:
Set ODRecord = ODtb.CreateRecord
ODRecord.Item(0).Value = "dfdsfdsf"
ODRecord.AttachTo (en.ObjectID)
我现在用的机子还没装ACADMAP,所以请你试一下。
回复

使用道具 举报

31

主题

129

帖子

5

银币

后起之秀

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

铜币
253
发表于 2004-2-11 20:45:00 | 显示全部楼层
这样显然是不对的,这只能在该实体上增加一条记录,我试过n次了
回复

使用道具 举报

21

主题

166

帖子

7

银币

后起之秀

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

铜币
250
发表于 2004-2-11 21:26:00 | 显示全部楼层
哦!对了MAP没提供修改和删除object data的功能,用sendcommand方法会出现对话框。
要存贮属性数据最好用外部数据库。
回复

使用道具 举报

31

主题

129

帖子

5

银币

后起之秀

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

铜币
253
发表于 2004-2-11 21:34:00 | 显示全部楼层

不可能吧,老大,删除是肯定有的(remove方法),修改难道就只能一次性添加,就不能用程序改了,显然不大可能吧,连他的autocad map软件里都有edit object data的菜单
回复

使用道具 举报

21

主题

166

帖子

7

银币

后起之秀

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

铜币
250
发表于 2004-2-12 19:06:00 | 显示全部楼层
删除是肯定有吗?试过吗?
不是菜单有的VBA就有!
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-2-12 19:30:00 | 显示全部楼层
Set ODRecord = ODtb.CreateRecord
ODRecord.Item(0).Value = "dfdsfdsf"
ODtb.GetODRecords.Update ODRecord
看帮助的,没有实际用过,可能是这样吧。
回复

使用道具 举报

31

主题

129

帖子

5

银币

后起之秀

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

铜币
253
发表于 2004-2-12 20:08:00 | 显示全部楼层
efan2000 :如何判断一个实体是否存在object data?
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-2-12 20:15:00 | 显示全部楼层
&lt class=Code>Set ODrcs = .ODtb.GetODRecords        
&lt class=Code>'Prompt user to select an object
&lt class=Code>ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
&lt class=Code>boolVal = ODrcs.Init(returnObj, True, False)
&lt class=Code>如果boolVal为False表示没有数据。
回复

使用道具 举报

31

主题

129

帖子

5

银币

后起之秀

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

铜币
253
发表于 2004-2-12 20:18:00 | 显示全部楼层
这个我早试过了,但实体无数据时,还是会返回true
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 12:49 , Processed in 0.765704 second(s), 72 queries .

© 2020-2025 乐筑天下

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