[求助]谁可以帮我把如下VBA代码转成VB代码

iamhaicong

要引用AUTOCAD库啊,这才是关键.

ngeqt521

上次附档没有加上，这个就是了，高手帮下，

ngeqt521

ngeqt521

兰州人

给你调试了一下,VBA转VB很简单,

1 将上面我发的帖子,粘到你的程序中,运行一下AutoCADConnect就可以了.

2 将你程序中的ThisDrawing.ModelSpace替换为obj_ModelSpace,再将Dim pointObj As AcadCircle替换为Dim pointObj As Object 你的程序就可以运转了。

对你的程序只能运转测试，没有办法进行调试正常运行。

原因如下：

按这个下面条件输入，要生成近10万个小圆，我的机器跑了近一个小时。

point1 = ThisDrawing.Utility.GetPoint(, "请指定宽度的第一个点:")
point2 = ThisDrawing.Utility.GetPoint(point1, "请指定宽度的第二个点:")
point3 = ThisDrawing.Utility.GetPoint(point1, "请指定高度的第三个点：")

理由：你的窗体设置的初始值是0.008，0.05等1/1000分级和%级数据，3个点输入的数据最小也是个位数。用Debug.print 测试了一下，number_y，number_x就是4位数，至少是3位数。因此，造成了下面的循环要近一个小时。

For l = 1 To sum_number
  For j = 1 To number_y
    For i = 1 To number_x
所以，无法为你VB调试程序。你只要掌握上面所述两步就可以了，别人不懂你的设计思想，很不好调试。

ngeqt521

兰大哥，你可以将长宽设定在２０－５０之间就不用那么长的时间了，我问了下朋友她说这是一个她工作上用到的东西，是一个随机填充，跟线性函数有关．

不过经你指点我还是没能转换成功．郁闷ing.

HONG1835

已完成转换，形成了VB的工程和窗体。不妨一试！也请告知邮箱，我再发去解密密码。

ngeqt521

hong1835大哥,你好

  上午在公司回了你E-mail,不过你的附档在运行时出现了如下Err,

-----------------------------------------------------------------------------

行 22: 控件 StatusBar1 的类 ComctlLib.StatusBar 不是一个已加载的控件类。
行 29: 属性名 _ExtentX 在 StatusBar1 中是无效的。
行 30: 属性名 _ExtentY 在 StatusBar1 中是无效的。
行 31: 属性名 Style 在 StatusBar1 中是无效的。
行 32: 属性名 SimpleText 在 StatusBar1 中是无效的。
行 33: 属性名 _Version 在 StatusBar1 中是无效的。
行 40: 属性名 Panels 在 StatusBar1 中是无效的。

HONG1835

看来你对VB不是很熟，在VB中的“工程部件”，选择“MICROSOFT WINDORWS COMMON CONTROLS 6.0(SP6) ”，“状态栏”出现就可。

wyj7485

如果程序添加引用的，在别的电脑上打开是不需要添加的,当然也不排除引用丢失，VB中的“工程部件”是否齐全等.