这有什么问题吗

The Buzzard · 发表于 2022-7-6 14:47:56

它只允许您选择X、L或T来执行程序。
如果您输入任何其他内容，程序将不会执行任何操作。

顺便说一句，似乎有一个工作；错误：错误的参数类型：您试图执行的这3个代码中的每一个都存在LSETP nil问题。

The Buzzard · 发表于 2022-7-6 14:51:48

当我在VLisp编辑器中检查这三个代码时，我发现：

[CHECKING TEXT WALL-T.LSP loading...]
.
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: SSFUNC
; warning: local variable used as function: WORK
; warning: local variable used as function: GETSIDE
; warning: local variable used as function: WORK
; warning: local variable used as function: NEATT1
.
; Check done.

copy

[CHECKING TEXT WALL-X.LSP loading...]
.
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: SSFUNC
; warning: local variable used as function: NEATX1
.
; Check done.

copy

[CHECKING TEXT WALL-L.LSP loading...]
.
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: WORK
; warning: local variable used as function: SSFUNC
; warning: local variable used as function: NEATL
.
; Check done.

chelsea1307 · 发表于 2022-7-6 14:56:33

嗯，我刚刚下载并试用了它，他们为我工作，我无法通过选择对象/：；错误：错误函数：“x”或选择对象/：；错误：错误函数：“X”似乎与是否为caps无关

The Buzzard · 发表于 2022-7-6 14:56:56

我发现问题的一部分是我在屏幕上没有任何可选择的内容。我不清楚代码是如何工作的。该程序不考虑用户错误。

正如我之前指出的那样，这三个程序中的变量仍然存在问题。

VisDak · 发表于 2022-7-6 15:01:23

是的，和我遇到的问题一样，选择objects/：；错误：功能不好：“T”，但在单路径中，只有在未选择线路时，它才能正常工作；错误：错误的参数类型：lselsetp nil，

Lee Mac · 发表于 2022-7-6 15:05:11

LSETP nil表示选择集（选择集）为零。

没有选择imo的错误捕获错误。

chelsea1307 · 发表于 2022-7-6 15:08:04

你知道为什么我们不能通过选择窗口的第一个角吗？我理解其他lisp并不完美，我没有编写它们，甚至不知道从哪里开始尝试修复它们。只是当单独运行lisp时，它似乎不正确，但当从另一个lsp调用时，它会出错

Lee Mac · 发表于 2022-7-6 15:12:04

我得好好看看，我现在没有时间

flowerrobot · 发表于 2022-7-6 15:12:48

很好啊！！！

这取决于你想怎么认可它。
是否希望它是一个自包含的文件
或者有3个其他文件四处浮动。

copy


(if (findfile "WALL-L.lsp")
(load (findfile "WALL-L.lsp))
(progn
 (alert "\nCan Not find you file, adjust your search paths")
 (exit)
)
)
(initget "L T X")
BLAH BLAH

你之前所拥有的已经接近目标了

copy

(defun C:321 (/ type)
[color=red](initget 7 "X L T")[/color]
(setq type([color=red]getkword[/color]"\n Type of wall -[color=red] [X/L/T[/color][color=red]][/color]: "))
(cond 
(= type [color=red]"[/color][color=red]X"[/color] (c:wall-x))
(= type [color=red]"L"[/color] (c:wall-l))
(= type [color=red]"T"[/color] (c:wall-t))
)
(princ))

如前所述
Iniget让用户只用这些回复，如果没有，则循环
7表示不能为0，“回车”或（我认为是否定的，我总是坚持7）
我也会使用getkword，一旦initget出现，kword和string也会起同样的作用，除了所有更高版本的kword会在鼠标上放置一个下拉菜单。

x \=x
通常，为了解决这个问题，我使用srcase
（setq类型（srcase（getstring-type-of-wall-X L T：“））
所以所有的字母都是大写的。

伙计，如果你把它们都放在一个文件中，然后****从它们那里得到孔命令，这和我在那个主题中的内容是一样的，所以我说GJ！
至于你收到的错误，我不知道为什么，请把你的错误贴出来

The Buzzard · 发表于 2022-7-6 15:17:01

chelsea1307，

随附321。添加了3个wall Lisp的lsp。如果单独调用或在这个组合例程中调用，它们似乎工作相同。我不完全理解每个程序是如何运行的。我所知道的是，无论人们如何称呼它们，它们都以同样的方式运行。正如我所指出的，存在可变冲突以及错误捕获能力差。如果你知道这些例程是如何工作的，那么试试这个。由于我知道此例程中存在冲突，我不打算解决这些冲突，因为我不了解此程序的操作或意图。如果~ WALL-X.lsp、WALL-L.lsp和WALL-T.lsp上面的附加程序适用于您，则此程序的功能应相同。

祝你好运
秃鹰
321.LSP

[编程交流] 这有什么问题吗

发表回复

精选推荐