TwistAngle 属性 (ActiveX)
指定视口的扭转角度。 支持的平台:仅限 Windows 属性值只读:不 类型:双 以弧度为单位的扭转角。 言论此方法会扭曲或倾斜视线周围的视图。AutoCAD 逆时针测量扭转角度,向右 0 度。 例子VBA: Sub Example_TwistAngle() ' This example creates a new paper space viewport. ' It then displays the twist angle of the viewport. Dim pviewportObj As AcadPViewport Dim center(0 To 2) As Double Dim width As Double Dim height As Double ' Define the pviewport center(0) = 3: center(1) = 3: center(2) = 0 width = 40 height = 40 ' Change from model space to paper space ThisDrawing.ActiveSpace = acPaperSpace ' Create the pviewport Set pviewportObj = ThisDrawing.PaperSpace.AddPViewport(center, width, height) pviewportObj.Display True ThisDrawing.MSpace = True ThisDrawing.ActivePViewport = pviewportObj ThisDrawing.Regen acAllViewports ' Find the twist angle for the viewport Dim twistAngle As Double twistAngle = pviewportObj.TwistAngle MsgBox "The twist angle of the paper space viewport is " & pviewportObj.twistAngle, , "TwistAngle Example" End Sub 可视化 LISP: (vl-load-com) (defun c:Example_TwistAngle() ;; This example creates a new paper space viewport. ;; It then displays the twist angle of the viewport. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the pviewport (setq center (vlax-3d-point 3 3 0) width 40 height 40) ;; Change from model space to paper space (vla-put-ActiveSpace doc acPaperSpace) ;; Create the pviewport (setq paperSpace (vla-get-PaperSpace doc)) (setq pviewportObj (vla-AddPViewport paperSpace center width height)) (vla-Display pviewportObj :vlax-true) (vla-put-MSpace doc :vlax-true) (vla-put-ActivePViewport doc pviewportObj) (vla-Regen doc acAllViewports) ;; Find the twist angle for the viewport (setq twistAngle (vla-get-TwistAngle pviewportObj)) (alert (strcat "The twist angle of the paper space viewport is " (rtos twistAngle 2))) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2024-12-16 00:03
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.