(defun c:MJL3 ( / #k1 #kw $kw #k %k)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(if (null vlax-dump-object) (vl-load-com) )
(setq #k1 (ttes6))
(if (/= #k1 nil)
(progn
(setq #kw (ttes5))
(if (= #kw nil) (alert "\n没æéæ©éè¦è¢«æ¿æ¢çæå") )
(if (/= #kw nil)
(progn
(setq $kw nil)
(initget "X C")
(setq %k (getkword "\n请éæ©è¦æ¿æ¢çæåèå´[æ¡éæå®èå´(C)/æ´ä¸ªå¾å½¢èå´(X)]:<æ¡éæå®èå´(C)>"))
(if (= %k nil) (setq %k "C") )
(if (/= (member %k (list "C" "c")) nil) (setq $kw (ssget (list (cons 0 "TEXT,MTEXT") (cons 1 #kw)))) )
(if (/= (member %k (list "X" "x")) nil) (setq $kw (ssget "X" (list (cons 0 "TEXT,MTEXT") (cons 1 #kw)))) )
(if (/= $kw nil)
(progn
(setq n 0)
(repeat (sslength $kw)
(setq %k (entget (ssname $kw n)))
(setq n (+ n 1))
(setq #k (assoc 1 %k))
(setq %k (subst #k1 #k %k))
(entmod %k)
)
)
)
)
)
)
)
(prin1)
)
(defun ttes5 ( / #kw %k)
(initget "T")
(setq #kw (entsel "\n请éæ©è¦è¢«æ¿æ¢çæåå
容æè¾å
¥æåï¼Tï¼[è¾å
¥æå(T)]: <éæ©æå> "))
(if (and (/= #kw nil) (= (member #kw (list "t" "T")) nil))
(progn
(setq #kw (entget (car #kw)))
(setq %k (cdr (assoc 0 #kw)))
(if (or (= %k "TEXT") (= %k "MTEXT"))
(setq %k (cdr (assoc 1 #kw))) )
)
)
(if (/= (member #kw (list "t" "T")) nil)
(progn
(setq %k (getstring "\n请è¾å
¥è¦è¢«æ¿æ¢çæåå
容: "))
(if (= %k nil) (alert "\næªè¾å
¥æå") )
)
)
%k
)
(defun ttes6 ( / #kw1 #k #k1)
(setq #kw1 (entsel "\n请éæ©ç¨æ¥æ¿æ¢çæå"))
(if (/= #kw1 nil)
(progn
(setq #k1 nil)
(setq #kw1 (car #kw1))
(setq #kw1 (entget #kw1))
(setq #k (cdr (assoc 0 #kw1)))
(if (or (= #k "TEXT") (= #k "MTEXT")) (setq #k1 (assoc 1 #kw1)) )
(if (= #k1 nil) (alert "\néæ©çä¸æ¯æå") )
)
)
#k1
)
;;以ä¸å
容å¤å¶å¹¶ç²è´´å°è®°äºæ¬ï¼ä»¥ï¼ï¼MJL3.lspï¼å½å
(prompt "\nãMJL3ãæ¿æ¢æå")
(prin1)
autolispç¨åºï¼å¯ä»¥æ¹éä¿®æ¹æåãç¨åºå½ä»¤ä¸ºï¼MJL3ï¼å è½½å°AutoCADéé¢ä½¿ç¨ï¼