如何用vb二次开发“例子.dwg”这样的图。

assing · 发表于 2006-2-10 15:46:00

我想用vb二次开发“例子.dwg”这样的简单规律性的图。编程的目的：当直径不同时，输入几个参数，就能很快生成类似的图。请问各位高手，这个vb二次开发程序容易编吗？麻烦介绍一下主要思路。谢谢指点！
注意：例子.dwg是cad2000文件。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

shirazbj · 发表于 2006-2-12 11:04:00

应该简单。
插入一个用户窗体，添加上输入框，输入数值，点ok后画图就是了。数值保存在变量中，传给画图过程。画图就是画线和画圆。用循环画出多条线。自己算出起终点就是了。

assing · 发表于 2006-2-13 09:44:00

前面的都明白。为什么要计算起始点和终点呢，这样很麻烦啊，起始点和终点太多了？这个图应该涉及到很多偏移，剪切，延长等命令，如何实现？

shirazbj · 发表于 2006-2-15 06:38:00

算清楚了不是就不用剪切了么
用三角函数算啦。知道半径，间距（y方向），求x方向不是很简单。
y间距一样，循环就可以画出其他的了。就用到addline的画图命令。

assing · 发表于 2006-2-15 18:48:00

编程量大不大？我觉得很复杂。。。。

assing · 发表于 2006-2-15 18:56:00

只用到addline的画图命令，其他的就不用了？vba的强大作用没有体现？如何保证线的2端就在圆上，因为端点是算出来的，可能有误差阿，而通过剪切命令的不会有误差。

shirazbj · 发表于 2006-2-16 13:15:00

编程是用来解决问题的，而不是用来显示软件的强大作用的。
任何东西都有误差，这误差只要在你允许的范围就可以了。这就是工程的解决办法。
剪切背后的代码是什么，它的误差在什么量级我不知道。
比如你从半圆以上画2条水平线（3等分半径），圆心在（0,0）。可以这样：
N=2
for k=1 to n
ThisR=1./3.*R*k
x1=sqrt(R*R-ThisR^2)
y1=ThisR
x2=-x1
y2=y1
addline(x1,y1,x2,y2) '具体参照addline要求
Next n