Getpropertyvalue 对 Point 没有 Position

st788796

令: VLISP
Class AcDbEntity:
    ├─BoundingBox
    ├─Color
    ├─ECS
    ├─Layer
    ├─Linetype
    ├─LinetypeScale
    ├─LineWeight
    ├─PlotStyleName
    ├─StretchPoint
    ├─Visibility
Class AcDbObject:
    ├─ClassName
    ├─ExtensionDictionary
    ├─FieldDictionary
    ├─IsA
    ├─IsAProxy
    ├─IsErased
    ├─IsReallyClosing
    ├─Handle
    ├─HasFields
    ├─MyParent
    ├─ObjectID
    ├─Owner

命令:
命令: (dumpallproperties (entlast))
Begin dumping object (class: AcDbPoint)
Annotative (type: bool)  (LocalName: 注释性) = Failed to get value
AnnotativeScale (type: AcString)  (RO)  (LocalName: 注释性比例) = Failed to get value
BlockId (type: AcDbObjectId)  (RO) = 7ef01cf8
CastShadows (type: bool) = 0
ClassName (type: AcString)  (RO) =
CollisionType (type: AcDb::CollisionType)  (RO) = 1
Color (type: AcCmColor)  (LocalName: 颜色) = BYLAYER
EcsRotation (type: double) = -0.000000
ExtensionDictionary (type: AcDbObjectId)  (RO) = 0
Handle (type: AcDbHandle)  (RO) = 277
HasFields (type: bool)  (RO) = 0
HasSaveVersionOverride (type: bool) = 0
Hyperlinks (type: AcDbHyperlink*)
IsA (type: AcRxClass*)  (RO) = AcDbPoint
IsAProxy (type: bool)  (RO) = 0
IsCancelling (type: bool)  (RO) = 0
IsEraseStatusToggled (type: bool)  (RO) = 0
IsErased (type: bool)  (RO) = 0
IsModified (type: bool)  (RO) = 0
IsModifiedGraphics (type: bool)  (RO) = 0
IsModifiedXData (type: bool)  (RO) = 0
IsNewObject (type: bool)  (RO) = 0
IsNotifyEnabled (type: bool)  (RO) = 0
IsNotifying (type: bool)  (RO) = 0
IsObjectIdsInFlux (type: bool)  (RO) = 0
IsPersistent (type: bool)  (RO) = 1
IsPlanar (type: bool)  (RO) = 1
IsReadEnabled (type: bool)  (RO) = 1
IsReallyClosing (type: bool)  (RO) = 1
IsTransactionResident (type: bool)  (RO) = 0
IsUndoing (type: bool)  (RO) = 0
IsWriteEnabled (type: bool)  (RO) = 0
LayerId (type: AcDbObjectId)  (LocalName: 图层) = 7ef01c80
LineWeight (type: AcDb::LineWeight)  (LocalName: 线宽) = -1
LinetypeId (type: AcDbObjectId)  (LocalName: 线型) = 7ef01ca8
LinetypeScale (type: double)  (LocalName: 线型比例) = 1.000000
LocalizedName (type: AcString)  (RO) = 点
MaterialId (type: AcDbObjectId)  (LocalName: 材质) = 7ef01f60
MergeStyle (type: AcDb::DuplicateRecordCloning)  (RO) = 1
Normal/X (type: double) = 0.000000
Normal/Y (type: double) = 0.000000
Normal/Z (type: double) = 1.000000
ObjectId (type: AcDbObjectId)  (RO) = 7ef03838
OwnerId (type: AcDbObjectId)  (RO) = 7ef01cf8
PlotStyleName (type: AcString)  (LocalName: 打印样式) = ByLayer
Position/X (type: double)  (LocalName: 位置 X 坐标) = 3765.822957
Position/Y (type: double)  (LocalName: 位置 Y 坐标) = 1882.972414
Position/Z (type: double)  (LocalName: 位置 Z 坐标) = 0.000000
ReceiveShadows (type: bool) = 0
ShadowDisplay (type: AcDb::ShadowFlags)  (RO)  (LocalName: 阴影显示) = Failed to get value
Thickness (type: double)  (LocalName: 厚度) = 0.000000
Transparency (type: AcCmTransparency)  (LocalName: 透明度) = 0
Visible (type: AcDb::Visibility) = 0
End object dump
nil

可能的应用如下:

1. (defun c:tt (/ ss pts)
   
2.   (if (setq ss (ssget '((0 . "point"))))
   
3.     (progn
   
4.       (setq
   
5. pts (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Position"))
   
6.       (xdrx_pickset->ents)
   
7.      )
   
8.       )
   
9.     )
   
10.   )
    
11. )

(defun c:tt (/ ss pts)<br />   (if (setq ss (ssget '((0 . "point"))))<br />     (progn<br />       (setq<br /> pts (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Position"))<br />       (xdrx_pickset->ents)<br />      )<br />       )<br />     )<br />   )<br /> )

XDSoft

还没加入AcDbPoint类，下个版本加入。