社区 › VB › 请指教VBA中如何提取对象属性

yuangw1234 发表于 2006-4-4 23:27:00

请指教VBA中如何提取对象属性

高手请指教：
请问一下哪位高手，在vba中怎样得到所选择物体的圆心（假如所选择的物体是圆），我有如下一个程式，就是改色（这个简单），
Public Sub pi()
Dim ssetobj As AcadSelectionSet
Dim icount As Integer
icount = ThisDrawing.SelectionSets.Count
While (icount > 0)
    If ThisDrawing.SelectionSets.Item(icount - 1).Name = "yuan" Then
    ThisDrawing.SelectionSets.Item(icount - 1).Delete
    End If
    icount = icount - 1
    Wend
    Set ssetobj = ThisDrawing.SelectionSets.Add("yuan")
    ThisDrawing.Utility.Prompt "please select object"
    ssetobj.SelectOnScreen
Dim i As Integer
Dim selobj As AcadEntity
For i = 0 To ssetobj.Count - 1
      Set selobj = ssetobj.Item(i)
      If selobj.ObjectName = "AcDbCircle" Then
   selobj.color = acBlue
   MsgBox nam
End If
      Next
      
End Sub
现在请问一下高手，我怎么样才可以得到这样圆心的坐标
因为不可以象这样写
dim centerpt(0 to 2) as double
centerpt=selobj.center(因为这里的selobj没有center中心这样属性）
请高手指教，用怎样的方法才可以得到所选物体的圆心再赋给一变量
因为我想用这个圆心来画别的东本，而visual Lisp 中则有一个这样的
函数 Val-get-center，现在请教高手在vba里可以用什么方法
多谢!

雪山飞狐_lzh 发表于 2006-4-5 19:15:00

dim centerpt
centerpt=selobj.center

xinghesnak 发表于 2006-4-6 15:35:00

yuangw1234 ,你说的不对，不是没有这样的属性，而是你提这个属性的方法不对，版主的方法最简单，这样也可以
            Dim centerpt(2) As Double
            Dim value
            j = 0
            For Each value In selobj.Center
                centerpt(j) = value
                j = j + 1
            Next

yuangw1234 发表于 2006-4-6 22:28:00

多谢xinghesnak

yuangw1234 发表于 2006-4-9 23:00:00

请问假如选择的是一个块（由圆组成），这种方法还管用吗

查看完整版本: 请指教VBA中如何提取对象属性