CadFrank 发表于 2022-7-6 09:07:46

想知道如何制作

您好,我有一个常规,我想添加一个行动。
 
此例程是一个动态块计数器,计数结果显示在命令提示行中,因此我希望在计数结束时打开此命令提示。
 
这段代码不是我写的,因为我对autolisp很陌生。
我不确定那个人是不是伦德曼,但他就是给我的那个人。
 
就是这样。
 
(defun c:BCD()(c:BlockCountDynamic))(defun c:BlockCountDynamic(/ss item val valList)(vl load com)(princ“\r块计数:DYNAMIC”)|(if(setq ss(ssget“_x”(list)(0。“INSERT”)'(2“*U*”);

pBe 发表于 2022-7-6 09:15:22

(文本选择)?
 
(2。“`U*”)而不是(2。“*U*”)

CadFrank 发表于 2022-7-6 09:17:33

嗯,我不完全确定,但我认为变化不大。但我想要的是在计数结束时执行f2快捷方式。AutoCad将该窗口称为“AutoCad文本窗口”
 
我可以留下一张照片,这可能有助于理解你想要什么。
 

 
因此,希望它能帮助理解我想要什么。

pBe 发表于 2022-7-6 09:23:24

将该(textscr)粘贴到命令提示符上,您将看到
 
或将(textscr)放在最后一个结尾之前“”
 
(提示“\n**未选择任何内容**”)(princ)(textscr));

CadFrank 发表于 2022-7-6 09:26:49

好的,非常感谢你的帮助!我会让你知道它是否有效。

BlackBox 发表于 2022-7-6 09:32:51

 
CadFrank-当你对另一个线程中提供的代码有疑问时,最好在原始线程中回答你的问题。
 
 
我(RenderMan)是您的问题涉及的代码的作者。
 
回答你的问题。。。(textscr)和(textpage)都将打开AutoCAD文本窗口(F2),(graphscr)将焦点返回到主应用程序。

CadFrank 发表于 2022-7-6 09:36:29

嗯,它很有效,所以一切都很好!我想知道你是否知道任何可以帮助我理解autolisp语言的好书。

CadFrank 发表于 2022-7-6 09:38:52

Sry我认为这是在名单上很远的人看到它,因为我是新的福隆我还不理解他们,但在未来我会。

BlackBox 发表于 2022-7-6 09:44:30

 
Visual LISP开发者的圣经,2011版

BlackBox 发表于 2022-7-6 09:48:04

 
别担心;现在你知道了。。。
 
页: [1] 2
查看完整版本: 想知道如何制作