Search the Community

Hello Everyone ! The posted code is working fine as per the attached image. They text are move follow with green line direction but I need move text follow with magenta line direction in selected line or Polyline. Can anyone help me! Code : (Defun c:alt (/ li txts e) (if (and (princ "\nSelect Line for Alignment") (setq li (ssget "_:L" '((0 . "LINE")))) (princ "\nSelect Texts to Align") (setq txts (ssget "_:L" '((0 . "TEXT,MTEXT"))))) (repeat (sslength txts) (vla-move (setq e (vlax-ename->vla-object (ssname txts 0))) (vla-get-insertionpoint e) (vlax-3d-point (vlax-curve-getclosestpointto (ssname li 0) (vlax-get e 'insertionpoint))) ) (ssdel (ssname txts 0) txts) ) ) (princ) ) (vl-load-com)

My boss may have just asked for the impossible, but he wants a lisp to be able to window select multiple text then window select lines near the text, and have the text align to the line or polyline that is closest to the text. I have something that allows me to pick a line then a text, but I have no idea how to do this. Any help is greatly appreciated, this is way above my ability. The attached pictures show before and after.

I'm wondering if you can use the ALIGN command to align multiple text objects in the Y-Axis? (or X-Axis as well) I know about changing the X value of a bunch of text objects to align them that way. I'm just wondering if the ALIGN command will allow you to do something similar? I want to do this without lisp too... If there are other methods I'm always wanting to learn! I just had a new cad user ask me about the ALIGN command and I couldn't get it to do it... Please advise..