天正对象lisp函数-墙体

brainstorm · 发表于 2021-11-29 14:54:40

[code=lisp];;说明:
;;参数: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))
)
)

[code=lisp];;说明: 
;;参数: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)) 
  ) 
)

[/code]

lxl217114 · 发表于 2021-11-30 09:49:34

原码大放送，点赞收藏+2

xiangganglv · 发表于 2021-11-30 09:58:53

函数干什么用的？

Aries · 发表于 2021-12-3 10:39:52

之后这是可以不用天正插件导图？

664571221 · 发表于 2021-12-3 18:02:36

大神程序干嘛用的？？

Flamingo · 发表于 2021-12-5 16:28:37

大神，程序怎么用的

LIULISHENG · 发表于 2021-12-8 10:10:23

这是天正的源码吗

灰石Jeremy · 发表于 2021-12-8 10:44:10

不明觉厉反正

冯罗国 · 发表于 2024-2-3 20:32:46

不知道怎么用，楼主能举例吗

账号		自动登录	找回密码
密码			注册

[函数] 天正对象lisp函数-墙体

评分