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

assing

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

注意：例子.dwg是cad2000文件。

shirazbj

应该简单。

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

assing

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

shirazbj

算清楚了不是就不用剪切了么

用三角函数算啦。知道半径，间距（y方向），求x方向不是很简单。

y间距一样，循环就可以画出其他的了。就用到addline的画图命令。

 

assing

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

assing

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

shirazbj

编程是用来解决问题的，而不是用来显示软件的强大作用的。

任何东西都有误差，这误差只要在你允许的范围就可以了。这就是工程的解决办法。

剪切背后的代码是什么，它的误差在什么量级我不知道。

比如你从半圆以上画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

 

assing

你的大概意思，我明白了。非常感谢你的指点。有问题再请教。

yefeng1861

学习

ybhfau

我想请教，我画了一个矩形，需要选择各个边，并且在选择边的同时得到各边顶点的坐标，请问如何实现？

多谢了！