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

shirazbj

你是用什么画的矩形？

如果是用rectange命令画的，好像不能分别选择各个边。除非你再把那个矩形炸开。

如果是用line画4根线组成的矩形，可以选其中的一条边，然后右键选属性，察看线的起终点。

如果你希望用Vba程序实现，编点程应该可以。下面的例子可以给出图中所有line的起终点。我把所有结果都保存到一个文件里面了。这个例子的前提是你图中所有的元素都是line.这是因为我定义newObjs为AcadLine。 这只是给你点思路以便你实现你所要的功能。

Sub mygetlineinfo()
    
    
    Dim i, n As Integer
   
   
  Dim newObjs As AcadLine

  Open "c:\myvba\myinfo.txt" For Output As #1
 
  n = ThisDrawing.ModelSpace.Count
  'MsgBox "N = " & Str(n)
 
  For i = 0 To n - 1
     
      Set newObjs = ThisDrawing.ModelSpace.Item(i)
     
      Print #1, i
      Print #1, newObjs.StartPoint(iCount),

newObjs.StartPoint(iCount + 1), newObjs.StartPoint(iCount

+ 2)
      Print #1, newObjs.EndPoint(iCount),

newObjs.EndPoint(iCount + 1), newObjs.EndPoint(iCount +

2)
     
  Next i
 
  Close #1
 
  MsgBox "Good on ya!"
 
End Sub