teknomatika 发表于 2022-7-6 06:29:05

只需一次输入

只有一次输入时，该选择才会激活，缺少什么？
按原样，需要两次进入。
 
;;filter points
(defun c:selpt ()
(command "pselect" (ssget '((0 . "POINT"))))
(princ)
)

Lee Mac 发表于 2022-7-6 07:09:09

我建议：
(defun c:selpt ( )
   (sssetfirst nil (ssget '((0 . "POINT"))))
   (princ)
)

teknomatika 发表于 2022-7-6 07:50:26

 
就是这样。谁知道，谁知道。
坦克！
页: [1]
查看完整版本: 只需一次输入