yhjyhjyhj 发表于 2012-4-7 11:10:03

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

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

yhjyhjyhj 发表于 2012-4-11 11:04:17

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

yhjyhjyhj 发表于 2012-4-12 18:54:09

光栅图像边界获取？

yhjyhjyhj 发表于 2012-4-13 19:22:40

顶
顶
顶
顶

yhjyhjyhj 发表于 2012-4-13 19:23:23


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



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 发表于 2012-4-13 19:26:18

这
个
可
以
不
？
页: [1]
查看完整版本: 怎样获取光栅图 image 的既有边界？？