将Backgroundmask添加到Rotat

mickydee81 · 发表于 2022-7-5 18:43:47

大家好，

我的第一个Lisp是从用作按钮的宏编写的。

(defun c:SWD () (command "-LAYER" "M" "P_SW_DIA" "C" "2" "" "S" "P_SW_DIA" "" "-MTEXT" Pause "R" Pause "J" "BC" "H" "3.5" Pause "%%C???" "")(princ))

当我尝试将背景遮罩添加到最后创建的对象（请参见下文）时，它不起作用

copy

(defun c:SWD () (command "-LAYER" "M" "P_SW_DIA" "C" "2" "" "S" "P_SW_DIA" "" "-MTEXT" Pause "R" Pause "J" "BC" "H" "3.5" Pause "%%C???" "" "BACKGROUNDMASK" "L")(princ))

知道为什么吗？

干杯，祝你愉快

Dadgad · 发表于 2022-7-5 18:51:05

您知道可以使用常规OOTB功能屏蔽多行文字吗？

没有按钮那么快，只是想知道你是否知道这是一个选项。
还有ExpressTool命令Textmask。

SLW210 · 发表于 2022-7-5 18:59:09

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

jonathann3891 · 发表于 2022-7-5 19:04:11

这是一个lisp，它将为多行文字添加背景掩码

边界为1.1
颜色设置为背景

如果您希望使用不同的颜色，请更改：
（90.3）到（90.1）&256到你想要的任何颜色。

copy

(defun c:mtm ( / js n dxf_ent)
(setq js (ssget '((0 . "MTEXT"))))
(cond
        (js
                (repeat (setq n (sslength js))
                        (setq dxf_ent (entget (ssname js (setq n (1- n)))))
                        (entmod (append dxf_ent '((90 . 3) (63 . 256) (45 . 1.1) (441 . 0))))
                )
        )
)
)

mickydee81 · 发表于 2022-7-5 19:15:22

大家好，

我的坏SLW210我将使用从知道的代码标签。

copy

(defun c:SWD () (command "-LAYER" "M" "P_SW_DIA" "C" "2" "" "S" "P_SW_DIA" "" "-MTEXT" Pause "R" Pause "J" "BC" "H" "3.5" Pause "%%C???" "")(princ))

当我尝试将背景遮罩添加到最后创建的对象（请参见下文）时，它不起作用

copy

(defun c:SWD () (command "-LAYER" "M" "P_SW_DIA" "C" "2" "" "S" "P_SW_DIA" "" "-MTEXT" Pause "R" Pause "J" "BC" "H" "3.5" Pause "%%C???" "" "BACKGROUNDMASK" "L")(princ))

Dadgad我知道express工具，但我想使用背景遮罩而不是擦除。

Jonathann我有一个类似的Lisp程序，我在论坛上发现，我用背景面具，我已经连接到一个按钮。我只是希望它是一个一步的过程，而不必在创建文本后添加背景掩码。

谢谢大家的帮助，

祝您今天过得愉快。

tombu · 发表于 2022-7-5 19:20:41

我使用类似Jonathann3891的lisp，使用偏移因子为1.15的绘图颜色切换背景遮罩
正如Dadgad所指出的那样，这也是一个简单的修改，但不能在多行文字命令内的命令行上执行。您可以向原始宏中添加代码。这会给你你需要的结果。类似于：

copy

(defun c:SWD ( / obj) (command "-LAYER" "M" "P_SW_DIA" "C" "2" "" "S" "P_SW_DIA" "" "-MTEXT" Pause "R" Pause "J" "BC" "H" "3.5" Pause "%%C???" "")(setq obj (vlax-ename->vla-object ([b][color="red"]entlast[/color][/b])))(vlax-put-property obj 'BackgroundFill :vlax-true)(princ))

对不起，以前没有测试过该代码，现在可以在我的电脑上运行。放置黄色Ø？？？带背景遮罩。