如何读取窗体上图形的坐标(例如直线的两端点的坐标)

240144885 · 发表于 2007-3-20 10:00:00

我以前用VB做了个画图形的控件，可以从数据库读数据，然后根据不同的要求从数据库读数据可以直线，圆等图形。现在我想完善下，如何读取控件上已有的图形，然后把相关的数据保存到数据库。希望高手能够帮忙！

iq0050 · 发表于 2007-3-20 17:23:00

dim frmDraw as Form ' 包容器对象,假定本例中为窗体
dim AnyObject as Control,Ps(2) as double,Pe(2) as double
for each AnyObjet in frmDraw.Controls
if "Line"=TypeName(AnyObject) then
      ps(0)=anyobject.x1:ps(1)=anyobject.y1
      pe(0)=anyobject.x2:pe(1)=anyobject.y2
      ' 加入存入数据库代码
   endif
   if "Shape"=typename(Anyobject) then
      Select case Anyobject.shape
      case 0
         ' 读取控件的左上角点,宽高.计算出相应所要存入数据库的数据
         ' 存入数据库存(以下同本步骤)
      case 1
      case 2
      case 3
      end select
   end if
next
不知道要的是不是这个代码.本代码直接在这里写的,没经测试.

兰州人 · 发表于 2007-3-21 21:20:00

获取直线起点和终点坐标数据
Dim ll As AcadLine
Debug.Print ll.StartPoint, ll.EndPoint

如何读取窗体上图形的坐标(例如直线的两端点的坐标)

发表回复

精选推荐