flowerrobot 发表于 2022-7-6 17:12:30

最简单的口齿不清

对不起,伙计们,这是一个如此简单的代码,你看不到答案。
 
很简单,嗯,它能用吗,几乎,pause给/p&-按层着色,然后是文本。
而“无暂停”只是按层显示颜色,然后显示文本。
 
我只想点击多行文字,
另外,我如何使“@500,-500”相对于我的dimscale?
谢谢你,我确实搜索了,但没有结果,
还有,如何调试命令?
我知道他们是一个cad脚本编辑器,但我不知道如何让它显示代码,代码如何运行以及在哪里失败,通常我会一点一点地粘贴以找出失败的地方,但我通常不知道为什么,
任何帮助都会很好

CmdrDuh 发表于 2022-7-6 17:31:40

500500是基于1或*5的dimscale?无论如何,(car pt)将为您提供拾取点的X值,(cadr pt)为您提供Y,因此您可以从此处向X或Y添加500或-500,并生成一个新点。

flowerrobot 发表于 2022-7-6 17:35:17

你是这么说的吗?
尽管这不起作用。

(defun C:5()
(setq pt(getpoint "\nStart point of text: "))
(Setq xc(car pt))
(setq yc(cadr pt))
(setq tdi (strcat (xc "," yc)))
(setq tsc (* 5 (getvar "dimscale")))
(command "-color" "red")
(command "_.mtext" pt "h" tsc tdi pause)
(command "-color" "bylayer")
)

neekcotrack 发表于 2022-7-6 17:49:16

我有一种类似于柴油的东西:
 
 
希望这有帮助。

ASMI 发表于 2022-7-6 17:56:49

在多行文字中使用“暂停”不是个好主意。执行以下示例:
 
3

flowerrobot 发表于 2022-7-6 18:02:47

非常感谢。
效果很好,不要理解它,(不善于使用字符串位)
他们有没有办法创建多行文字弹出框?
但是仍然有命令在后面运行吗?
 

ASMI 发表于 2022-7-6 18:19:05

 
可以创建空字符串MText并运行MTEDIT命令:
 
4
页: [1]
查看完整版本: 最简单的Lisp程序