sccat 发表于 2004-11-17 16:06:00

[求助]下载的源程序有几个不懂得地方

1.Dim objDbx As AxDbDocument 把As AxDbDocument 注释掉可以执行，但不注释掉显示：用户定义类型未定义。


2               objDbx.CopyObjects blkObj, ThisDrawing.ModelSpace<BR>                       ThisDrawing.ModelSpace.InsertBlock pnt, blkName, 1, 1, 1, 0


                       这两行不知道是什么意思，象是函数但没有括号．我把第二行改成ThisDrawing.ModelSpace.InsertBlock( pnt, blkName, 1, 1, 1, 0)显示缺少＂＝＂号．


３　Me.Hide


                                                        这个Me是不是C++里的this的意思，我把Me去掉好象也可以．

sccat 发表于 2004-11-17 16:07:00

源程序：


<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=6098" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=6098</A>

sccat 发表于 2004-11-17 16:33:00

还有一个问题：能不能在


pnt = ThisDrawing.Utility.GetPoint(, "选择插入点：")


时让块跟着鼠标走，模拟acad插入块后的图象？

cag 发表于 2004-11-17 18:13:00

纯VBA不能实现

tiger8888 发表于 2004-11-17 19:24:00

建议你系统的找一本vb的书看看，一切就容易理解了。


1。objectdbx没引用


2 3。看看函数的用法
页: [1]
查看完整版本: [求助]下载的源程序有几个不懂得地方