lisp能否取得面域边界点坐标

ljxkm

lisp用bpoly函数点选椭圆、样条曲线，以及由椭圆弧、圆弧、样条曲线、直线等围成的复杂图形，提示不能导出多义线，但可以生成面域，面域的Obj数据如下：
Application (RO) = #<VLA-OBJECT IAcadApplication 00d73d3c>
;   Area (RO) = 698689.0
;   Centroid (RO) = (2501.94 744.489)
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0d8c1830>
;   Handle (RO) = "1B8"
;   Ha**tensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0f4375b4>
;   Layer = "0"
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   MomentOfInertia (RO) = (4.23666e+011 4.416e+012)
;   Normal (RO) = (0.0 0.0 1.0)
;   ObjectID (RO) = -1428480
;   ObjectName (RO) = "AcDbRegion"
;   OwnerID (RO) = -1434376
;   Perimeter (RO) = 3104.48
;   PlotStyleName = "ByLayer"
;   PrincipalDirections (RO) = (0.98562 -0.168979 0.168979 0.98562)
;   PrincipalMoments (RO) = (3.62254e+010 4.26019e+010)
;   ProductOfInertia (RO) = 1.30249e+012
;   RadiiOfGyration (RO) = (778.699 2514.04)
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 0f43a030>
;   Visible = -1
;支持的方法:
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Boolean (2)
;   Copy ()
;   Delete ()
;   Explode ()
;   GetBoundingBox (2)
;   GetExtensionDictionary ()
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetXData (2)
;   TransformBy (1)
;   Update
不知能否取得边界点坐标

jshailinqq

帮顶一下，随便每日一签

XDSoft

XDRX API 有专门的函数，你搜索下论坛

ljxkm

谢谢大家的热心解答啊，XDRX API对我们初学者太深了，我想到一个土办法，先用面域建立填充，再取得填充数据(entget (entlast))：
((-1 . <图元名: -342ca58>) (0 . "HATCH") (330 . <图元名: -15e3f0>) (5 . "AA1F5") (100
. "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (370 . 15) (100 .
"AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "ANSI31") (70 . 0) (71 .
0) (91 . 1) (92 . 1) (93 . 10) (72 . 1) (10 7913.76 -30765.8 0.0) (11 7677.47
-30204.5 0.0) (72 . 4) (94 . 3) (73 . 0) (74 . 0) (95 . 10) (96 . 6) (40 . 0.0)
(40 . 0.0) (40 . 0.0) (40 . 0.0) (40 . 495.766) (40 . 870.378) (40 . 1776.02)
(40 . 1776.02) (40 . 1776.02) (40 . 1776.02) (10 7677.47 -30204.5 0.0) (10
7595.52 -30057.6 0.0) (10 7451.64 -29799.6 0.0) (10 6845.43 -29542.6 0.0) (10
6504.83 -29892.7 0.0) (10 6263.9 -30140.3 0.0) (72 . 1) (10 6263.9 -30140.3
0.0) (11 5704.38 -30662.5 0.0) (72 . 1) (10 5704.38 -30662.5 0.0) (11 5540.41
-30883.3 0.0) (72 . 1) (10 5540.41 -30883.3 0.0) (11 5440.38 -31115.2 0.0) (72
. 3) (10 5629.76 -31409.2 0.0) (11 -154.383 320.918 0.0) (40 . 0.540587) (50 .
0.123901) (51 . 3.0911) (73 . 1) (72 . 1) (10 5767.33 -31736.5 0.0) (11 6911.29
-31893.8 0.0) (72 . 1) (10 6911.29 -31893.8 0.0) (11 7165.42 -31595.4 0.0) (72
. 2) (10 7371.22 -31171.6 0.0) (40 . 471.103) (50 . 4.2603) (51 . 6.09108) (73
. 1) (72 . 1) (10 7833.65 -31261.5 0.0) (11 7913.76 -30765.8 0.0) (97 . 0) (75
. 0) (76 . 1) (52 . 1.5708) (41 . 10.0) (77 . 0) (78 . 1) (53 . 2.35619) (43 .
0.0) (44 . 0.0) (45 . -22.4506) (46 . -22.4506) (79 . 0) (98 . 1) (10 0.0 0.0
0.0))96与97码之间的数据，好像就是边界数据了啊，不知对不对

qxlonmsn

ljxkm 发表于 2019-11-8 11:55
谢谢大家的热心解答啊，XDRX API对我们初学者太深了，我想到一个土办法，先用面域建立填充，再取得填充数据 ...

哇  你这个办法好   开辟了新思路  犇