乐筑天下

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

微站中的 VBA

[复制链接]

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2006-1-13 10:35:48 | 显示全部楼层 |阅读模式

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

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

使用道具 举报

26

主题

275

帖子

6

银币

后起之秀

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

铜币
379
发表于 2006-1-13 14:28:05 | 显示全部楼层
啊...隧道尽头终于有了曙光......
对于那些感兴趣的人...这是我所做的...
  1. Set myCell1 = ActiveModelReference.CreateCellElement2(cellName1, OriginPoint, CellScale, False, ElementRotation)
  2. ActiveModelReference.SelectElement myCell1, True
  3. Set myCell2 = ActiveModelReference.CreateCellElement2(cellName2, OriginPoint, CellScale, False, ElementRotation)
  4. ActiveModelReference.SelectElement myCell2, True
  5. CadInputQueue.SendKeyin "group selection "

唯一的问题是,由于某种原因,标签现在是主单元的一部分...我还在努力,但现在,它起作用了......
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2006-1-16 06:56:05 | 显示全部楼层
好样的基思。我能理解你经历的一切。
那么,你有多少次感觉像是在用头撞墙?
回复

使用道具 举报

26

主题

275

帖子

6

银币

后起之秀

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

铜币
379
发表于 2006-1-16 10:37:39 | 显示全部楼层
一堆..我仍然觉得我正在这样做..昨晚我去解决标签问题和...好吧,让我们说我将不得不重新思考整个问题......再。。。我可能不得不(尽管我不喜欢这个想法),获取主单元格中存在的标签,将它们复制到数组中,使用现有集创建新的标签集,然后将所有数据从旧的标签集移动到新的标签集......但得到这个...标签的原点和宽度是只读的...他们到底在想什么?
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2006-1-16 11:01:56 | 显示全部楼层

我会对你想出的处理标签的解决方案感兴趣。我有一个类似的问题,我无法让标签接受我试图传递的值。这些值是有效的,我可以在传递它们之前捕获它们,但是当我试图将它们传递给标签的那一刻,整个东西都爆炸了。
哦,他们在想吗?
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2006-1-18 09:46:09 | 显示全部楼层
我还在努力...目前还没有解决方案...
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 00:25 , Processed in 1.023228 second(s), 64 queries .

© 2020-2025 乐筑天下

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