请问ssget要怎么分离

wanchr · 发表于 2019-11-7 14:38

比如：ssget 获取一次到了，3个（0 . text) ,3个（0 . line)
我怎么把他分离成2张表
就是获取到的A表怎么分离成a1 a2二表
谢谢帮忙

wanchr · 发表于 2019-11-7 15:13

defun c:ssope ()
(setq a 0)
(setq b(ssget '((0 . "line,text"))))
(repeat (sslength b)
(setq typ (cdr (assoc 0 (entget (ssname b a)))))
   (cond
      ((= typ "TEXT")
      我要在这里删除选到的text,怎么写
      )
      ((= typ "line")
      )
      )
   )
(setq a (1+ a))
)
(princ)
)

start4444 · 发表于 2019-11-7 15:34

参考一下
(defun c:tt5 ()
(setq ss (ssget '((0 . "TEXT,line"))))
(setq i -1 ss1 (ssadd) ss2 (ssadd))
(while (setq en (ssname ss (setq i (1+ i))))
(if (= (cdr (assoc 0 (entget en))) "TEXT")
(setq ss1 (ssadd en ss1))
(setq ss2 (ssadd en ss2))
);if
);while
(command "CHANGE" ss1 "" "p" "c" 1 "" "CHANGE" ss2 "" "p" "c" 2 "")
)

wanchr · 发表于 2019-11-7 16:16

谢谢你的帮助。

1028695446 · 发表于 2019-11-7 21:00

;;从选择集中分离出指定类型的选择集
;;(acet-pljoin-ss-flt (ssget "X") (list(cons 0 "CIRCLE")))
(defun acet-pljoin-ss-flt (ss flt )
  (if (and ss
(> (sslength ss) 0)
   )
(progn
   (command "_.select" ss "")
   (setq ss (ssget "_p" flt))
)
(setq ss nil)
  )
  ss
)

Kye · 发表于 2019-11-8 07:10

http://bbs.mjtd.com/forum.php?mo ... D7%E9&mobile=no

账号		自动登录	找回密码
密码			注册

[提问] 请问ssget要怎么分离