文字旋转的 MLeader

iLisp

一般标注的 MLeader 文字是水平方向，使用  textrotation 属性可以将标准文字旋转一个角度

iLisp

这样的效果

Lisphk

大师，有代码吗？

Lisphk

看了下对象的方法，没发现MLEADER有设置textrotaion属性的啊， 它的那个文字怎么得到？

命令: (vlax-dump-object obj t)
; IAcadMLeader: AutoCAD Multi-Leader 接口
;特性值:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00d73d3c>
;   ArrowheadBlock = ""
;   ArrowheadSize = 4.0
;   ArrowheadType = 0
;   BlockConnectionType = 0
;   ContentBlockName = ""
;   ContentBlockType = 6
;   ContentType = 2
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0af7fb90>
;   DogLegged = -1
;   DoglegLength = 8.0
;   Handle (RO) = "62A"
;   Ha**tensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 2470e4f4>
;   LandingGap = 2.0
;   Layer = "0"
;   LeaderCount (RO) = 1
;   LeaderLineColor = #<VLA-OBJECT IAcadAcCmColor 244c0080>
;   LeaderLineType = "ByBlock"
;   LeaderLineWeight = -2
;   LeaderType = 1
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   ObjectID (RO) = -8455728
;   ObjectName (RO) = "AcDbMLeader"
;   OwnerID (RO) = -2507528
;   PlotStyleName = "ByLayer"
;   ScaleFactor = 1.0
;   StyleName = "Standard"
;   TextBackgroundFill = 0
;   TextDirection = 5
;   TextFrameDisplay = 0
;   TextHeight = 2.5
;   TextJustify = 1
;   TextLeftAttachmentType = 1
;   TextLineSpacingDistance = 4.16667
;   TextLineSpacingFactor = 1.0
;   TextLineSpacingStyle = 1
;   TextRightAttachmentType = 1
;   TextRotation = 0.0
;   TextString = "bdd"
;   TextStyleName = "XD-汉字字体1"
;   TextWidth = 6.64973
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 244bfff0>
;   Visible = -1
;支持的方法:
;   AddLeader ()
;   AddLeaderLine (2)
;   AddLeaderLineEx (1)
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   GetBlockAttributeValue (1)
;   GetBoundingBox (2)
;   GetDoglegDirection (1)
;   GetExtensionDictionary ()
;   GetLeaderIndex (1)
;   GetLeaderLineIndexes (1)
;   GetLeaderLineVertices (1)
;   GetVertexCount (1)
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   RemoveLeader (1)
;   RemoveLeaderLine (1)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetBlockAttributeValue (2)
;   SetDoglegDirection (2)
;   SetLeaderLineVertices (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()
T

iLisp

Lisphk 发表于 2016-11-11 18:49

dump 中的 特性值 有 textrotation

2. 
   
3. (defun c:idd (/ myerr callback olderr p mls p ml p1)
   
4.   (defun myerr (msg)
   
5.     (xdrx_pointmonitor)
   
6.     (xdrx_sysvar_pop)
   
7.     (setq *error* olderr)
   
8.     (princ)
   
9.   )
   
10.   (defun callback (dynpt)
    
11.     (if        ml
    
12.       (xdrx_entity_movestretchpoint
    
13.         ml
    
14.         (mapcar '- dynpt p1)
    
15.         0
    
16.         1
    
17.         2
    
18.       )
    
19.     )
    
20.     (setq p1 dynpt)
    
21.   )
    
22. 
    
23.   (setq        olderr        *error*
    
24.         *error*        myerr
    
25.   )
    
26.   (setq an (getangle "\nRotation: "))
    
27.   (xdrx_sysvar_push '("cmlstyle" "zbbz") '("dimzin" 0))
    
28.   (while (setq p (getpoint "\nPosition: "))
    
29.     (xdrx_pointmonitor "callback")
    
30.     (setq ml (xdrx_mleader_make
    
31.                p
    
32.                (setq p1 (polar p 0.0 10.0))
    
33.                (strcat "X-"
    
34.                        (rtos (cadr p) 2 3)
    
35.                        "\n\rY-"
    
36.                        (rtos (car p) 2 3)
    
37.                )
    
38.                (getvar "textsize")
    
39.                0.0
    
40.              )
    
41.     )
    
42.     (xdrx_setpropertyvalue ml "ArrowSymbolId" "_None")
    
43.     (if        an
    
44.       (vla-put-textrotation (vlax-ename->vla-object ml) an)
    
45.     )
    
46.     (getpoint "\nLocation: ")
    
47.     (xdrx_pointmonitor)
    
48.   )
    
49.   (xdrx_sysvar_pop)
    
50.   (xdrx_pointmonitor)
    
51.   (setq *error* olderr)
    
52.   (princ)
    
53. )
    

<br /> (defun c:idd (/ myerr callback olderr p mls p ml p1)<br />   (defun myerr (msg)<br />     (xdrx_pointmonitor)<br />     (xdrx_sysvar_pop)<br />     (setq *error* olderr)<br />     (princ)<br />   )<br />   (defun callback (dynpt)<br />     (if        ml<br />       (xdrx_entity_movestretchpoint<br />         ml<br />         (mapcar '- dynpt p1)<br />         0<br />         1<br />         2<br />       )<br />     )<br />     (setq p1 dynpt)<br />   )<br /> <br />   (setq        olderr        *error*<br />         *error*        myerr<br />   )<br />   (setq an (getangle "\nRotation: "))<br />   (xdrx_sysvar_push '("cmlstyle" "zbbz") '("dimzin" 0))<br />   (while (setq p (getpoint "\nPosition: "))<br />     (xdrx_pointmonitor "callback")<br />     (setq ml (xdrx_mleader_make<br />                p<br />                (setq p1 (polar p 0.0 10.0))<br />                (strcat "X-"<br />                        (rtos (cadr p) 2 3)<br />                        "\n\rY-"<br />                        (rtos (car p) 2 3)<br />                )<br />                (getvar "textsize")<br />                0.0<br />              )<br />     )<br />     (xdrx_setpropertyvalue ml "ArrowSymbolId" "_None")<br />     (if        an<br />       (vla-put-textrotation (vlax-ename->vla-object ml) an)<br />     )<br />     (getpoint "\nLocation: ")<br />     (xdrx_pointmonitor)<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_pointmonitor)<br />   (setq *error* olderr)<br />   (princ)<br /> )<br />

Lisphk

在2008下面，没有效果 ，
命令: !vla-put-textrotation
#<SUBR @185c1334 vla-put-TextRotation>

命令: (vla-put-textrotation obj (/ pi 3))
nil

可能是高版本CAD才支持吧。

cable2004

确实是难得好帖啊，顶先

iLisp

Lisphk 发表于 2016-11-11 19:03

图示是在2012 上，特地安装了2008，在08下这个属性可以get ，put 确实无效，不过通过 用 entmod 42 可以修改角度，但夹点后会恢复

yoyoho

正需要，支持 iLisp 楼主大人了！

376394482

学习一下，谢谢。

eachy

Lisphk 发表于 2016-11-11 19:03

低版本下 ActiveX 没有实现修改，不过你使用 rotate 命令 MLeader 可以实现旋转后的效果，说明MLeader实体中的 Mtext 是可以有旋转的，猜测 ARX 构造MLeader 中的 setMtext 如果给定了一个旋转的 MText 就可能是这个效果！