宏用字段替换文本

mstg007 · 发表于 2015-6-1 08:38:01

有人见过选择MTEXT然后单击将插入SheetSet标题以替换Mtext值的按钮或命令的方法吗？
谢谢

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ronjonp · 发表于 2015-6-1 08:56:29

我相信您所要做的就是将文本替换为：%
%
所有字段表达式都可以在字段对话框的底部找到。

Master_Shake · 发表于 2015-6-1 09:08:00

我不认为宏可以改变多行文字实体的值。

copy

(defun c:TextChange (/ a b)
  (vl-load-com)
  (while T
      (setq a
                 (car
             (nentsel "\nSelect text or mtext entity to change")))
                (if (or a
                                (setq b(entget a)) 
                                        (= (cdr (assoc 0 b)) "TEXT") 
                                        (= (cdr (assoc 2 b)) "MTEXT") 
                        ) ; end check
        (vla-put-TextString(vlax-ename->vla-object a) "%% ")         
        (princ "\n Invalid Selection") 
        ); end if 
                ) ; end while
   (princ) 
 ); end

又快又脏。

mjfarrell · 发表于 2015-6-1 09:56:03

或者，将该文本替换为标题栏、块…中的属性，然后将该属性设为字段…
attsync…并保存/重新保存。所有工作表都应达到所需的结果

mstg007 · 发表于 2015-6-1 10:28:58

我确实尝试了上面的方法，我得到了著名的 (####). 当我双击该字段时，它会在对话框字段类别的左上方显示为（未知）。除此之外，它很棒。

mjfarrell · 发表于 2015-6-1 10:58:22

这张纸是一套纸的一部分吗？
如果不是，那么人们应该期待####

mstg007 · 发表于 2015-6-1 11:01:59

它是图纸集的一部分。我只是尝试了这个命令，保存了文件，关闭了它，然后通过图纸集管理器重新打开了图纸。还有著名的（##。CAD版本不重要，对吗？

ronjonp · 发表于 2015-6-1 11:15:04

只需快速查看一下，但实体检查永远不会在上面的代码中使用OR进行评估：

copy

(or a (setq b (entget a)) (= (cdr (assoc 0 b)) "TEXT") (= (cdr (assoc 2 b)) "MTEXT")) ; end check

相反，我会使用：

copy

(wcmatch (cdr (assoc 0 (entget a))) "*TEXT")

mstg007 · 发表于 2015-6-1 11:21:38

感谢您查看。我想我发现了这个问题。在上面的lisp中，它要求完整的“%
%”。但是当我去编辑字段时，它将字段表达式显示为“%
%”，其中没有（\）。

ronjonp · 发表于 2015-6-1 11:23:11

使用：“%
%”

宏用字段替换文本

发表回复

精选推荐