不与 WCS 平行的UCS下 MLeader 制造问题

st788796

AddMleader 定义如下：

Signature

RetVal = object.AddMLeader(pointsArray, leaderLineIndex)

Object   ModelSpace Collection, PaperSpace Collection, Block
The object or objects this method applies to.

pointsArray

Variant (three-element array of Doubles); input-only
The array of 3D WCS coordinates specifying the leader. You must provide at least two point to define the leader. The third point is optional.

leaderLineIndex

Long; input-only
Input index of the mleader cluster.

RetVal

MLeader object
The newly created MLeader object.

MLeader 是 Leader 增加了"反应器“的集合，Leader 定义如下

Signature

RetVal = object.AddLeader(PointsArray, Annotation, Type)

Object

ModelSpace collection, PaperSpace collection, Block
The object or objects this method applies to.

PointsArray

Variant (array of doubles); input-only
The array of 3D WCS coordinates specifying the leader. You must provide at least two points to define the leader. The third point is optional.

Annotation

Object; input-only
A Tolerance, MText, BlockRef object or NULL.

Type

AcLeaderType enum; input-only

acAttributeModeLockPosition

acAttributeModeMultipleLine

acLineNoArrow

acLineWithArrow

acSplineNoArrow

acSplineWithArrow

RetVal

Leader object
The newly created Leader object.

其中有个 coordinate 属性，

Signature

object.Coordinate(index)

object

3DPoly, Leader, LightweightPolyline, Point, PolyfaceMesh, PolygonMesh, Polyline, Section, Solid, Trace
The object or objects this property applies to.

Coordinate

Variant (three-element or two-element array of doubles); read-write
The array of X, Y, and Z coordinates for the specified vertex.

LightweightPolyline object: The variant has two elements representing the X and Y coordinates in OCS.
Polyline object: The variant has three elements, representing the X and Y coordinates in OCS. The Z coordinate is present in the variant but ignored.

All other objects: The variant has three elements, representing the X and Y coordinates in WCS; the Z coordinate will default to 0 on the active UCS.

Index

Integer
The index in the array of vertices for the vertex you want to set or query. The vertex arrays are 0 based.

Remarks

This property will replace any existing vertices for the specified object. Use standard array-handling techniques to process the values contained in this property.

3DPolyline, Polyline, PolygonMesh: For simple polylines (not splined or curve fit), this property specifies simple vertices. For splined or curve-fit polylines, this property specifies control point vertices.

The OCS coordinates for the Polyline and LightweightPolyline objects can be converted to and from other coordinate systems using the TranslateCoordinates method.

注意其中红色部分，AddMLeader 中 pointsArray 是三元素的点表，事实上在不与 WCS 平行的 UCS 下生成的MLeader会忽略掉 Z ，可以使用下面的代码在 http://bbs.xdcad.net/thread-710631-1-1.html 这个帖子中的附件验证

2. [/align][align=left](defun c:tt (/ ms p p1 ml scl)
   
3.   ;;(setq scl (getreal "\nscalefactor: "))
   
4.   ;;(if (not scl)
   
5.   ;;  (setq scl 100.0)
   
6.   ;;)
   
7.   (setq    ms (vla-get-modelspace
   
8.          (vla-get-activedocument (vlax-get-acad-object))
   
9.        )
   
10.   )
    
11.   (while (and (setq p (getpoint "\nlocation: "))
    
12.           (setq p1 (getpoint p "\nposition: "))
    
13.      )
    
14.     (princ "\n")
    
15.     (princ (trans p 1 0))
    
16.     (princ "\n")
    
17.     (princ (trans p1 1 0))
    
18.     (setq ml (vla-addmleader
    
19.            ms
    
20.            (vlax-make-variant
    
21.          (vlax-safearray-fill
    
22.            (vlax-make-safearray
    
23.              vlax-vbdouble
    
24.              '(0 . 5)
    
25.            )
    
26.            (append (trans p 1 0)
    
27.                (trans p1 1 0)
    
28.            )
    
29.          )
    
30.            )
    
31.            0
    
32.          )
    
33.     )
    
34.     (vla-put-textstring
    
35.       ml
    
36.       (strcat "X="
    
37.           (rtos (car p) 2 0)
    
38.           "\\PY="
    
39.           (rtos (cadr p) 2 0)
    
40.           "\\PZ="
    
41.           (rtos (last p) 2 0)
    
42.       )
    
43.     )
    
44.     (vla-put-textjustify ml acAttachmentPointMiddleLeft)
    
45.     (vla-put-textleftattachmenttype ml 3)
    
46.     (vla-put-textrightattachmenttype ml 3)
    
47.     (vla-put-DoglegLength ml 10.0)
    
48.     (vla-put-scalefactor ml 50)
    
49.   )
    
50.   (princ)
    
51. )

[/align][align=left](defun c:tt (/ ms p p1 ml scl)<br />   ;;(setq scl (getreal "\nscalefactor: "))<br />   ;;(if (not scl)<br />   ;;  (setq scl 100.0)<br />   ;;)<br />   (setq    ms (vla-get-modelspace<br />          (vla-get-activedocument (vlax-get-acad-object))<br />        )<br />   )<br />   (while (and (setq p (getpoint "\nlocation: "))<br />           (setq p1 (getpoint p "\nposition: "))<br />      )<br />     (princ "\n")<br />     (princ (trans p 1 0))<br />     (princ "\n")<br />     (princ (trans p1 1 0))<br />     (setq ml (vla-addmleader<br />            ms<br />            (vlax-make-variant<br />          (vlax-safearray-fill<br />            (vlax-make-safearray<br />              vlax-vbdouble<br />              '(0 . 5)<br />            )<br />            (append (trans p 1 0)<br />                (trans p1 1 0)<br />            )<br />          )<br />            )<br />            0<br />          )<br />     )<br />     (vla-put-textstring<br />       ml<br />       (strcat "X="<br />           (rtos (car p) 2 0)<br />           "\\PY="<br />           (rtos (cadr p) 2 0)<br />           "\\PZ="<br />           (rtos (last p) 2 0)<br />       )<br />     )<br />     (vla-put-textjustify ml acAttachmentPointMiddleLeft)<br />     (vla-put-textleftattachmenttype ml 3)<br />     (vla-put-textrightattachmenttype ml 3)<br />     (vla-put-DoglegLength ml 10.0)<br />     (vla-put-scalefactor ml 50)<br />   )<br />   (princ)<br /> )