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

wkaii · 发表于 2003-12-19 10:07:00

我 Pedit 把一条闭合的 LwPolyLine 样条曲线化之后，不能用vla-get-area 来获得它的面积，vla-get-elevation 也不能得到它的标高。
错误提示为：
"Automation 错误。未提供说明。"
而用 vla-get-color 可以得到颜色值~
二代龙震的参考上说 vla-get-area 是可以用于 PLine 的呀~
请各位版主不吝赐教~

meflying · 发表于 2003-12-19 10:21:00

对象有什么属性应该看帮助文件中ActiveX and VBA reference中每个对象的属性，
如果有，则可以用vla-get-...或vla-put-...（看它的读写允许），vla-get-是通用的前缀，
按你说的，lwpolyline样条曲线化后应该是polyline，这个也支持那两个属性，我试过了，完全可以，
你可以看看对象的DXF组码的0项，如果是别的，可能有些属性就不支持了

wkaii · 发表于 2003-12-19 10:41:00

十分感谢！！
(vla-get-area (Vlax-Ename->Vla-Object (car (entsel))))
(vla-get-elevation (Vlax-Ename->Vla-Object (car (entsel))))
我又试了试，发现有的行有的不行。
我发一个图，麻烦你给看一下好么？
左边的pl不可以，右边的就可以？]
左边的:
((-1 . ) (0 . &quotOLYLINE") (330 . ) (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 . ) (0 . &quotOLYLINE") (330 . ) (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))
没有发现什么特殊的呀？
我实在是没辙了.

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:hawvb3acxmw.dwg
下载次数:0 文件大小:32.13 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

wkaii · 发表于 2003-12-19 10:44:00

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

wkaii · 发表于 2003-12-19 11:17:00

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

meflying · 发表于 2003-12-19 11:22:00

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

meflying · 发表于 2003-12-19 11:39:00

发现了一些问题，你的图经过PEDIT还原成矩形（LWPOLYLINE）后，这些对象没有任何属性，只显示是2D POLY，但这个应该是POLYLINE，可它的DXF组码里却是LWPOLYLINE，将系统变量PLINETYPE改为0，然后将图还原成POLYLINE，就可以了，看来这不是函数的问题，问题出在图形上
pedit使用样条曲线和非样条曲线化时如果PLINETYPE不同，结果则会产生这种错误。。。