社区 › AutoLISP/Visual LISP 编程技术 › 天正对象lisp函数-墙体

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

天正对象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))
)
)

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函数-墙体