關於目前圖面路徑及檔名

Tiger&蘋果爸 寫到:可以使用 DWGPREFIX (系統變數)

naruto018 寫到:常用
command
(command "-wblock" .....)

其他類似
vl-cmdf

naruto018 寫到:

hoodpinrh0829 寫到:(defun c:tt()
(command "filedia" 0)
(setq path(getvar "dwgprefix"))
(setq i 0)
(whlie text1
(setq text1(entsel "\n選取儲存檔名:"))
(setq pt1(getpoint "\n窗選該物件:"))
(setq pt2(getcorner pt1 "\n"))
(setq ss (ssget "w" pt1 pt2))
(setq text1_data (entget (car text1)))
(setq text1_type (cdr (assoc 0 text_data)))
(if (= text1_type "text")
(progn
(setq text2_data(cdr (assoc 1 text1_data)))
(setq text3_data (cdr (assoc 10 text1_data)))
(setq i (1+ i))
(command "-wblock" (strcat path text2_data) "" text3_data ss "")
;;;各位大大，我就差在-wblock這個指令，我用的版本是2019版的。
;;;我是參考蘋果爸的 https://www.autocad-tw.com/t1779-topic?highlight=wblock
(command "oops" "")
)
(alert "選錯啦!!!")
)
(setq text1(entsel "\n選取儲存該物件的檔名:")
)
(princ (strcar "\n共轉了 "(itoa i )" 個檔" ))
(command "filedia" 1)
(prin1)
)

就差在-wblock ,請大大指點。

錯誤原因不是-wblock的問題
是因為你的有一些關鍵字或變數名稱在打錯
和一些括弧沒對稱
稍微幫你修改，如下

代碼:

(defun c:tt  ( / path i text1 ss text1_data text1_type text2_data text3_data)
;;;    (command "filedia" 0);好像沒必要
    (setq path (getvar "dwgprefix"))
    (setq i 0)
    (while (and
       (setq text1 (entsel "\n選取儲存檔名:"))
       (princ "\n選取該物件：")
       (setq ss (ssget)))
;;; (setq pt1 (getpoint "\n窗選該物件:"));放到前面去
;;; (setq pt2 (getcorner pt1 "\n"))
;;; (setq ss (ssget "w" pt1 pt2))
 (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)))
 (setq i (1+ i))
 (command "-wblock"
 (strcat path text2_data)
 ""
 text3_data
 ss
 "")
;;;各位大大，我就差在-wblock這個指令，我用的版本是2019版的。
;;;我是參考蘋果爸的 http://www.autocad-tw.com/t1779-topic?highlight=wblock
 (command "oops")
 )
    (alert "選錯啦!!!")
    )
 )
    (princ (strcat "\n共轉了 " (itoa i) " 個檔"))
;;;    (command "filedia" 1);好像沒必要
    (princ)
    )

 感謝大大的幫忙，我等等來測試看看。
我用手機寫的，沒法即時測試對不對或是少了什麼。