I need help why does not the mtext and the DIMENSION to change.
Thank you
Brauche Hilfe warum funktioniert der MTEXT und die DIMENSION nicht zum ändern.
Danke
(defun c:qe ( / en st )
(if
(and
(setq en (car (nentsel)))
(wcmatch (cdr (assoc 0 (setq en (entget en)))) "TEXT,ATTRIB,MTEXT,DIMENSION")
(setq st (LM:EditBox (cdr (assoc 1 en))))
)
(entupd (cdr (assoc -1 (entmod (list (assoc -1 en) (cons 1 st))))))
)
(princ)
)
;;----------------------=={ Edit Box }==----------------------;;
;; ;;
;; Displays a DCL Edit Box to obtain a string from the user ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; string - initial value to display ("" for none) ;;
;;------------------------------------------------------------;;
;; Returns: Edit box contents if user pressed OK, else nil ;;
;;------------------------------------------------------------;;
(defun LM:EditBox ( string / id )
(and
(< 0 (setq id (load_dialog "ACAD")))
(new_dialog "acad_txtedit" id)
(set_tile "text_edit" string)
(action_tile "text_edit" "(setq string $value)")
(if (zerop (start_dialog)) (setq string nil))
)
(if (< 0 id) (unload_dialog id))
string
)