社区 › Auto Lisp › 这个例行公事出了什么问题？

kasra 发表于 2022-7-6 11:23:15

这个例行公事出了什么问题？

你好
我试着编写一个例程，选择点并创建一个符合我所需格式的文件。
它包括一个“while”循环，如图所示。我总是通过按Enter键运行例程并结束点选择，它返回以下信息：
错误：错误的参数类型：lselsetp nil
我不明白哪里出了错。
请引导我。
谢谢
 

(while
(princ "\nSelect Center Line Point: ")
(setq ss1 (ssget '((0 . "point"))))
(setq sl1 (sslength ss1))
(repeat sl1
.
.
.
.
)
)

Lee Mac 发表于 2022-7-6 11:28:00

你的例程会不断循环，因为princ总是返回T，
 
此外，selsetp错误意味着您的selectionset为零，您需要在使用它之前检查有效的selectionset。

kasra 发表于 2022-7-6 11:34:00

 
我是lisp编程新手。
什么意思？
以及如何通过按enter键停止循环。

Lee Mac 发表于 2022-7-6 11:35:41

可能类似于：
 

(while
(progn
   (princ "\nSelect Center Line Point: ")
   (setq ss (ssget '((0 . "POINT"))))
)
...Do something ...
)

kasra 发表于 2022-7-6 11:40:57

 
你说得对，我的朋友。
它工作得很好。我很感激。
你是最棒的。

Lee Mac 发表于 2022-7-6 11:45:45

不客气

kasra 发表于 2022-7-6 11:50:38

另一个问题。。。
它在lisp中有意义吗？？

(while
    ......some functions......
    (while
         ......some functions......
    )
    (while
         ......some functions......
    )
)

kasra 发表于 2022-7-6 11:54:24

这个错误是什么意思？
错误：错误的参数类型：lentyp nil

Lee Mac 发表于 2022-7-6 11:56:13

是的，您可以在LISP中嵌套函数。
 
lentyp nil==>实体为零

kasra 发表于 2022-7-6 12:02:53

 
我的例程返回以下错误：错误的参数类型：lentyp nil
这是我的代码：

.......
(while
(progn
(princ "\nSelect Center Line Point: ")
(setq ss1 (ssget '((0 . "point"))))
)
(setq sl1 (sslength ss1))
(repeat sl1
.........
)
(right)
(left)
.........
)
;---------------------------
(defun right()
(princ "\nSelect Right Points: ")
(setq ss2 (ssget '((0 . "point"))))
(setq sl2 (sslength ss2))
(repeat sl2
...........
)
)
;----------------------------
(defun left()
(princ "\nSelect Left Points: ")
(setq ss3 (ssget '((0 . "point"))))
(setq sl3 (sslength ss3))
(repeat sl3
.............
)
)

 
怎么了？

查看完整版本: 这个例行公事出了什么问题？