CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

ElevationPaperSpace 属性（ActiveX）

2024-5-18 18:56| 发布者: admin| 查看: 349| 评论: 0|原作者: admin|来自: AutoCAD

指定图纸空间中的高程设置。

支持的平台：仅限 Windows

签名

VBA：

object.ElevationPaperSpace

对象

类型：数据库、文档

此属性应用于的对象。

属性值

只读：不

类型：双

图纸空间的高程。

言论

当前高程是每当需要 3D 点但仅提供 X 和 Y 值时使用的 Z 值。当前高程分别在模型空间和图纸空间中维护。

例子

VBA：

Sub Example_ElevationPaperSpace()
    ' This example changes the paper space elevation of the current drawing
    ' and then resets it to the original value.
    
    Dim currElevation As Double
    
    currElevation = ThisDrawing.ElevationPaperSpace
    MsgBox "The current paper space elevation is " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationpaperSpace Example"
    
    ' Change the elevation
    ThisDrawing.ElevationPaperSpace = currElevation + 2
    MsgBox "The new paper space elevation is " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationpaperSpace Example"
    
    ' Reset the elevation to its original value
    ThisDrawing.ElevationPaperSpace = currElevation
    MsgBox "The paper space elevation is reset to " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationPaperSpace Example"

End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_ElevationPaperSpace()
    ;; This example changes the paper space elevation of the current drawing
    ;; and then resets it to the original value.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq currElevation (vla-get-ElevationPaperSpace doc))
    (alert (strcat "The current paper space elevation is " (rtos currElevation 2)))
    
    ;; Change the elevation
    (vla-put-ElevationPaperSpace doc (+ currElevation 2))
    (alert (strcat "The new paper space elevation is " (rtos (vla-get-ElevationPaperSpace doc) 2)))
    
    ;; Reset the elevation to its original value
    (vla-put-ElevationPaperSpace doc currElevation)
    (alert (strcat "The paper space elevation is reset to " (rtos (vla-get-ElevationPaperSpace doc) 2)))
)