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

luchun0112

很好用。。谢谢

KO你

编辑属性与文字这样就可以做到自由切换，但感觉切换还不是很顺畅。
编辑文字后不能马上继续切换到属性编辑，有待高手完善。
(defun c:ed1 (/ *error* ss pt ntp info objtype obj blkname cmds)
(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))
(if (= objtype "ATTRIB")
(cmds "_.attipedit" ntp)
(progn
(cond
((member objtype '("TEXT" "MTEXT" "ATTDEF" "DIMENSION"));;新增判断
(if (not (cmds "_.textedit" (car ntp)))
(cmds "_.ddedit" (car ntp))))
(t ;;保持原始逻辑处理其他对象
(cmds "_.DDATTE" ss)))))
(cmds "undo" "e")
(setvar "cmdecho" 1)))
(prin1))


(defun c:ed2 (/ ent obj typ)
(vl-load-com)
(if (setq ent (car (entsel "\n选择文字或属性: ")))
(progn
(setq obj (vlax-ename->vla-object ent))
(setq typ (vla-get-objectname obj))
(cond
((= typ "AcDbAttribute")
(vl-cmdf "_.attipedit" ent))
((and (= typ "AcDbBlockReference")
(vlax-property-available-p obj 'hasattributes)
(vla-get-hasattributes obj))
(vl-cmdf "_.ddatte" ent))
((or (= typ "AcDbText")
(= typ "AcDbMText"))
(vl-cmdf "_.textedit" ent))
(T (vl-cmdf "_.textedit" ent))))
(progn
(cond
((vl-cmdf "_.textedit"))
((vl-cmdf "_.ddedit"))
((vl-cmdf "_.attipedit"))
((vl-cmdf "_.ddatte")))))
(princ))


以上代码ED1点击标注的线没反应，要点击两次标注的文字才能编辑，其他功能正常。
以上代码ED2点击属性文字内容不能进行attipedit编辑，其他功能都正常。
不管是ED1还是ED2都有各自的缺陷。路过的高手只要能完善其他一个程序就能达到我追求的效果。请高抬贵手。

jayjjlee

有个问题  不能单独调整文字大小了

xpzzj

多谢大佬分享，试了一下很好用！

白山茶

我有个想法，就是使用-ATTIPEDIT之后，能否通过别的方法，切换到该块的另一个属性文字的编辑