lgf727 发表于 2004-1-3 12:45:00

CAD2000中“边界”命令用VBA如何做？

CAD2000中“边界”命令用VBA如何到？

efan2000 发表于 2004-1-3 13:31:00

使用SendCommand来调用内部分命令。

Sub test()
   
    ' 当前图纸的实体数目
    Dim n As Long
    n = ThisDrawing.ModelSpace.Count
   
    ' 调用BOUNDARY命令获取某一点处的边界
    Dim Pt As Variant
    Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
    ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr
   
    ' 如果存在边界，则会生成新的实体
    Dim lwpLineObj As AcadLWPolyline
    If ThisDrawing.ModelSpace.Count > n Then
      Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
      MsgBox lwpLineObj.Area
      lwpLineObj.Delete
    Else
      MsgBox "未发现有效的边界。"
    End If
End Sub

dchlmz 发表于 2004-11-2 15:17:00

请教版主，能不能点选之后，实现用某一图层的线得到边界？

alin 发表于 2004-11-2 16:22:00

BOUNDARY命令前把该层隔离出来

chman 发表于 2004-11-11 23:06:00

如何获得boundary后形成pline线的折点坐标，谢谢

雪山飞狐_lzh 发表于 2004-11-12 00:30:00

代码里不是有么？


Set        lwpLineObj        =        ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count        -        1)<BR>

lgf727 发表于 2005-6-28 23:13:00

能否不用SENDCOMMAND方法实现?不知各位有没有什么好办法?我想了好久了一直没解决.
页: [1]
查看完整版本: CAD2000中“边界”命令用VBA如何做？