来自WP的SS

Arizona · 发表于 2022-7-6 11:46:48

有人能给我看一下从用户选择的窗口多边形中选择集的代码吗？
帮助仅显示从预设的一批坐标中定义的一个坐标。
我还需要它只获取具有特定名称的块（2，“名称”）
谢谢

Lee Mac · 发表于 2022-7-6 11:57:06

您可以使用ssnamex从选择集中获取信息

Arizona · 发表于 2022-7-6 12:08:00

谢谢李。研究了SSNAMEX，这超出了我的技能范围。我的Lisp程序技能可以追溯到R12。。。。

我想我做到了：
（命令“select”“WP”）
（setq ss1（ssget“_P”'（（2。“P-MH”）））

我在找更干净的东西，但很管用。

Shawndoe · 发表于 2022-7-6 12:19:31

你好

试试这个

copy


(setq SS1 (ssget 
                 "_WP" 
                 (while (/= (setq Pnt (getpoint "Pick a Point: \n")) nil) 
                    (setq Pnt_List (cons Pnt Pnt_List))
                 ) 
                 '((2 . "M-PH"))
         )
)

祝你过得愉快。
肖恩

Lee Mac · 发表于 2022-7-6 12:23:22

这个怎么样？

copy


(defun GetWindowPoly (/ PtLst pt gr)
 ;; Lee Mac  ~  31.01.10
 (if (car (setq ptLst (list (getpoint "\nSpecify First Point: "))))
   (progn
     (princ "\nPick Window Points >>")
     (while
       (setq pt
         (progn
           (while
             (and (= 5 (car (setq gr (grread 't 5 0))))
                  (listp (cadr gr)))
             (redraw)
             (mapcar
               (function
                 (lambda (from to)
                   (grdraw from to 3 1)))
               
               (cons (cadr gr) ptLst) (append ptLst (cdr gr))))
           
           (cond ((listp (cadr gr)) (cadr gr)))))
       
       (cond (pt (setq ptLst (cons pt ptLst)))))
     (redraw)
     (reverse ptLst))))
(defun c:test (/ pts ss)
 (if (and (setq pts (GetWindowPoly))
          (setq ss  (ssget "_WP" pts)))
   (sssetfirst nil ss))
 (princ))