[LISP程序]：擴展GETSEL.LSP(E/T)

taner · 发表于 2007-12-20 09:05:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

http://www.xdcad.net/forum/showthread.php?s=&threadid=645719

[FONT=courier new]
(defun test (lay typ / filter lay-len laynamelst n ss ss-filter sslen ss-lst
typ-len typnamelst typss-filter typss-lst
)
(p-s '("cmdecho" 0
"expert" 0
) t
)
(sssetfirst nil nil)
(if (null lay)
(if (= "" (setq lay (getstring "\n请输入层名或回车选择目标层实体:")))
(progn
(princ "\n请选择目标层实体:")
(setq ss-lst (th-ss2lst (ssget))
laynamelst (acad_strlsort (th1-lst-delsame (mapcar
(function
(lambda
(x)
(txt-get-dxf 8 x)
)
)
ss-lst
)
)
)
lay-len (length laynamelst)
n 0
lay (apply
'strcat
(mapcar
(function (lambda (x)
(setq n (1+ n))
(if (= n lay-len)
x
(strcat x ",")
)
)
)
laynamelst
)
)
ss-filter (list (cons 8 lay))
)
)
(setq ss-filter (list (cons 8 (strcase lay))))
)
(setq ss-filter (list (cons 8 (strcase lay))))
)
(if (null typ)
(if (= "" (setq typ (getstring "\n请输入筛选类型或回车选择目标类型实体:")))
(progn
(princ "\n请选择目标类型实体:")
(setq typss-lst (th-ss2lst (ssget))
typnamelst (acad_strlsort (th1-lst-delsame (mapcar
(function
(lambda
(x)
(txt-get-dxf 0 x)
)
)
typss-lst
)
)
)
typ-len (length typnamelst)
n 0
typ (apply
'strcat
(mapcar
(function (lambda (x)
(setq n (1+ n))
(if (= n typ-len)
x
(strcat x ",")
)
)
)
typnamelst
)
)
typss-filter (list (cons 0 typ))
)
)
(setq typss-filter (list (cons 0 (strcase typ))))
)
(setq typss-filter (list (cons 0 (strcase typ))))
)
(setq filter (append
ss-filter
typss-filter
)
)
(setq ss (setq ss (ssget "_X" filter))
sslen (sslength ss)
)
(prompt (th-str-format "\n收集層$2#上的所有$1#實體..." (list typ lay)))
(prompt (th-str-format "\n$1#個實體已經加入到當前選擇集." (list
(itoa sslen)
)
)
)
(p-e)
ss
)
[/FONT]

[FONT=courier new] 
(defun test (lay typ / filter lay-len laynamelst n ss ss-filter sslen ss-lst 
                 typ-len typnamelst typss-filter typss-lst 
            ) 
  (p-s '("cmdecho" 0 
        "expert" 0 
       ) t 
  ) 
  (sssetfirst nil nil) 
  (if (null lay) 
    (if (= "" (setq lay (getstring "\n请输入层名或回车选择目标层实体:"))) 
      (progn 
        (princ "\n请选择目标层实体:") 
        (setq ss-lst (th-ss2lst (ssget)) 
              laynamelst (acad_strlsort (th1-lst-delsame (mapcar 
                                                           (function 
                                                                     (lambda 
                                                                       (x) 
                                                                       (txt-get-dxf 8 x) 
                                                                     ) 
                                                           ) 
                                                           ss-lst 
                                                         ) 
                                        ) 
                         ) 
              lay-len (length laynamelst) 
              n 0 
              lay (apply 
                    'strcat 
                    (mapcar 
                      (function (lambda (x) 
                                  (setq n (1+ n)) 
                                  (if (= n lay-len) 
                                    x 
                                    (strcat x ",") 
                                  ) 
                                ) 
                      ) 
                      laynamelst 
                    ) 
                  ) 
              ss-filter (list (cons 8 lay)) 
        ) 
      ) 
      (setq ss-filter (list (cons 8 (strcase lay)))) 
    ) 
    (setq ss-filter (list (cons 8 (strcase lay)))) 
  ) 
  (if (null typ) 
    (if (= "" (setq typ (getstring "\n请输入筛选类型或回车选择目标类型实体:"))) 
      (progn 
        (princ "\n请选择目标类型实体:") 
        (setq typss-lst (th-ss2lst (ssget)) 
              typnamelst (acad_strlsort (th1-lst-delsame (mapcar 
                                                           (function 
                                                                     (lambda 
                                                                       (x) 
                                                                       (txt-get-dxf 0 x) 
                                                                     ) 
                                                           ) 
                                                           typss-lst 
                                                         ) 
                                        ) 
                         ) 
              typ-len (length typnamelst) 
              n 0 
              typ (apply 
                    'strcat 
                    (mapcar 
                      (function (lambda (x) 
                                  (setq n (1+ n)) 
                                  (if (= n typ-len) 
                                    x 
                                    (strcat x ",") 
                                  ) 
                                ) 
                      ) 
                      typnamelst 
                    ) 
                  ) 
              typss-filter (list (cons 0 typ)) 
        ) 
      ) 
      (setq typss-filter (list (cons 0 (strcase typ)))) 
    ) 
    (setq typss-filter (list (cons 0 (strcase typ)))) 
  ) 
  (setq filter (append 
                 ss-filter 
                 typss-filter 
               ) 
  ) 
  (setq ss (setq ss (ssget "_X" filter)) 
        sslen (sslength ss) 
  ) 
  (prompt (th-str-format "\n收集層$2#上的所有$1#實體..." (list typ lay))) 
  (prompt (th-str-format "\n$1#個實體已經加入到當前選擇集." (list 
                                                                  (itoa sslen) 
                                                            ) 
          ) 
  ) 
  (p-e) 
  ss 
) 
 
  [/FONT]

它山之石 · 发表于 2007-12-20 18:39:44

跟过滤选择有什么　不同吗

taner · 发表于 2007-12-21 08:02:54

就是过滤选择

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

[LISP程序]：擴展GETSEL.LSP(E/T)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子