明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 862|回复: 7

[VBA群] 2013-07-15 明经AutoCAD.VBA编程(45054712) 群聊记录:请问,用VBA代码如何判断名称为“建筑物平面图”的CAD文件是否打开?

 关闭 [复制链接]
发表于 2013-7-15 10:09:53 | 显示全部楼层 |阅读模式
清风明月名字897 10:09:53
请问,用VBA代码如何判断名称为“建筑物平面图”的CAD文件是否打开?
 楼主| 发表于 2013-7-15 10:19:55 | 显示全部楼层
QQ2013 10:19:55
遍寻文档名称,再判断
清风明月名字897 10:21:21
谢谢
小学生 10:27:51
也许另开了一个ACAD进程,打开了文档呢?
无痕/ws 10:31:56
CAD的VBA对象库中并没有excel库,只有用天正暖通打开时才出现excel库,请问别人只安装了CAD要怎么才能用含excel库的代码。
无痕/ws 10:32:51
或者用什么方法能加载vba for excel 库
一缕阳光 10:33:43
可以在工程中引用excel的对象库
[zhoumh989][x星空]魂 10:34:24
[qqimg]201307/{698CBDED-B01D-F814-B454-886AF4F4E11B}.jpg[/qqimg]
一缕阳光 10:35:52
要求所有运行你的程序的电脑必须要安装cad和excel 并且和你的引用的版本一致
无痕/ws 10:37:31
哦,谢谢
闲人一个 10:41:01
如何将选中多行文本炸为单行文本
用VBA程序
 楼主| 发表于 2013-7-15 11:21:20 | 显示全部楼层
?欢乐 11:21:20
选定 炸开不就得咯
 楼主| 发表于 2013-7-15 14:06:13 | 显示全部楼层
泉(Ango) 14:06:13
请问,把一条线变成虚线的LISP程序是怎样写的?不改变该线所在的图层。
泉(Ango) 14:11:15
有人麽?
小学生 14:17:09
这里会Lisp的少
泉(Ango) 14:20:36
额!
小学生 14:24:40
我的理解,要么改图层,要么改线型,同一图层不能既有实线又有虚线
 楼主| 发表于 2013-7-15 15:02:05 | 显示全部楼层
轻舞飞扬 15:02:05
。。。
 楼主| 发表于 2013-7-15 15:32:04 | 显示全部楼层
新儿 15:32:04
大家好
新儿 15:32:37
请教下,怎么判断多边形是否封闭?
是不是有个属性可以判断下?
一缕阳光 15:33:28
closed
新儿 15:33:45
ok
thanks
 楼主| 发表于 2013-7-15 16:47:19 | 显示全部楼层
闲人一个 16:47:19
Columns("A:A").Select
    Selection.ColumnWidth = 4.25
设置列宽
这是录制宏产生的语句
闲人一个 16:49:17
运行时,列宽都变了
闲人一个 16:50:08
Columns("A:A").Select
    Selection.ColumnWidth = 4.25
    Columns("B:B").Select
    Selection.ColumnWidth = 11.75
    Columns("C:C").Select
    Selection.ColumnWidth = 8.88
    Columns("D:D").Select
    Selection.ColumnWidth = 9.38
    Columns("E:E").Select
    Selection.ColumnWidth = 9.75
    Columns("F:F").Select
    Selection.ColumnWidth = 6.75
运行以后,所有列宽都是6.38
一缕阳光 16:53:49
range("A:A").ColumnWidth = 4.25
闲人一个 16:55:18
为什么上面那个不好使用?
一缕阳光 16:55:29
应该也可以的
一缕阳光 16:56:56
对象模型都是树杈形状,脱离excel的vba后

根本不认Columns
闲人一个 17:00:20
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 04:06 , Processed in 0.165759 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表