天正-做法标注函数
;;说明:;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Alignment(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Alignment)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:Alignment(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Alignment value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Application(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Application)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:CirPointSize(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'CirPointSize)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:CirPointSize(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'CirPointSize value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Dist2Line(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Dist2Line)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:Dist2Line(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Dist2Line value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Document(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Document)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:EntityTransparency(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'EntityTransparency)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:FontStyle(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'FontStyle)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:FontStyle(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'FontStyle value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Handle(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Handle)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:HasExtensionDictionary(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'HasExtensionDictionary)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Height(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Height)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:Hyperlinks(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Hyperlinks)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Layer(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Layer)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:LayoutRotation(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LayoutRotation)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:LineSpace(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LineSpace)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:LineSpace(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'LineSpace value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Linetype(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Linetype)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:LinetypeScale(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'LinetypeScale)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:Lineweight(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Lineweight)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:Material(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Material)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:ObjectID(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ObjectID)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:ObjectID32(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ObjectID32)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:ObjectName(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ObjectName)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:OwnerID(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'OwnerID)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:OwnerID32(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'OwnerID32)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:PageWidth(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'PageWidth)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:PageWidth(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'PageWidth value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:ParagraphSpace(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'ParagraphSpace)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:ParagraphSpace(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'ParagraphSpace value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:PlotStyleName(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'PlotStyleName)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:Scale(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Scale)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:Space(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Space)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:Space(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Space value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Text(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Text)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:Text(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Text value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:Text2BaseRatio(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Text2BaseRatio)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:Text2BaseRatio(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Text2BaseRatio value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:TextBaseLen(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TextBaseLen)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:TextBaseLen(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TextBaseLen value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:TextColor(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TextColor)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:TextColor(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TextColor value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:TextLayer(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TextLayer)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:TextLayer(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TextLayer value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:TextSide(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TextSide)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:TextSide(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TextSide value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:TextType(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TextType)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:TextType(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'TextType value)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:GetTchComposing:TrueColor(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'TrueColor)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing: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:GetTchComposing:Visible(o)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-get-property o 'Visible)
)
;;说明:
;;参数:o:
;;返回:
(defun Zgx:SetTchComposing:Visible(o value)
(or
(eq (type o)'VLA-OBJECT)
(setq o(vlax-ename->vla-object o))
)
(vlax-put-property o 'Visible value)
)
(zgx:getchco)
页:
[1]