Ahankhah 发表于 2022-7-6 09:34:26

 
很好的陈述。
我们用波斯语说：你想要上帝和日期

pBe 发表于 2022-7-6 09:37:45

这是我能用隐含选择得到的最接近的结果
 
(defun c:test (/ Prcd gr Npt Mode Par )
   (prompt "\nSelect objects, or :")
    (while (null Prcd)
      (setq gr (grread nil 4 2) Mode (car gr))
       (cond
          ((= 3 Mode)
         (princ "\nSelect Mode")
         (initget 32)
         (setq Npt (Getcorner (cadr gr) "\nOther Corner:"))
         
         (setq Objects (ssget (if (< (car (cadr gr))(car Npt)) "_W" "_C") (cadr gr) npt
            ))
         (foreach mp (vl-remove-if 'listp
                     (mapcar 'cadr(ssnamex Objects)))
          (redraw mp 3))
         (setq Prcd T))
       ((and (= 2 Mode)
             (setq Par (member (cAdr gr) '(67 76 83 99 108 115))))
          (princ (strcat "\nYou Pressed " (chr (car Par))))
         (setq Prcd T))
   )
      )
   (princ)
   )
 
希望这有帮助

Ahankhah 发表于 2022-7-6 09:39:37

pBe，非常感谢您的大力帮助。
 
非常感谢你。

pBe 发表于 2022-7-6 09:45:09

阿汉哈，欢迎你。我相信你会解决剩下的问题，比如错误捕捉之类的。

Lee Mac 发表于 2022-7-6 09:49:19

 
谢谢Mehrdad，我希望它能帮助你实现目标。

GP_ 发表于 2022-7-6 09:53:46

 
不客气。
页: 1 [2]
查看完整版本: 如何向ssget添加选项？