TA的每日心情![](source/plugin/dsu_paulsign/img/emot/kx.gif) | 开心 2024-8-31 15:58 |
---|
签到天数: 89 天 [LV.6]常住居民II
管理员
- 积分
- 3366
|
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Application(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Application)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:AreaRatio(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'AreaRatio)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:BottomFace(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'BottomFace)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:BottomFace(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'BottomFace value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Conductivity(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Conductivity)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Document(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Document)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Elevation(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Elevation)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Elevation(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Elevation value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:EndClose(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'EndClose)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:EndClose(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'EndClose value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:EntityTransparency(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'EntityTransparency)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:EntityTransparency(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'EntityTransparency value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:EnUsage(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'EnUsage)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:EnUsage(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'EnUsage value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Handle(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Handle)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:HasExtensionDictionary(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'HasExtensionDictionary)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:HatchLayer(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'HatchLayer)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:HatchLayer(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'HatchLayer value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Height(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Height)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Height(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Height value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:HideLabel(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'HideLabel)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:HideLabel(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'HideLabel value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:HoleArea(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'HoleArea)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:HoleVolume(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'HoleVolume)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Hyperlinks(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Hyperlinks)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:InertiaIndex(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'InertiaIndex)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Insulate(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Insulate)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Insulate(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Insulate value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:InsulateClose(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'InsulateClose)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:InsulateClose(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'InsulateClose value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:InsuThick(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'InsuThick)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:InsuThick(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'InsuThick value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:IOFeature(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'IOFeature)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:IOFeature(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'IOFeature value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:IsArc(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'IsArc)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:IsExternal(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'IsExternal)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Label(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Label)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Label(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Label value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Layer(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Layer)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Layer(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Layer value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:LayoutRotation(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LayoutRotation)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:LayoutRotation(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'LayoutRotation value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:LeftInsuThick(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LeftInsuThick)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:LeftInsuThick(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'LeftInsuThick value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:LeftLayer(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LeftLayer)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:LeftLayer(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'LeftLayer value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:LeftSpace(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LeftSpace)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:LeftWidth(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LeftWidth)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:LeftWidth(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'LeftWidth value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Linetype(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Linetype)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Linetype(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Linetype value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:LinetypeScale(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LinetypeScale)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:LinetypeScale(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'LinetypeScale value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Lineweight(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Lineweight)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Lineweight(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Lineweight value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:LSurfaceArea(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LSurfaceArea)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Material(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Material)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Material(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Material value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:ObjectID(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ObjectID)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:ObjectID32(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ObjectID32)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:ObjectName(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ObjectName)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:OwnerID(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'OwnerID)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:OwnerID32(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'OwnerID32)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:PlotStyleName(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'PlotStyleName)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:PlotStyleName(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'PlotStyleName value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Radius(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Radius)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Radius(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Radius value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:RightInsuThick(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'RightInsuThick)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:RightInsuThick(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'RightInsuThick value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:RightLayer(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'RightLayer)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:RightLayer(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'RightLayer value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:RightSpace(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'RightSpace)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:RightWidth(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'RightWidth)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:RightWidth(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'RightWidth value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:RSurfaceArea(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'RSurfaceArea)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Scale(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Scale)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Scale(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Scale value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:ShadowType(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ShadowType)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:ShadowType(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'ShadowType value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:StemInsulate(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'StemInsulate)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:StemInsulate(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'StemInsulate value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:StemInsulateThick(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'StemInsulateThick)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:StemInsulateThick(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'StemInsulateThick value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Structure(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Structure)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Structure(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Structure value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:StruHeight(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'StruHeight)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:StruHeight(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'StruHeight value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:StruIsArc(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'StruIsArc)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Style(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Style)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Style(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Style value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:SurfLayer(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'SurfLayer)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:SurfLayer(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'SurfLayer value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:TextHeight(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TextHeight)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:TextHeight(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TextHeight value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:TextStyle(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TextStyle)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:TextStyle(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TextStyle value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:TopFace(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TopFace)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:TopFace(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TopFace value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:TotalWidth(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TotalWidth)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:TrueColor(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TrueColor)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:TrueColor(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TrueColor value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Usage(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Usage)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Usage(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Usage value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Visible(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Visible)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Set:Visible(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Visible value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:Get:Volume(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Volume)
)
(defun c:kkk()
(vlax-put-property
(vlax-ename->vla-object(car(entsel)))
'startpoint
(vlax-3D-point(getpoint))
)
) |
|