oobject.ClipBoundary PointsArray PointsArray Variant[变体] (两元素双精度数组); 仅用于输入指定光栅图像剪裁边界的二维 WCS 坐标数组。 PointsArray 仅用于输入新的边界 我想得到image光栅图的现有边界，有什么办法，谢谢大家！！！
返回包含修剪了的外部参照的外框定义点的坐标数组 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 IfEnd Function 功能返回包含修剪了的外部参照的外框定义点的坐标数组参数一个 AcadExternalReference 对象示例retVal = GetClipBoundary(xref) 注意本程序需要使用VLAX类。 查看原帖>>
评论
九De神话2 
长按识别二维码查看信息详情