了解SSget对象que

CesarA · 发表于 2022-7-5 18:10:05

我写了一段代码，希望能得到一个垂直对象的列表。我认为autocad select窗口会根据对象的高度来选择对象，但在尝试代码时，我注意到它没有这样做。


(defun c:dump6 ( / a e o s x texto tipodepeca z y ent ent2 ent3 ent4 obj tabela count count2)
   
(setq count 2)
   (if (setq s (ssget "_:L" '((0 . "TEXT")) ))
       (repeat (setq i (sslength s))
           (setq e (ssname s (setq i (1- i)))
                 x (entget e)
                 ent (entget(cdr (assoc 360 x)))
           )
          
          (setq count (1+ count))
                (entmod (subst (cons 2 (strcat "some string" (itoa count))) (assoc 2 ent) ent))
                
        )
)
(princ)
)
(princ)