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

yhjyhjyhj · 发表于 2012-4-7 11:10:00

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

yhjyhjyhj · 发表于 2012-4-11 11:04:00

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

yhjyhjyhj · 发表于 2012-4-12 18:54:00

光栅图像边界获取？

yhjyhjyhj · 发表于 2012-4-13 19:22:00

顶
顶
顶
顶

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

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



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:00

这
个
可
以
不
？

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

发表回复

精选推荐