[LISP函数]：请问调用boundary命令后的返回值？

redapple

是实体吗？还是什么？多谢！

snsj

可以是多段线，也可以是面域！

redapple

(defun c:blockb()
  (princ ":\n求块的外轮廓")
  (setq ben (car (entsel "\选定一个块:")) bss (ssadd))
  (vl-load-com)
  (vla-getboundingbox (vlax-ename->vla-object ben) 'minp 'maxp);
  (setq minp (vlax-safearray->list minp)
        maxp (vlax-safearray->list maxp));查询返回值
  (command "rectang" (list (- (car minp) 2)(-(cadr minp) 2))
                      (list (+ (car maxp) 2)(+(cadr maxp) 2)))
  (setq bbx (entlast))
  (ssadd ben bss)(ssadd bbx bss);分别将块\矩形加入选择集
  (command "-boundary" "a" "b" "n" bss "" "o" "p" ""
           (list (-(car minp) 1)(-(cadr minp) 1)) "";内部点
           "erase" (entlast) bbx  "")
  (princ)
  )
上面程序中boundary的返回值是什么？怎样才能知道求出了块的外边界?能否使边界变为另一种颜色说明边界的实现？

aeo

1.肯定有边界
2.不一定是块的.
3.可能块生成了很多边界,也可能没有.

redapple

块是预先定义的
为什么可能没有边界呢？
还有没有更可靠的方法求块的外轮廓？
多谢！

lijiao

一般说来COMMAND函数的返回值为NIL。

redapple

那么有没有办法把边界提取出来呢，因为我的目的就是求块的轮廓。
3x!

aeo

装个晓东工具箱吧,里面有,
"天正"也有

没办法的情况下,用你上面的方法也可以的,不过要自己删掉多余的.
其实就是比你的图块大一点画个框,再boundary,再删掉最外面不要的.

redapple

不好意思，俺装的是cad2000，再问求外轮廓的程序在晓东工具箱的程序中是哪一个？俺想参考源代码，再谢！

aeo

晓东的是编译过的,只能用,   应该是arx的.找晓东谈判去:)

kytw

返回值总是nil
可以改用（bpoly apoint）的形式如果成功返回非nil值

XDSoft

使用命令返回值是NIL，

你可以变通知道BOUNDARY命令是否成功啊，做之前用：

(setq e (entlast)) 得到最后一个实体。

做后，(setq e1 (entlast)) 比较下 e1 ,e 是否是一个实体就知道是否成功了。

另外用上面朋友说的函数用法。

qiaqiadeng

送一个VBA版的：
Public Sub Box()
Dim Sela As AcadSelectionSet
Dim i As Integer
Dim Num As Integer
Dim Obj As AcadEntity
Dim MinPoint As Variant, MaxPoint As Variant
Dim MinP(0 To 2) As Double, MaxP(0 To 2) As Double
Dim P1(0 To 11) As Double
Dim ll As AcadPolyline
Dim InPoint As AcadPoint
Dim Handl As Long
Dim XX As AcadEntity
Dim ObjArray(0) As AcadEntity
On Error Resume Next
Num = ThisDrawing.SelectionSets.count
For i = 0 To Num - 1
    Set Sela = ThisDrawing.SelectionSets.Item(i)
    If Sela.Name = "Sela" Then
        Sela.Delete
    End If
Next i
Set Sela = ThisDrawing.SelectionSets.Add("Sela")
Sela.SelectOnScreen

i = 1
If Sela.count > 0 Then
    For Each Obj In Sela
        Obj.GetBoundingBox MinPoint, MaxPoint
            If i = 1 Then
                MinP(0) = MinPoint(0)
                MinP(1) = MinPoint(1)
                MaxP(0) = MaxPoint(0)
                MaxP(1) = MaxPoint(1)
            Else
                If MinP(0) > MinPoint(0) Then
                    MinP(0) = MinPoint(0)
                End If
                If MinP(1) > MinPoint(1) Then
                    MinP(1) = MinPoint(1)
                End If
                If MaxP(0) < MaxPoint(0) Then
                    MaxP(0) = MaxPoint(0)
                End If
                If MaxP(1) < MaxPoint(1) Then
                    MaxP(1) = MaxPoint(1)
                End If
            End If
        i = i + 1
    Next
End If
P1(0) = MinP(0)
P1(1) = MinP(1)
P1(3) = MaxP(0)
P1(4) = MinP(1)
P1(6) = MaxP(0)
P1(7) = MaxP(1)
P1(9) = MinP(0)
P1(10) = MaxP(1)

Set ll = ThisDrawing.ModelSpace.AddPolyline(P1)
ll.Closed = True

'ZoomPrevious

End Sub