[讨论]vla-get-area 函数的怪现状

wkaii

我 Pedit 把一条闭合的 LwPolyLine 样条曲线化 之后， 不能用vla-get-area 来获得它的 面积 ，vla-get-elevation 也不能得到它的标高。

错误提示为：
"Automation 错误。未提供说明。"

而用 vla-get-color 可以得到颜色值~

二代龙震的参考上说 vla-get-area 是可以用于 PLine 的呀~

请各位版主不吝赐教~

meflying

对象有什么属性应该看帮助文件中ActiveX and VBA reference中每个对象的属性，
如果有，则可以用vla-get-...或vla-put-...（看它的读写允许），vla-get-是通用的前缀，

按你说的，lwpolyline样条曲线化后应该是polyline，这个也支持那两个属性，我试过了，完全可以，
你可以看看对象的DXF组码的0项，如果是别的，可能有些属性就不支持了

wkaii

十分感谢！！
(vla-get-area (Vlax-Ename->Vla-Object (car (entsel))))
(vla-get-elevation (Vlax-Ename->Vla-Object (car (entsel))))

我又试了试，发现有的行有的不行。
我发一个图，麻烦你给看一下好么？
左边的pl不可以，右边的就可以？]
左边的:
((-1 . <图元名: 412a3dd0>) (0 . "OLYLINE") (330 . <图元名: 4078ec10>) (5 .
"DFEA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (100 .
"AcDb2dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 . 5) (40 . 0.0) (41 . 0.0) (210
0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 6))

右边的：
((-1 . <图元名: 421d9848>) (0 . "OLYLINE") (330 . <图元名: 4078ec10>) (5 .
"2E971") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDb2dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 . 5) (40 . 0.0) (41 . 0.0) (210
0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 6))

没有发现什么特殊的呀？
我实在是没辙了.

wkaii

不会吧？
我把我上传的文件下载下来，就可以了~
我晕倒!
55555555555

wkaii

不知道怎么回事？
现在还是有时可以，有时不行~

meflying

说说你的操作过程，及你的调试程序

meflying

发现了一些问题，你的图经过PEDIT还原成矩形（LWPOLYLINE）后，这些对象没有任何属性，只显示是2D POLY，但这个应该是POLYLINE，可它的DXF组码里却是LWPOLYLINE，将系统变量PLINETYPE改为0，然后将图还原成POLYLINE，就可以了，看来这不是函数的问题，问题出在图形上

pedit使用样条曲线和非样条曲线化时如果PLINETYPE不同，结果则会产生这种错误。。。

wkaii

meflying发表于2003-12-19 11:39:00pedit使用样条曲线和非样条曲线化时如果PLINETYPE不同，结果则会产生这种错误...

这里 PLINETYPE 指的是什么呀？

meflying

查看帮助文件

无痕

ａｒｅａ属性支持ｐｌ，ｌｗｐｌ，ｓｐｌ，为什么会跟ｐｌｉｎｅｔｙｐｅ有关系呢？