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

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

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

copy

 
(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

可能类似于：

copy


(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中有意义吗？？

copy

 
(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
这是我的代码：

copy

 
.......
(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
.............
 )
)

怎么了？

[编程交流] 这个例行公事出了什么问题？

发表回复

精选推荐