[分享]使用者BLOCK圖庫管理 v2.0.LSP

[20131226更新]使用者BLOCK圖庫管理 v2.0.LSP

使用者BLOCK圖庫管理 v2.0(20131226).rar (*下載網址回覆可見*)

下載為壓縮檔，解壓縮後內有 1個Y340.LSP檔案，檔案內有"使用說明"。

(圖示：使用者BLOCK圖庫管理 v2.0_對話框.jpg)


程式介紹：
01.增加[新增目錄]&[刪除目錄]&[更改目錄]功能，修改[新增檔案]對話框
  增加[第一頁]&[最末頁]&[上一頁]&[下一頁]功能
  結合 y340.dcl 與 Y340.LSP 為一個檔案

---

使用者BLOCK圖庫管理 v1.4.rar (*下載網址回覆可見*)
將檔案解壓縮後，內含2個檔案置於同一目錄中。Y340.LSP內有"使用說明"。


使用者BLOCK圖庫管理 v1.4(檢視交談框內容).jpg
http://cht.tw/h/4veqd


使用者BLOCK圖庫Y340TXT(如何修改目錄路徑).jpg


01.對 AutoCAD 的設計中心感覺複雜或不習慣模糊的預覽功能，這個程式延續以往的幻燈片
   功能，讓使用老手覺得有親切感。
02.提供新的v1.4版本，不是修正內容Bug，而是加強更多使用功能。
03.程式設計提供[個別新增BLOCK和幻燈片]功能及快速[自動執行]功能，只要輸入檔名、
   選取物件、輸入插入點，同時完成 Block 和 Slide 檔案建立，快速便捷。
   [更換至第0層]將選取物件以第0層製作BLOCK(.dwg)圖檔或幻燈片(.sld)檔案，圖面上
   原物件圖層維持不變。
04.選取BLOCK後可設定[圖層]、[比例]和[分解BLOCK]功能，繪圖一次搞定。
05.[大圖預覽]讓使用者不用載入BLOCK，就能看清楚圖檔內容，不用另外開啟看圖程式。
06.[刪除檔案]、[更改檔名]直接快速執行。
07.[更新幻燈片]將指定目錄下所有圖檔都自動重新建立(.sld)幻燈片。
08.提供原始程式檔案，並附使用說明，方便使用、更改。
09.*** 懇請各位網友回函反映，開啟對話框時是否會超出螢幕範圍而有無法使用情形，
   假如還有空間，我會考慮橫向加入[快速翻頁]功能，寬度約1.5*目前幻燈片寬度。
10.程式若無法執行或有任何問題，可以討論。
*** 廣結善緣 與您分享 ***  2013/11/07


1213/10/12  網友提供更好的方式，可免安裝 DOSLib.arx，於是做了修改。
使用者BLOCK圖庫(免安裝 DOSLib.arx)_進化版.LSP (*下載網址回覆可見*)

2013/11/07  v1.4 增加[Browse]、[刪除檔案]、[更改檔名]、[更新幻燈片]等使用功能。

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

[20131201更新]使用者BLOCK圖庫管理 v1.6.LSP

使用者BLOCK圖庫管理 v1.6(20131201).rar (*下載網址回覆可見*)

下載為壓縮檔，解壓縮後內含2個檔案置於同一目錄中。Y340.LSP內有"使用說明"。

(圖示：使用者BLOCK圖庫管理 v1.6_對話框.jpg)



程式介紹：
01.程式內容同原有 v1.4 版本。
02.增加[回圖庫]和[多重複製]功能，使用更方便。
05.提供原始LISP程式，使用者可以自行修改，或來函討論。
*** 雲淡無痕風過處 去留自在皆隨緣 ***

DOSLIB.ARX  這個工具程式. 我用了很長的時間了 !! 後來因為從明經網站.取得DOS操作的LSP 版本. 後來我就改為LSP 版副程式.
讓程式的可攜性.變的更彈性.!!

DOSLIB.ARX 2000-2014各版本下載點
https://db.tt/M2DSOC1c
備用載點: https://app.box.com/s/o24w78f7jyurvoxyq94r

