Autolisp Mleader Align

因為 AutoCAD 內建的 Mleader 對齊的功能實在很難用，而 Mleader 又是獨立於DIMSTYLE 可以分開管理並且跟 MText 物件連在一起的，於是我改寫了Max-Qleader 引線標注功能，變成 Max-Mleader ，與 Mleader 新的對齊功能，延續TrimDim 化條線就對齊的設計概念，Mleader Align 也是畫一條線就對齊。



Mleader 使用上非常方便 但相對 DXF 中 GroupCode 相對複雜，很多特徵是相同的例如:

  (
    (-1 . )
    (0 . "MULTILEADER")
    (330 . )
    (5 . "1F075")
    (100 . "AcDbEntity")
    (67 . 0)
    (410 . "Model")
    (8 . "Dim")
    (100 . "AcDbMLeader")
    (270 . 2)
    (300 . "CONTEXT_DATA{")
    (40 . 15.0)
    (10 7271.46 9881.71 0.0)
    (41 . 52.5)
    (140 . 30.0)
    (145 . 30.0)
    (174 . 2)
    (175 . 2)
    (176 . 1)
    (177 . 0)
    (290 . 1)
    (304 . "M5圓頭螺絲")
    (11 0.0 0.0 1.0)
    (340 . )
    (12 7415.04 9907.96 0.0)
    (13 1.0 0.0 0.0)
    (42 . 0.0)
    (43 . 0.0)
    (44 . 0.0)
    (45 . 1.0)
    (170 . 1)
    (90 . -1023410166)
    (171 . 2)
    (172 . 5)
    (91 . -1073741824)
    (141 . 0.0)
    (92 . 0)
    (291 . 0)
    (292 . 0)
    (173 . 0)
    (293 . 0)
    (142 . 0.0)
    (143 . 0.0)
    (294 . 0)
    (295 . 0)
    (296 . 0)
    (110 6680.17 9364.02 0.0)
    (111 1.0 0.0 0.0)
    (112 0.0 1.0 0.0)
    (297 . 0)
    (302 . "LEADER{")
    (290 . 1)
    (291 . 1)
    (10 7241.46 9881.71 0.0)
    (11 1.0 0.0 0.0)
    (90 . 0)
    (40 . 30.0)
    (304 . "LEADER_LINE{")
    (10 6680.17 9364.02 0.0)
    (91 . 0)
    (170 . 1)
    (92 . -1056964608)
    (340 . )
    (171 . -2)
    (40 . 0.0)
    (341 . )
    (93 . 0)
    (305 . "}")
    (271 . 0)
    (303 . "}")
    (272 . 9)
    (273 . 9)
    (301 . "}")
    (340 . )
    (90 . 67421184)
    (170 . 1)
    (91 . -1073741824)
    (341 . )
    (171 . -1)
    (290 . 1)
    (291 . 1)
    (41 . 2.0)
    (42 . 2.0)
    (172 . 2)
    (343 . )
    (173 . 2)
    (95 . 2)
    (174 . 1)
    (175 . 0)
    (92 . -1023410166)
    (292 . 0)
    (93 . -1056964608)
    (10 1.0 1.0 1.0)
    (43 . 0.0)
    (176 . 0)
    (293 . 0)
    (294 . 0)
    (178 . 0)
    (179 . 2)
    (45 . 15.0)
    (271 . 0)
    (272 . 9)
    (273 . 9)
    (295 . 1)
  )

10 作為索引就出現了四次，所以assoc 指令不論往前找或是往後找，你都找不到
中間那兩個，所以必須先撰寫一個副程式，來取得你想要的那個，並且取得其順序以供 nth 使用。

以圖面來說，只要你更新 P2 並以其為對齊點便可，不需要去操作P4(文字的對齊點)，而P3 非常重要，他是判斷使用者到底是向左還是向右標。在程式碼中僅是這麼簡單幾句

;;--------------;; update P2 and justify  -------------------
      (setq ent (subst (cons 10 int1)
      (nth nthP2 ent)
      ent
)
      ) ;;p2
      (entmod ent)
      (if (= t (vlax-property-available-p vlaobj 'TextJustify))
(vlax-put vlaobj 'TextJustify 2)
      )
      (vlax-release-object vlaobj);;不要去變更 P4


程式還不完美，但是比起內建更加快速好用，其他的待工作空閒時再來修改。