在给定坐标的情况下创建一条引线。 支持的平台:仅窗口 签名工 务 局: RetVal = object.AddMLeader(pointsArray, leaderLineIndex) 返回值(RetVal)类型:姆莱德 新创建的对象。MLeader 言论没有额外的评论。 例子工 务 局: Sub Example_AddMLeader() Dim oML As AcadMLeader Dim points(0 To 14) As Double ' Define the leader points points(0) = 1: points(1) = 1: points(2) = 0 points(3) = 1: points(4) = 2: points(5) = 0 points(6) = 2: points(7) = 2: points(8) = 0 points(9) = 3: points(10) = 2: points(11) = 0 points(12) = 4: points(13) = 4: points(14) = 0 Dim i As Long Set oML = ThisDrawing.ModelSpace.AddMLeader(points, i) End Sub Visual LISP: (vl-load-com) (defun c:Example_AddMLeader() (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the leader points (setq points (vlax-make-safearray vlax-vbDouble '(0 . 14))) (vlax-safearray-fill points '(1 1 0 1 2 0 2 2 0 3 2 0 4 4 0 ) ) (setq i 0) ;; Add the mleader object to model space (setq modelSpace (vla-get-ModelSpace doc)) (setq mLeader (vla-AddMLeader modelSpace points i)) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-11 14:50
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.