Excel表格到CAD的示例程序

CADghost · 发表于 2004-5-5 15:30

VBA编程就是强

yn_liusha · 发表于 2004-5-13 23:10

七楼的朋友的源码是2000上用的吧。

mountains · 发表于 2004-5-21 23:44

这个程序在绘制表格时非常简洁巧妙，我也曾有这样的思路，但一直没有抽出时间编写，提出几点建议：1。程序应让使用者能够自主选择表格或表格的一部分

2.在转化表格和文字过程中由于时间较长，最好给出提示

mountains · 发表于 2004-5-23 11:23

抽空对程序稍作修改，希望能够得到作者同意，并希望对大家有帮助下面程序段提示用户输入转化范围如输入: a1:b20 b = Trim(InputBox("ÇëÊäÈë±í¸ñÇøÓò"))
Set table = xlSheet.Range(b)
'Debug.Print xlSheet.UsedRange.Address
Application.ZoomAll
For Each xlRange In table
下面程序实现窗口全局缩小 Set xlRange = Nothing
Set xlSheet = Nothing
Set xlApp = Nothing
Application.ZoomAll 下面程序在程序运行过程中使用户能够在命令行中观察到程序运行的进度 For Each xlRange In table
AddLine BlockObj, iPt, xlRange
AddText BlockObj, iPt, xlRange
ThisDrawing.Utility.Prompt "" & vbCr
ThisDrawing.Utility.Prompt "ÐÐ" & xlRange.Row & "ÁÐ" & xlRange.Column & vbCr
Next
使用者只要把源程序作相应修改即可

qazllqaz · 发表于 2004-5-31 00:50

谢谢!!!

yuxi · 发表于 2004-6-26 22:18

严重感谢

changch · 发表于 2005-5-2 16:55

very good

limingoal · 发表于 2005-5-14 15:21

好东东啊

谢谢

caizhiming · 发表于 2005-8-26 10:42

请问如何用VBA在CAD中启动WORD

myvb1234 · 发表于 2006-1-8 10:43

好，顶！谢谢！！~~~

账号		自动登录	找回密码
密码			注册