[编程交流] [Civil 3D]如何获得面积o

(defun c:prop (/ p1 p2)
 (vl-load-com)
 (setq p1 (vlax-ename->vla-object (car (entsel))))
 (setq p2 (vlax-get-property p1 "Parent"))
 ....
 (vlax-dump-object p2 'T)
 (princ)
 )

我找不到这个地方。
属性将显示在窗口中。
这如图所示。

  (setq obj (vlax-Ename->Vla-Object (car (entsel))))
 (vlax-dump-object obj 'T)

回来
 
; 属性值：
;   应用（RO）=#
;   数据类型=5
;   Description=“”
;   DisplayName（RO）=“SL集合-1-0+020.00-物料清单-（2）-地面填充（181）”
;   文件（RO）=#
;   高程最大值（RO）=112.042
;   标高最小值（RO）=104.316
;   EntityTransparency=“ByLayer”
;   手柄（RO）=“6692”
;   HasExtensionDictionary（RO）=0
;   超链接（RO）=#
;   标签组（RO）=。。。未显示索引内容。。。
;   图层=“C-ROAD-SHAP”
;   长度左（RO）=-34.7016
;   长度（RO）=14.3699
;   线型=“ByLayer”
;   线型比例=1.0
;   线宽=-1
;   链路（RO）=#
;   MappingName（RO）=“材料清单-（2）”
;   材料=“ByLayer”
;   材料名称（RO）=“地面填充”
;   Name=“SL集合-1-0+020.00-材料清单-（2）-地面填充（181）”
;   目标ID（RO）=43
;   目标32（RO）=43
;   ObjectName（RO）=“AeccDbMaterialSection”
;   所有者ID（RO）=78
;   所有者32（RO）=78
;   父（RO）=#
;   PlotStyleName=“ByLayer”
;   ShowToolTip=-1
;   静态-动态=1
;   站点（RO）=20.0
;   风格=Civil 3D API:Taki interfejs nie jest obsługiwany。
;   StyleName（RO）=“填充材料”
;   表面（RO）=零
;   真彩色=#
;   可见=-1
; 支持的方法：
;   ArrayPolar（3）
;   阵列直角（6）
;   复制（）
;   删除（）
;   高程（1）
;   GetBoundingBox（2）
;   GetExtensionDictionary（）
;   获取扩展数据（3）
;   突出显示（1）
;   与（2）相交
;   IsReferenceObject（）
;   IsReferenceStale（）
;   IsReferenceSubObject（）
;   IsReferenceValid（）
;   镜子（2）
;   镜像3D（3）
;   移动（2）
;   旋转（2）
;   旋转3d（3）
;   标度（2）
;   设置扩展数据（2）
;   TransformBy（1）
;   更新（）
 

setq obj (vlax-Ename->Vla-Object (car (entsel))))
 (setq e1 (vlax-get-property obj "Parent"))
 (setq e2 (vlax-get-property e1 "Parent"))
 (setq e3 (vlax-get-property e2 "Parent"))
 (print (vlax-get (vlax-invoke-method e3 'GetLWPolyline) 'Coordinates))

 
回来

(dumpallproperties (car (entsel)))

 
选择对象：开始转储对象（类：AeccDbMaterialSection）
面积（类型：double）=无法获取值
注释性（类型：bool）（LocalName:Annotative）=无法获取值
AnnotativeScale（类型：AcString）（RO）（本地名称：AnnotativeScale）=无法获取值
面积（类型：双）（RO）（本地名称：面积）=0.000000
块ID（类型：AcDbObjectId）（RO）=7ffffb039f0
CastShadows（类型：bool）=1
类名（类型：AcString）（RO）=
Closed（type:bool）（RO）（LocalName:Closed）=无法获取值
碰撞类型（类型：AcDb：：碰撞类型）（RO）=1
颜色（类型：AcCmColor）（本地名称：Color）=BYLAYER
EndParam（类型：double）（RO）=1.000000
端点/X（类型：double）（RO）（本地名称：End X）=0.000000
端点/Y（类型：双精度）（RO）（本地名称：End Y）=0.000000
端点/Z（类型：双精度）（RO）（本地名称：End Z）=1.000000
ExtensionDictionary（类型：AcDbObjectId）（RO）=0
手柄（类型：AcDbHandle）（RO）=6690
HasFields（类型：bool）（RO）=0
HasSaveVersionOverride（类型：bool）=0
超链接（类型：AcDbHyperlink*）
IsA（类型：AcRxClass*）（RO）=AeccDbMaterialSection
IsAProxy（类型：bool）（RO）=0
IsCanceling（类型：bool）（RO）=0
IsEraseStatusToggled（类型：bool）（RO）=0
IsErased（类型：bool）（RO）=0
IsModified（type:bool）（RO）=0
IsModifiedGraphics（类型：bool）（RO）=0
IsModifiedXData（类型：bool）（RO）=0
IsNewObject（类型：bool）（RO）=0
IsNotifyEnabled（类型：bool）（RO）=0
IsNotifying（类型：bool）（RO）=0
等深线流入（类型：bool）（RO）=0
i周期（类型：bool）（RO）=0
IsPersistent（类型：bool）（RO）=1
平面（类型：bool）（RO）=1
IsReadEnabled（类型：bool）（RO）=1
IsReallyClosing（类型：bool）（RO）=1
IsTransactionResident（类型：bool）（RO）=0
IsUndoing（类型：bool）（RO）=0
IsWriteEnabled（类型：bool）（RO）=0
LayerId（类型：AcDbObjectId）（本地名称：Layer）=7ffffb05960
线宽（类型：AcDb：：线宽）（本地名称：线宽）=-1
线型ID（类型：AcDbObjectId）（本地名称：线型）=7ffffb03950
线型比例（类型：double）（本地名称：线型比例）=1.000000
本地化名称（类型：AcString）（RO）=
MaterialId（类型：AcDbObjectId）（本地名称：Material）=7ffffb064c0
合并样式（类型：AcDb：：DuplicateRecordCloning）（RO）=1
ObjectId（类型：AcDbObjectId）（RO）=7ffffb2f480
所有者ID（类型：AcDbObjectId）（RO）=7ffffb039f0
PlotStyleName（类型：AcString）（本地名称：打印样式）=ByLayer
接收阴影（类型：bool）=1
ShadowDisplay（类型：AcDb：：ShadowFlags）（RO）（本地名称：Shadow Display）=无法获取值
启动图（类型：双）（RO）=0.000000
StartPoint/X（类型：double）（RO）（本地名称：Start X）=0.000000
起始点/Y（类型：双精度）（RO）（本地名称：起始Y）=0.000000
起始点/Z（类型：双精度）（RO）（本地名称：起始Z）=0.000000
透明度（类型：AcCmTransparency）（本地名称：Transparency）=0
可见（类型：AcDb：：可见性）=0
结束对象转储