脑筋急转弯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

下次尝试使用代码括号功能发布代码。

在高级帖子上查找#图标。将代码放在它们之间。它应该如下所示。

copy

(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程序。。。

发表回复

精选推荐