社区 › Auto Lisp › 脑筋急转弯Lisp程序。。。

Guest looseLISP 发表于 2022-7-6 12:47:40

脑筋急转弯口齿不清。。。

你好
 
我们有一个老Lisp程序的接缝，以困扰我相当多，因为我无法想办法绕过它。
 
lisp-posted-bellow应该像dimcontinue命令一样继续。但是，将此“dimcontinue”功能添加到lisp会使pause命令无效/停止/跳过。
 
我们已广泛尝试改善这一点，但没有任何效果。也许有人知道我们脑筋急转弯的解决方案？
 
;;;=== 代码开始===
 
（定义c:Peilmaatvoering（）
（setq curDimSty（getvar'dimstyle））
（命令
.Layer“Make”Maatvoering
“dimstyle”“Restore”“Peilmaatvoering”
“\u dimlinear”“dimpost”“+”“Dimcontinue”
)
（while（=（logand（getvar“cmdactive”）1）1）
（命令暂停）
)
（命令
“\u dimstyle”“restore”curDimSty
“\u Layerp”
)
)
 
;;;===代码结束===
 
谢谢-

Guest looseLISP 发表于 2022-7-6 13:04:55

那个stuipid smalie的脸居然说C:P-eilmaatvoering，该死！

The Buzzard 发表于 2022-7-6 13:24:44

 
下次尝试使用代码括号功能发布代码。
 
在高级帖子上查找#图标。将代码放在它们之间。它应该如下所示。
 
(defun c:P-eilmaatvoering ()
(setq curDimSty (getvar 'dimstyle))
(command
".Layer" "Make" "Maatvoering" ""
"dimstyle" "Restore" "Peilmaatvoering"
"_dimlinear" "dimpost" "+" "Dimcontinue"
)
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
)
(command
"_dimstyle" "restore" curDimSty
"_Layerp"
)
)

Guest looseLISP 发表于 2022-7-6 13:46:51

谢谢（第十届论坛新成员）。。。

The Buzzard 发表于 2022-7-6 14:01:37

没问题，欢迎来到论坛。

查看完整版本: 脑筋急转弯Lisp程序。。。