字符串覆盖

Lee Mac · 发表于 2022-7-5 19:33:41

考虑以下因素：

(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）；如果不适合您，您仍然可以手动键入代码标签，即：

[突出显示][不突出]

copy

[/noparse][/highlight] Your code here [highlight][noparse]

[/noparse][/highlight]

Happy Hobbit · 发表于 2022-7-5 19:38:42

太好了，非常感谢李。

我以为你在度长假什么的，最近没有看到你有什么活动。

PS您的手动代码标签工作正常（am使用IE11）

copy


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

SLW210 · 发表于 2022-7-5 19:42:51

对于IE 11，您需要使用标准编辑器，而不是增强的界面（WYSIWYG）。进入CADTutor上的设置，然后进入底部附近的常规设置。vBulletin似乎在一些较新的浏览器上遇到了问题。您可能还想关闭增强的附件上传。

在那之后，论坛上的情况应该会更好。

Happy Hobbit · 发表于 2022-7-5 19:49:14

谢谢你的SLW210，完成了。

-哈里

[编程交流] 字符串覆盖

发表回复

精选推荐