（XD::MLeader:SetLeaderLength）角度不变情况下设置MLEADER引线的长度

Lispboy

(defun XD::MLeader:SetLeaderLength (ml len)
  (cond
    ((= (type ml) 'PICKSET)
      (setq ml (xdrx_pickset->ents ml))
    )
    ((= (type ml) 'ENAME)
      (setq ml (list ml))
    )
    ((= (type ml) 'VLA-OBJECT)
      (setq ml (list (vlax-vla-object->ename ml)))
    )
  )
  (mapcar
    '(lambda (x)
       (xdrx_getpropertyvalue x "firstvertex" 0 "lastvertex" 0)
       (setq v (xdrx_vector_normalize (mapcar
                                        '-
                                        #lastvertex
                                        #firstvertex
                                      )
               )
             pt (mapcar
                  '+
                  #firstvertex
                  (xdrx_vector_product v len)
                )
       )
       (xdrx_setpropertyvalue x "lastvertex" (list 0 pt))
       (if (minusp len)
          (xdrx_setpropertyvalue x "lastvertex" (list 0 pt))
       )
     )
    ml
  )
)