求大神優化

啊龍

這是我在用的wblock，雖然不能批量另存。
但也滿好用的，
目前想要慢慢的讓這個小程式優化一下。
求大神優化一下，也讓我可以好好的學習。

(defun c:WW (/ text1 ss text1_data text1_type text2_data text3_data)
  (vl-load-com)
  (setvar "cmdecho" 0)
  (setvar "expert" 2)
  (setq oldlay (getvar "clayer"))
  (setq oldos (getvar "osmode"))
  (setvar "osmode" 0)
  (setq path (getvar "dwgprefix"))
  (setq i 0)
  (while
    (and
      (setq text1 (entsel "\n選取儲存檔名:"))
         (setq ss (ssget))
    )
     (setq text1_data (entget (car text1)))
     (setq text1_type (cdr (assoc 0 text1_data)))
     (if
       (= text1_type "TEXT")
       (progn
         (setq text2_data (cdr (assoc 1 text1_data)))
         (setq text3_data (cdr (assoc 10 text1_data)))
         (command "-wblock"
                  (strcat path text2_data)
                  ""
                  text3_data
                  ss
                  ""
         )
         (command "undo" 1)
         )
       )
    )
  (setvar "osmode" 47)
  (princ)
)

/db_自贡黄明儒_

大神都挣钱去了，你直接参考已经有的帖子吧
http://bbs.xdcad.net/search.php? ... amp;kw=%B7%D6%CD%BC

啊龍

/db_自贡黄明儒_ 发表于 2020-8-20 16:34
大神都挣钱去了，你直接参考已经有的帖子吧
http://bbs.xdcad.net/search.php?mod=forum&searchid=171&ord ...

感謝你，我再去看看有什麼了。感恩