怎样获取光栅图 image 的既有边界？？

yhjyhjyhj

oobject.ClipBoundary PointsArray
PointsArray
Variant[变体] (两元素双精度数组); 仅用于输入
指定光栅图像剪裁边界的二维 WCS 坐标数组。
PointsArray   仅用于输入新的边界
我想得到image光栅图的现有边界，有什么办法，谢谢大家！！！

yhjyhjyhj

砸开后，可以获取，不知有没别的方法，主要是不想显示一串命令。

yhjyhjyhj

光栅图像边界获取？

yhjyhjyhj

顶
顶
顶
顶

yhjyhjyhj

返回包含修剪了的外部参照的外框定义点的坐标数组

  

Public Function GetClipBoundary(xref As AcadExternalReference)


    Dim d1 As AcadDictionary, obj As New VLAX
    Dim i As Long, tmp, retVal() As Double


    If Clipped(xref) Then
        Set d1 = xref.GetExtensionDictionary
        Set d1 = d1.Item(0)
        obj.EvalLispExpression "(setq clip (apply 'append (mapcar '" & _
                               "(lambda (x) (if (eq (car x) 10) (cdr x)))" & _
                               "(entget (handent """ & d1.Item(0).Handle & """)))))"
        tmp = obj.GetLispList("clip")
        obj.NullifySymbol "clip"
        ReDim retVal(LBound(tmp) To UBound(tmp))
        For i = LBound(tmp) To UBound(tmp)
            retVal(i) = CDbl(tmp(i))
        Next
        GetClipBoundary = retVal
    End If


End Function


功能

返回包含修剪了的外部参照的外框定义点的坐标数组

参数

一个 AcadExternalReference 对象

示例

retVal = GetClipBoundary(xref)

注意

本程序需要使用VLAX类。

yhjyhjyhj

这
个
可
以
不
？