双击属性块直接编辑属性文字

luchun0112

很好用。。谢谢

KO你

编辑属性与文字这样就可以做到自由切换，但感觉切换还不是很顺畅。
编辑文字后不能马上继续切换到属性编辑，有待高手完善。
(defun c:ed (/ *error* ss pt ntp info objtype obj blkname)
(setq cmds (if command-s command-s vl-cmdf))
(setq ss (ssget ":s"))
(if ss
(progn
(setq pt (cadr (nth 3 (car (ssnamex ss)))))
(setq pt (trans pt 0 1))
(setq ntp (nentselp pt))
(setvar "cmdecho" 0)
(setq info (entget (car ntp)))
(setq objtype (cdr (assoc 0 info)))
(cmds "undo" "be")
(defun *error* (s)
(if (/= s "函数被取消")
(princ "*取消*"))
(cmds "undo" "e")
(setvar "cmdecho" 1))
(setvar "cmdecho" 0)
(setq obj (ssname ss 0))
(cond
((= objtype "ATTRIB")
(cmds "_.attipedit" ntp))
((member objtype '("TEXT" "MTEXT"))
(cmds "_.textedit" "_non" pt))
(T (cmds "_.DDATTE" ss)))
(cmds "undo" "e")
(setvar "cmdecho" 1)))
(prin1))