[函数] 天正对象Lisp函数-散水

admin1

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:CloseFlag(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'CloseFlag)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:CloseFlag(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'CloseFlag value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/biggrin.gif" smilieid="3" border="0" alt="" />ists(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Dists)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron<img src="static/image/smiley/default/biggrin.gif" smilieid="3" border="0" alt="" />ists(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Dists value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/biggrin.gif" smilieid="3" border="0" alt="" />ocument(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Document)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:Elev(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Elev)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:Elev(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Elev value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:EntityTransparency(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'EntityTransparency)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:EntityTransparency(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'EntityTransparency value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:Handle(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Handle)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:HasExtensionDictionary(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'HasExtensionDictionary)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:Hyperlinks(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Hyperlinks)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:InHeight(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'InHeight)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:InHeight(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'InHeight value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ayer(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Layer)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ayoutRotation(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'LayoutRotation)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ayoutRotation(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'LayoutRotation value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetype(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Linetype)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetype(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Linetype value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetypeScale(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'LinetypeScale)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetypeScale(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'LinetypeScale value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineweight(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Lineweight)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineweight(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Lineweight value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:Material(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Material)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:Material(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Material value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:ObjectID(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'ObjectID)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:ObjectID32(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'ObjectID32)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:ObjectName(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'ObjectName)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:OutHeight(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'OutHeight)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:OutHeight(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'OutHeight value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:OwnerID(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'OwnerID)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:OwnerID32(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'OwnerID32)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/tongue.gif" smilieid="7" border="0" alt="" />athLength(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'PathLength)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron<img src="static/image/smiley/default/tongue.gif" smilieid="7" border="0" alt="" />lotStyleName(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'PlotStyleName)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron<img src="static/image/smiley/default/tongue.gif" smilieid="7" border="0" alt="" />lotStyleName(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'PlotStyleName value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:Scale(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Scale)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:Scale(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Scale value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:SideArea(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'SideArea)
)


;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:TrueColor(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'TrueColor)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:TrueColor(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'TrueColor value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:Vertex(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Vertex)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:Vertex(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Vertex value)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:GetTchApron:Visible(o)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-get-property o 'Visible)
)

;;说明:
;;参数<img src="static/image/smiley/default/shocked.gif" smilieid="6" border="0" alt="" />:
;;返回:
(defun Zgx:SetTchApron:Visible(o value)
  (or
    (eq (type o)'VLA-OBJECT)
    (setq o(vlax-ename->vla-object o))  
  )
  (vlax-put-property o 'Visible value)
)