考虑以下因素：
(defun c:catt ( / ent enx ref )
(setq new "ref")
(while (setq ent (car (nentsel "\nSelect attribute or text to replace <exit>: ")))
(if (wcmatch (cdr (assoc 0 (setq enx (entget ent)))) "ATTRIB,TEXT,MTEXT")
(if (entmod (subst (cons 1 new) (assoc 1 enx) enx))
(entupd ent)
)
(princ "\nSelected object is not an attribute or text.")
)
)
(princ)
)
对我来说是这样（使用FF 40.0.2）；如果不适合您，您仍然可以手动键入代码标签，即：
[突出显示][不突出]
Your code here 太好了，非常感谢李。
我以为你在度长假什么的，最近没有看到你有什么活动。
PS您的手动代码标签工作正常（am使用IE11）
By the way I replaced (setq new "ref") with:
(setq new (getstring "\nEnter Replacement:< X > "))
(setq new (If (eq "" new) "X" new))
To make it more practical
对于IE 11，您需要使用标准编辑器，而不是增强的界面（WYSIWYG）。进入CADTutor上的设置，然后进入底部附近的常规设置。vBulletin似乎在一些较新的浏览器上遇到了问题。您可能还想关闭增强的附件上传。
在那之后，论坛上的情况应该会更好。
谢谢你的SLW210，完成了。
-哈里
页:
1
[2]