0 Members and 1 Guest are viewing this topic.
(setq DIM (entsel) "L" "")(command "dimedit" "n" (strcat DIF quote dash greater) DIM)
(defun c:ZDIF (/ pt1 pt2 z1 z2 dif edim txt)(setq txt "\" UP ->")(setq pt1 (getpoint "\nDUCT 1 NODE: "))(setq pt2 (getpoint "\nDUCT 2 NODE: "))(setq z1 (caddr pt1))(setq z2 (caddr pt2))(setq dif (- z2 z1))(setq dif (rtos dif 5 0))(setq dif (strcat dif txt))(vl-load-com)(setq edim (vlax-ename->vla-object (car (entsel "\Select dimension"))) )(vla-put-TextOverride edim dif )(princ))
Very nice. Wasn't sure the second line was going to work though with the extra quote. What does that do?