AddDimOrdinate 方法 (ActiveX)
在给定定义点和引线端点的情况下创建纵坐标维度。 支持的平台:仅限 Windows 签名VBA: RetVal = object.AddDimOrdinate(DefinitionPoint, LeaderEndPoint, UseXAxis) 言论纵坐标尺寸显示对象的 X 或 Y 坐标以及简单的引线。坐标的绝对值根据纵坐标尺寸的现行标准使用。 ![]() 测量与圆相切的点的绝对 X 位置的纵坐标维数 例子VBA: Sub Example_AddDimOrdinate() ' This example creates an ordinate dimension in model space. Dim dimObj As AcadDimOrdinate Dim definingPoint(0 To 2) As Double Dim leaderEndPoint(0 To 2) As Double Dim useXAxis As Long ' Define the dimension definingPoint(0) = 5#: definingPoint(1) = 5#: definingPoint(2) = 0# leaderEndPoint(0) = 10#: leaderEndPoint(1) = 5#: leaderEndPoint(2) = 0# useXAxis = 5# ' Create an ordinate dimension in model space Set dimObj = ThisDrawing.ModelSpace.AddDimOrdinate(definingPoint, leaderEndPoint, useXAxis) ZoomAll End Sub 可视化 LISP: (vl-load-com) (defun c:Example_AddDimOrdinate() ;; This example creates an ordinate dimension in model space. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the dimension (setq definingPoint (vlax-3d-point 5 5 0) leaderEndPoint (vlax-3d-point 10 5 0) useXAxis 5) ;; Create an ordinate dimension in model space (setq modelSpace (vla-get-ModelSpace doc)) (setq dimObj (vla-AddDimOrdinate modelSpace definingPoint leaderEndPoint useXAxis)) (vla-ZoomAll acadObj) ) |
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-3-14 08:48
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.