CADVBA代码案例.doc

一、基本操作 1
1、 块操作 1
、定义块方法: 1
、把选择集加入块中的方法 1
、插入块方法: 1
、画块属性方法 1
、编程思路: 1
2、画直线 (单段线) 3
3、画多段线 4
、修改出线点的位置 4
4、画圆 4
5、获取鼠标指定的坐标点 4
6、旋转 4
(单选) 5
(1)、左边对齐: 5
(2)、中间对齐: 5
(3)、右边对齐 5
(多行) 5
9、画圆弧 6
10、画图椭圆 6
11、CAD打开读取数据 6
12、绘制圆弧 6
二、CAD VBA程序答 7
1. VBA写的宏,可否编译成象ARX一样的程序,经加载后,在命令行打入命令后就可运行 7
2. VB中可以生成可执行文件,而在VBA中却不行 7
-粘贴的,如果不打破的话,能否直接得到文字内容. 8
GetSubEntity 方法 8
6. 想必河伯对Excel/ActiveX有研究, 能否请教如何获得Excel文件最后一行的信息? 8
可以用CurrentRegion属性计算最后一行 8
7. 如何调用vba命令对多义线进行fit(拟合)处理 9
8. 块属性值编辑 9
10
10. 如何从VBA到VB? 10
方法 10
10
Sub AcadDocument_BeginDoubleClick(ByVal pPoint As Variant) 11
14. 现有Handpoint = (, "请输入套料的插入点") 12
希望用户在捕捉点或输入点坐标动作时,如何避免用户因其他操作如缩放、PAN引起的系统报错 12
? 12
12
18点击菜单项就在该菜单上打对号是怎么实现的? 13
20请问版主,如何实时获得当前光标的X,y,z坐标值,如同状态栏上显示坐标值 13
21可以设置图块中的块属性值,如内 13
22我的选择集中有Block和PLine,我想能使用该函数 14
23我的机器里装有cad14和cad2000,用vb写了一个程序调用cad,如何让程序每次都调用cad2000呢? 14
24我只是想判断一下 14
mand "_line" 没有返回值,怎么知道是否添加了line 15
26为什么修改文字的对方正式后辩证文字会移回到零点? 15
27删除块前,应先删除块的引用,怎样查找块的引用?(VBA) 15
ESS数据库? 15
30如何将类似".5"数值改为""显示 16
31请问,如何将图上所有的数字(成千上万个数值)减去同一个常数? 17
34 把选择的对象放大几倍,VBA怎么实现? 20
35怎样提取图形的视图左下角、右上角和图形左下角,右上角的坐标? 20
1. 怎么查找某一个group是否存在?- 21
3. 在编程中,我遇到以下问题: 21
5. Sheets("检测报告").Select 22
6. ? 22
9怎样计算一个多边形的中心点? 23
10如何返回在命令行中输入的字符,是指在没有按下回车和空格下 24
11当我插入块时,鼠标的click_point为两个图块的公共插入点,即同时插入两个块 24
,分,秒?我没有办法判别小数点? 24
13. 请问在VBA中怎么使一个选择集只选中模型空间中可见图元? 25
14. windows安装了几个打印机,如何用vb指定打印机。谢谢 26
16请教,VBA中的下拉列表控件的数据是怎么和数据库内的数据邦定的?我查了好些东东都不能搞定,那位仁兄可以相告,谢谢。 26
17请问高手,,-7字样的科学记数法 27
IsNumberic()函数检测变量是不是数值,但我需要一个能检验所输的变量是不是字符charactor的函数,或能实现此功能的办法. 27
19在ADDMTEXT中,换行符\p怎么使用啊? 27
20请大家帮我解一个数学问题 27
22. 如何得到objectDBX及其帮助? 28
24. 哪位大侠知道,怎么取得任意图形的中心