[其他]：82. xdrx_getarea Bug

LUCAS

Bug:
1.返回值：成功返回LISP表(面积 5.89649e+172)，第二个返回值永远一样

Command: (xdrx_getarea (car (entsel)))

Select object: (170.812 5.89649e+172)

Command: (xdrx_getarea (car (entsel)))

Select object: (2.23269e-302 5.89649e+172)


2.<实体像素名>AcDbLine:也处理

XDSoft

最初由 LUCAS 发布
[B]Bug:
1.返回值：成功返回LISP表(面积 5.89649e+172)，第二个返回值永远一样

Command: (xdrx_getarea (car (entsel)))

Select object: (170.812 5.89649e+172)

Command: (xdrx_getarea (car (entsel)))

... [/B]

第一个你测试的是什么实体?

第二个LINE的,下个版本去掉,在应用中应该没有问题,因为开始你一定要判断实体类型的,LINE肯定是不会判断也不会求的.

LUCAS

在测试Mdt6.0 power pack(内含autocad 2002)
***  == AutoCAD 应用程序开发接口XdRx_API For ACAD 2000 Build 11208 ==  ***
***  请访问“晓东的CAD空间 http://xdsoft.126.com”获取最新版本 ***
本版本时间限制到2002年2月31日，请大家随时到http://xdsoft.126.com更新！
Command: (xdrx_getarea (car (entsel)))
Select object: (1975.16 5.89649e+172);;;;;;;第二个返回值永远一样
Command: LIST
Select objects: 1 found
Select objects:
                  ARC       Layer: "0"
                            Space: Model space
                   Handle = B82
            center point, X= 106.3198  Y= 102.3695  Z=   0.0000
            radius   71.5803
         start angle    340
         end angle     80
           length  125.5669      ;;;;;;;;;;;;;;;;;;;弧长
Command: (ENTGET (CAR (ENTSEL)))
Select object: ((-1 . <Entity name: 400aa290>) (0 . "ARC") (330 . <Entity name:
400a8cf8>) (5 . "B82") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbCircle") (10 106.32 102.369 0.0) (40 . 71.5803) (210 0.0 0.0 1.0)
(100 . "AcDbArc") (50 . 5.93386) (51 . 1.40488))



在测试MDT2.0(含AUTOCAD R14.01)
Command: (arxload "xdrx_api14")
***  == AutoCAD 应用程序开发接口XdRx_API For ACAD R14 Build 11208 ==  ***
***  请访问“晓东的CAD空间 http://xdsoft.126.com”获取最新版本 ***
本版本时间限制到2002年2月31日，请大家随时到http://xdsoft.126.com更新！"xdrx_api14"
Command: (xdrx_getarea (car (entsel)))
Select object: (2.02539 2.19032) ;;;;;;返回值错误
Command: list
Select objects: 1 found
Select objects:
                  ARC       Layer: 0
                            Space: Model space
                   Handle = 4F
            center point, X=   5.9775  Y=   3.9774  Z=   0.0000
                radius    1.5641
             start angle    316
             end angle     91
            length    3.6915  ;;;;;;;;;;;;;;;;;;;弧长
Command: (ENTGET (CAR (ENTSEL)))
Select object: ((-1 . <Entity name: 4210538>) (0 . "ARC") (5 . "4F") (100 .
"AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbCircle") (10 5.97754 3.97736 0.0)
(40 . 1.56413) (210 0.0 0.0 1.0) (100 . "AcDbArc") (50 . 5.51454) (51 . 1.59144))

eachy

在cad2002+钻石版汉化中没有此bug。
命令: arc 指定圆弧的起点或 [圆心(C)]:
指定圆弧的第二个点或 [圆心(C)/端点(E)]:
指定圆弧的端点:
命令: (xdrx_getarea (car (entsel)))
选择对象: (15374.3 324.136)
命令: li
LIST
选择对象: 找到 1 个
选择对象:
                  ARC       图层: 0
                            空间: 模型空间
                   句柄 = 2E
              圆心 点，X= 307.9104  Y=  59.1374  Z=   0.0000
              半径  142.1114
              起点 角度    38
              端点 角度   169
            长度  324.1358

命令: area
指定第一个角点或 [对象(O)/加(A)/减(S)]: e
选择对象:
选定的对象没有面积
选择对象:
命令: x LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: ee PEDIT 选择多段线或 [多条(M)]:
选定的对象不是多段线
是否将其转换为多段线? <Y>
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: j
选择对象: 找到 1 个
选择对象:
1 条线段已添加到多段线
输入选项
[打开(O)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]:
命令: aa AREA
指定第一个角点或 [对象(O)/加(A)/减(S)]: e
选择对象:
面积 = 15374.2976，周长 = 582.4410