Autolisp 通过关键字合并图层

最新推荐文章于 2024-09-28 09:57:18 发布

原创

最新推荐文章于 2024-09-28 09:57:18 发布 · 587 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#autocad #lisp

本文介绍了一种使用LISP编程语言实现的CAD图层合并方法。通过定义特定的函数，可以依据用户输入的关键字来筛选并合并指定的图层。此方法支持多个关键字，并且能够有效地处理大量图层。


;|

获得所有图层

参数：无

返回值：表

|;

; user defined function strsplit.
; strsplit splits a string with delimiter, and return a list.
; example: (strsplit "1,22,333,4444" ",")    -->> ("1","22","333","4444")
;          (strsplit ",1,22,333,4444," ",")  -->> ("" "1" "22" "333" "4444" "")


(defun strsplit(datastr delimiter)
    (setq strlist '()
          str ""
    )
    (setq n (strlen datastr))
    (setq i 1)
    (repeat n
        ; s is a single letter, starts from the first to the end. 
        (setq s (substr datastr i 1))

      
        (if (/= s delimiter)
            ; when s is't a delimiter
            (progn
                (setq str (strcat str s))
                ; if s is the last letter
                (if (= i n)
                    (setq strlist (cons str strlist))
                )
            )
            ; when s is a delimiter
            (progn
                (setq strlist (cons str strlist))
                (setq str "")