乐筑天下

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

[编程交流] VB中的外部参照

[复制链接]

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2022-7-6 18:06:39 | 显示全部楼层
如果xrfilename=,则
Dim xrfilename作为字符串
 
Troutking你必须努力按这个顺序得到这两行。
Option explicit可以阻止这种事情。
下一步是帮助人们忽略显式选项并这样做。
基础是-
1) 将某个对象设置为字符串(在为其赋值之前,它没有值。)
2) 给它一个值。
回复

使用道具 举报

16

主题

43

帖子

33

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-6 18:08:57 | 显示全部楼层
你好,Bryco
我的一个问题是,我不完全了解VB是如何设置的——例如,不完全理解“Option Explicit”的确切含义。但我边走边学习,在这里我得到了一些很好的帮助。
 
对于给定xrfilename字符串值的引用:
我在上面发布的例程部分只是整个例程的一小部分。如果打开我在上面提供的附件,您可以看到,在完成例程的过程中,我确实给了xrfilename一个值。在我给它初始值(在代码中进一步向下)后,我希望它在整个例程过程中保留该值。我不知道如何保持它在一个恒定的值,它是给定的。
回复

使用道具 举报

16

主题

43

帖子

33

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-6 18:13:35 | 显示全部楼层
我做到了!我做到了!我成功了!呜呼!!!!!!
 
我只需要改变一些代码的位置,让代码在主循环中围绕xrfilename旋转。
 
我知道你们这些大师会对我的代码的“干净性”非常不满,但它确实有效!!!!
 
现在关于这个例程的最后一个问题(围绕用户指定的输出文件夹旋转的问题)
回复

使用道具 举报

1

主题

1069

帖子

1050

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
69
发表于 2022-7-6 18:18:06 | 显示全部楼层
在任何文件上测试此模块
如果这对你有用,我可以
进一步添加批处理
根据需要退回我的更改,
文件夹名称等,参见代码
Hth公司
 
~'J'~
modToDWF。拉链
回复

使用道具 举报

4

主题

15

帖子

12

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 18:23:56 | 显示全部楼层
 
不确定这是否是一个死话题,但在审查和文本代码后,这正是我想要直接去做的,但它的工作方式有两个变化。
[列表]
  • 这段代码将外部参照到布局选项卡中,我希望从中外部参照到模型空间。
  • 这段代码在exref中添加了一个数字,我只希望外部参照图形的名称(减去“.dwg”作为名称,末尾不添加数字。
    由于我正在学习VBA cod,并且对AutoCAD代码几乎没有经验,有人可以看一下它,做一些更改以适应我在这里寻找的内容吗?
     
    我大约有5个项目,包含10到231张图纸。我真的不想让我的工作人员单独打开每个图形来外部参照一个图形。这将为我节省大量宝贵的时间!
     
    提前感谢
  • 回复

    使用道具 举报

    发表回复

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

    本版积分规则

    • 微信公众平台

    • 扫描访问手机版

    • 点击图片下载手机App

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

    GMT+8, 2025-3-4 15:42 , Processed in 0.315868 second(s), 60 queries .

    © 2020-2025 乐筑天下

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