ibanez_222 发表于 2022-7-6 08:26:34

写入时引号内的引号

我正在编写一个lisp文件来设置标题栏和比例，以便更快地选择图纸尺寸和比例来设置图形。我几乎只是在两种纸张大小之间切换，所以我为E大小的纸张绘制了一个视口，然后在视口中绘制一个矩形，表示D大小的纸张，以帮助计算出在这个lisp中使用的最佳比例和纸张大小。
 
我的问题是，我想添加我在lisp例程中使用的所有比例，但我通常会涉及如何在引号中添加“引号”，这些引号仅仅是文本。有人知道我该怎么写才能成功吗？任何帮助都将不胜感激。
 
 
这是我遇到问题的命令示例：
（命令“-scalelistedit”“a”“1”=50'-0”“1:600”“e”）
 
 
此外，我知道我不必一直退出命令“scalelistedit”并输入以添加多个比例，我只是初步这样做。
 
(defun c:tbss(/ point1 point2 point3 point4 )
(setvar "cmdecho" 0)
(command ".-layer" "n" "G-Vprt" "")
(command ".-layer" "c" "211" "G-Vprt" "")
(command ".-layer" "p" "n" "G-Vprt" "")
(command ".layout" "s" "")
(setq old_clayer (getvar "clayer"))
(command ".-layer" "S" "G-Vprt" "")
(setq point1 (list 0.5 0.3125 0.0) point2 (list 37.7875 29.2275 0.0))
(setq point3 (list 3.1438 3.3638 0.0) point4 (list 35.1438 26.1762 0.0))
(command ".-vports" point1 point2)
(command "rectangle" point3 point4)
(command "-scalelistedit" "a" "1" = 1'-0" "1:12" "e")
(command "-scalelistedit" "a" "1/2" = 1'-0" "0.5:12" "e")
(command "-scalelistedit" "a" "1/4" = 1'-0" "0.25:12" "e")
(command "-scalelistedit" "a" "3/16" = 1'-0" "0.01875:12" "e")
(command "-scalelistedit" "a" "1/8" = 1'-0" "0.125:12" "e")
(command "-scalelistedit" "a" "3/32" = 1'-0" "0.09375:12" "e")
(command "-scalelistedit" "a" "1/16" = 1'-0" "0.0625:12" "e")
(command "-scalelistedit" "a" "1/32" = 1'-0" "0.03125:12" "e")
(command "-scalelistedit" "a" "1/64" = 1'-0" "0.015625:12" "e")
(command "-scalelistedit" "a" "1" = 10'-0" "1:120" "e")
(command "-scalelistedit" "a" "1" = 20'-0" "1:240" "e")
(command "-scalelistedit" "a" "1" = 30'-0" "1:360" "e")
(command "-scalelistedit" "a" "1" = 40'-0" "1:480" "e")
(command "-scalelistedit" "a" "1" = 50'-0" "1:600" "e")
(command "-layer" "S" old_clayer "")
(setvar "cmdecho" 1)
(princ)
)

(prompt "Title Block and Scale Setup Loaded.")

Lee Mac 发表于 2022-7-6 08:42:49

您需要使用反斜杠转义字符：
 
在您的示例中：
 
(command "_.-scalelistedit" "_a" "1\" = 50'-0" "1:600" "_e")

Stefan BMR 发表于 2022-7-6 08:54:51

使用
要添加多个值，可以使用
找出任何（命令…）所需的正确输入，只需键入不带任何参数的命令，然后观察命令行提示：
5

ibanez_222 发表于 2022-7-6 09:09:47

谢谢李，工作得很好！
 
这是我的最终结果，以防有人感兴趣。正如我之前所说的，没有必要关闭scalelistedit命令并重新初始化它，但这只是我如何做到的，它是如何工作的。显然，你必须调整点以适合你自己的标题栏，并将层调整为你自己的，但如果你喜欢这个想法，它可能适合你。
 
6

ibanez_222 发表于 2022-7-6 09:22:07

 
是的，也许我会把它编辑成那样。我不是百分之百确定怎么写，我很匆忙，所以我只是按照我知道的方式写。谢谢

ibanez_222 发表于 2022-7-6 09:27:03

给你。
 
7
页: [1]
查看完整版本: 写入时引号内的引号