Leaderboard

Form a coding point of view pick a point on 1st say pline pick second pline draw dim. yes needs some extra like what descriptions to add as 2nd line. Please advise and can do something for choices. (defun c:wow ( / pt1 pt2 pt3 obj obj2) (setq oldsnap (getvar 'osmode)) (setvar 'osmode 0) (while (setq ent (entsel "\nPick 1st object Nothing to exit ")) (setq pt (cadr ent)) (setq obj (vlax-ename->vla-object (car ent))) (setq pt1 (vlax-curve-getclosestpointto obj pt)) (setq obj2 (vlax-ename->vla-object (car (entsel "\nSelect 2nd object ")))) (setq pt2 (vlax-curve-getclosestpointto obj2 pt1)) (command "dim" "aligned" pt1 pt2 pt1 "" "") ) (setvar 'osmode oldsnap) (princ) ) (c:wow)

I found it, less than 1 minute. If you are diligent in searching, you will find many extraordinary things on this forum check this thread : this is what you need

I've seen threads on this forum about creating dimensions from line to line. I remember the code was made by @leemac. If you have time, you can look for a discussion of the code in this forum, I'm sure you will find it.

;;; ;;; MATCH TEXTSTYLE ;;; FIRST PICK GETS TEXTSTYLE FROM FIRST TEXT OBJECT. ;;; SECOND PICK SETS TEXTSTYLE OF SECOND TEXT OBJECT. ;;; MULTIPLE OBJECTS CAN BE SELECTED ON SECOND PICK. ;;; ;;; ;;; Tharwat - 14.10.16 ;; ;;; (defun c:2ts ( / ts ss sn) ;;; ADDED CODE BELOW (setq ss2 (ssget "_:S" (list '(0 . "TEXT,MTEXT")))) (setq sn2 (ssname ss2 0)) (setq tsentget (cdr (assoc 7 (entget sn2)))) (terpri) (princ (strcat "TextStyle will be updated to " tsentget)) (terpri) ;;; ADDED CODE ABOVE ;;; ;;; MODIFIED ;; Tharwat - 14.10.16 ;; ;;;(setq ts "title") COMMENTED THIS LINE OUT (setq ts tsentget) (if (tblsearch "STYLE" ts) (if (and (princ (strcat "\nSelect texts to move to Text Style <" ts ">:")) (setq ss (ssget "_:L" (list '(0 . "TEXT,MTEXT") '(-4 . "<NOT") (cons 7 ts) '(-4 . "NOT>")))) ) (while (setq sn (ssname ss 0)) (entmod (append (entget sn) (list (cons 7 ts)))) (ssdel sn ss) ) ) (princ (strcat "\nText Style <" ts "> is not found!")) ) (princ) ) ;;; ;;; ERROR TRAP ;;; (defun *error* (errormsg) (VL-BT) (princ "error: ") (alert errormsg) (princ) (gc) ) ;;;