目前DOSLIB LSP版本內容只有檔案和目錄操作的副程式.希望對你有用處.
DOSLIB.LSP
下載網址.
https://db.tt/quFdSW1o
備用載點: https://app.box.com/s/0cb1ebr4ksqohbco553q

以下是內容的部分代碼

代碼:


;;;dos_subdir
(defun :dos_dir(PathFile / strFileDir strFileBase StrFileExt)
  (setq strFiledir  (vl-filename-directory PathFile))
  (setq strFileBase (vl-filename-Base PathFile))
  (setq strFileExt  (vl-filename-extension PathFile))
  (vl-directory-files strFileDir (strcat strFileBase StrFileExt) 1)
)
;;;
(defun :dos_subdir(strPath)
  (vl-remove "." (vl-remove ".." (vl-directory-files strpath "*" -1)))
)
;d0s_copy
(defun :Dos_copy(StrForm Strto)
   ;vl-file-copy 不會覆蓋舊檔.要先刪除.
  (if (findfile strto) (vl-file-delete Strto))
  (vl-file-copy Strform StrTo)
)

(defun :Dos_Delete(StrFile)
  (vl-file-delete StrFile)
)

(defun :Dos_rename(RenForm Rento)
  (vl-file-rename RenForm RenTo)
)
(defun :Dos_renDIR(RenForm Rento)
  (vl-file-rename RenForm RenTo)
)

(defun :Dos_mkdir(StrPath)
  (vl-mkdir StrPath)
)



感謝shenhung網友提供資訊，讓程式使用更方便。

大大:
謝謝分享~~~
我太需要了

感謝大大的分享，讓我又多學了一招密技!

讚   
好用的工具，會LSP真是令人羨慕。
謝謝分享

不錯的程式~
對圖塊很多的行業很有幫助~

感謝大大的分享

執行後出現 *** Error: 損壞的引數類型: consp nil ***

目前使用 cad2006 ，請問如何解決

老水牛學長：
01.首先確定你下載的版本，如果是"使用者BLOCK圖庫.rar"，那就必須將三個檔案，一起安裝在相同的目錄。
若是你又下載"使用者BLOCK圖庫(免安裝 DOSLib.arx)_進化版.LSP"，那就使用新版 Y340.LSP 和
原有 y340.dcl 兩個檔案，安裝在相同的目錄。
02.使用前先依 Y340.LSP 程式中使用說明"01"設定，"02"(原敘述有誤)正確是 D:\ACADUser\y340.dcl。
03.D:\ACADUser\ (依使用者BLOCK圖檔存放路徑設定)---這是我預先規劃BLOCK(.dwg)圖檔存放位置，
你可以修改成你的圖檔存放目錄，詳"使用者BLOCK圖庫Y340TXT(如何修改目錄路徑).jpg"圖片。
04.以上步驟詳實完成，再試試看。因版本不同，我無法正確測試，只有請使用相同版本的網友，
提供意見，或再詳細告知你執行的步驟，因為本程式執行時，若遇到不正常情況都會出現提示。
05.本程式使用中造成你的困擾，我感到非常抱歉。

我使用的是2010版本.我剛測了一下..我這邊的問題是.我沒將圖塊路徑.加入支援規劃路徑內..ˇ以致.DCL 載入失敗.
目前正常運作中..感謝YU0678的分享..

程式解決的方法.有2個.
1. 將目錄路徑 加入支援路徑.這樣DCL就可以找的到.
2. 修正LSP
   

代碼:

  
    (setq d_list-1 (dos_subdir :Y340_DWG:))
    (setq dcl_id   (load_dialog (strcat :Y340_DWG: "y340.dcl")))  ;<---修正LSP代碼,以指定DCL路徑.
    (if (not (new_dialog "y340" dcl_id)) (exit))
    (:Y340-1:) )
    

以上執行有問題的朋友.可以試試..!!

感謝 shenhung 學長指導，讓程式更臻完美，造福更多網友。

感謝 y0678 大大的詳細解說。

有關出現 執行後出現 *** Error: 損壞的引數類型: consp nil ***的問題。小弟已經找出原因。

03.D:\ACADUser\ (依使用者BLOCK圖檔存放路徑設定)---這是我預先規劃BLOCK(.dwg)圖檔存放位置，

原因是：小弟直接使用ACADUser做為BLOCK圖檔存放的路徑所導致。經修正在ACADUser資料匣之下，在增設一個資料匣後，即可正常使用。

再次感謝 yu0678 熱心解說。

謝謝分享~~~

ruru60 寫到:謝謝分享~~~

提醒你:
回覆文章不得少於10個字，請多點鼓勵與互動。少於10個字與以刪除(請重新回帖)。
http://autocad.bestoforum.net/forum-f14/topic-t7044.htm

judyyai 寫到:

ruru60 寫到:謝謝分享~~~

提醒你:
回覆文章不得少於10個字，請多點鼓勵與互動。少於10個字與以刪除(請重新回帖)。
https://www.autocad-tw.com/forum-f14/topic-t7044.htm

我瞭解了,謝謝提醒,下次我會改進
3Q~~~

關於使用者BLOCK圖庫管理.LSP
這個LSP我有照板大的說明設定
但還是無法啟動
出現*** Error: 退出 / 結束 中斷 ***訊息
還有要打開BLOCK圖庫管理.LSP是要輸入指令Y340嗎?
 來詢問一下^^a

請先載入Y340.LSP，再輸入Y340，試試看。
如果你從來沒有載入其他程式的經驗，我再告訴你其他方式，造成你的困擾，非常抱歉。

该图库管理还有一个重大的问题，限定了每一个文件夹内只能有25个DWG文件，只能少，超出的时候，文件不能用。另外文件里也一定要有DWG文件，没有的时候，也会出错。

多謝 yu0678 版大的答覆
我從新安裝與測試後就成功了
謝謝你 

致dongjianlong先進：
感謝指導，你指出的重大問題，不是問題，在我程式使用說明中第3點即有告知；若使用者在使用過程中遭遇相同問題時，也會提出警語，告訴你如何解決問題，不會無故結束程式，導致你圖檔無法儲存。若真要使用翻頁設計，沒有現在方便。   至於一定要有一個(.DWG)圖檔，這也是必須的，沒有圖檔就不必浪費時間去執行。
這個程式不方便的地方有2點:
1.目前不能像"設計中心"一樣，自動將所有圖檔再轉存(.SLD)幻燈片，讓使用者選取目錄後，就一定看得到圖檔內容。(這部分不是問題可以解決)
2.當項目超過50個或更多時，選取一個BLOCK就必需再垂直拉桿上遊走，非常不便。設計一個快速選取常用項目(暫時叫他"快速翻頁")，就必須要考慮。(這部分已經解決)
我分享程式後，並沒有停止對這個程式終止思考，不斷的加強功能，希望給使用者更便捷的方式。

[20131201更新]使用者BLOCK圖庫管理 v1.6.LSP

使用者BLOCK圖庫管理 v1.6(20131201).rar
http://cht.tw/h/8ck3t
下載為壓縮檔，解壓縮後內含2個檔案置於同一目錄中。Y340.LSP內有"使用說明"。

(圖示：使用者BLOCK圖庫管理 v1.6_對話框.jpg)


程式介紹：
01.程式內容同原有 v1.4 版本。
02.增加[回圖庫]和[多重複製]功能，使用更方便。
03.提供原始LISP程式，使用者可以自行修改，或來函討論。
*** 雲淡無痕風過處 去留自在皆隨緣 ***

===================================
[20131203修正更新]針對 v1.6版 使用者
(約758列)
原有 (command "-INSERT" infile pause)
修正為 (command "-INSERT" infile ip5)
解決執行自訂比例時，指定插入點需執行兩次問題。

感謝前輩提供的程式分享,不僅提供並指導程式的載入及使用方式,還有原碼可以供觀摩學習,真是佛心來著的!晚輩收下學習了,感恩!

這個太讚了~還是幻燈片看起來比較順眼~感謝感謝

感觉贵网站,还有很多地方要改进呀,比如附件,图件都不能上传.