教學課程
加入贊助
聯絡我們![[分享]LEE-MAC的刪除圖塊LISP Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![[分享]LEE-MAC的刪除圖塊LISP Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[分享]LEE-MAC的刪除圖塊LISP 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[分享]LEE-MAC的刪除圖塊LISP Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[分享]LEE-MAC的刪除圖塊LISP 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[分享]LEE-MAC的刪除圖塊LISP Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[分享]LEE-MAC的刪除圖塊LISP Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[分享]LEE-MAC的刪除圖塊LISP Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[分享]LEE-MAC的刪除圖塊LISP BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[分享]LEE-MAC的刪除圖塊LISP Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[分享]LEE-MAC的刪除圖塊LISP Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![[分享]LEE-MAC的刪除圖塊LISP Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[分享]LEE-MAC的刪除圖塊LISP Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[分享]LEE-MAC的刪除圖塊LISP Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[分享]LEE-MAC的刪除圖塊LISP Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[分享]LEE-MAC的刪除圖塊LISP Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![[分享]LEE-MAC的刪除圖塊LISP Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[分享]LEE-MAC的刪除圖塊LISP Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[分享]LEE-MAC的刪除圖塊LISP Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[分享]LEE-MAC的刪除圖塊LISP Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[分享]LEE-MAC的刪除圖塊LISP
+12
chuncheng
misomela
oopsyyyyy
李幸笛
naruto018
et1029et
Monkey.D
safardy
蔣秉澔
judyyai
Tiger&蘋果爸
RyanGuo
16 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
![[分享]LEE-MAC的刪除圖塊LISP Empty](https://2img.net/i/empty.gif)
[分享]LEE-MAC的刪除圖塊LISP
由 RyanGuo 2013-07-09, 09:26
分享前先來幾個刪除圖塊相關討論連結:
1.非作用中的圖塊刪除使用PURGE即可刪除
[已解決]如何刪除圖塊??
https://www.autocad-tw.com/t12338-topic
2.PURGE刪不掉的圖塊可能是藏在別的圖塊中
[已解決]請問block圖塊清除的問題
https://www.autocad-tw.com/t970-topic
3.PURGE刪不掉的圖塊可能是標註的自訂箭頭
[已解決]怎麼樣都刪不掉也找不到的圖塊。
https://www.autocad-tw.com/t2123-topic
▼以上不管刪得掉還是刪不掉的圖塊都可以用LEE-MAC的刪除圖塊一次刪除.
http://www.lee-mac.com/deleteblocks.html
然而,
要完全刪除圖塊對LEE-MAC的刪除圖塊來說卻有個盲點,
那便是匿名圖塊,下面是匿名圖塊的相關討論.
可以使用shenhung前輩的匿名塊和實名塊的轉換程式,
名字換成實名後就想怎樣就怎樣吧= =+
https://www.autocad-tw.com/t15417-topic#104470
理想的解決方案請見下面的討論.
[已解決]圖檔有3MB，打開卻沒東西
https://www.autocad-tw.com/t15507-topic
以上,
願各位的圖檔中不會存在著刪不掉的圖塊了.
最後補上LEE-MAC的刪除圖塊V1.0備份檔案
(下載請優先到LEE-MAC網站下載,或許會有更新的版本).
1.非作用中的圖塊刪除使用PURGE即可刪除
[已解決]如何刪除圖塊??
https://www.autocad-tw.com/t12338-topic
2.PURGE刪不掉的圖塊可能是藏在別的圖塊中
[已解決]請問block圖塊清除的問題
https://www.autocad-tw.com/t970-topic
3.PURGE刪不掉的圖塊可能是標註的自訂箭頭
[已解決]怎麼樣都刪不掉也找不到的圖塊。
https://www.autocad-tw.com/t2123-topic
▼以上不管刪得掉還是刪不掉的圖塊都可以用LEE-MAC的刪除圖塊一次刪除.
http://www.lee-mac.com/deleteblocks.html
然而,
要完全刪除圖塊對LEE-MAC的刪除圖塊來說卻有個盲點,
那便是匿名圖塊,下面是匿名圖塊的相關討論.
- 少量的匿名圖塊
可以使用shenhung前輩的匿名塊和實名塊的轉換程式,
名字換成實名後就想怎樣就怎樣吧= =+
https://www.autocad-tw.com/t15417-topic#104470
- 大量的匿名圖塊
理想的解決方案請見下面的討論.
[已解決]圖檔有3MB，打開卻沒東西
https://www.autocad-tw.com/t15507-topic
以上,
願各位的圖檔中不會存在著刪不掉的圖塊了.
最後補上LEE-MAC的刪除圖塊V1.0備份檔案
(下載請優先到LEE-MAC網站下載,或許會有更新的版本).
- Spoiler（用來隱藏帖子內容）:
- ;;--------------------=={ Delete Blocks }==-------------------;;
;; ;;
;; Displays a dialog interface prompting the user to select ;;
;; blocks to be deleted and proceeds to remove all traces of ;;
;; selected blocks from the drawing. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright ?2012 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Version 1.0 - 14-07-2012 ;;
;; ;;
;; First Release. ;;
;;------------------------------------------------------------;;
(defun c:delblocks ( / *error* del lst )
(defun *error* ( msg )
(LM:endundo (LM:acdoc))
(if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
(princ (strcat "\nError: " msg))
)
(princ)
)
(cond
( (null (setq lst (LM:GetBlockNames)))
(princ "\nNo Blocks found in Drawing.")
)
( (null (setq lst (LM:ListBox "Select Blocks to Delete" lst t)))
(princ "\n*Cancel*")
)
( t
(LM:startundo (LM:acdoc))
(setq del (LM:DeleteBlocks (LM:acdoc) lst))
(vla-regen (LM:acdoc) acallviewports)
(foreach block lst
(if (member (strcase block) del)
(princ (strcat "\nDeleted block " block "."))
(princ (strcat "\nUnable to delete block " block "."))
)
)
(LM:endundo (LM:acdoc))
)
)
(princ)
)
;;--------------------=={ Delete Blocks }==-------------------;;
;; ;;
;; Deletes all references of a list of blocks from a drawing ;;
;; (including nested references, nested to any level). ;;
;; Proceeds to delete the associated block definitions from ;;
;; the drawing, if possible. ;;
;; ;;
;; This function is compatible with ObjectDBX. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright ?2012 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; docobj - VLA Document Object ;;
;; blocks - List of blocks to be deleted, (case insensitive) ;;
;;------------------------------------------------------------;;
;; Returns: List of blocks that were successfully deleted. ;;
;;------------------------------------------------------------;;
(defun LM:DeleteBlocks ( docobj blocks / blk lst out )
(setq blk (vla-get-blocks docobj))
(if (setq blocks
(mapcar 'strcase
(vl-remove-if
(function
(lambda ( name )
(vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list blk name)))
)
)
blocks
)
)
)
(progn
(vlax-for layer (vla-get-layers docobj)
(if (eq :vlax-true (vla-get-lock layer))
(progn
(setq lst (cons layer lst))
(vla-put-lock layer :vlax-false)
)
)
)
(vlax-for def blk
(vlax-for obj def
(if
(and
(eq "AcDbBlockReference" (vla-get-objectname obj))
(or
(and
(vlax-property-available-p obj 'effectivename)
(member (strcase (vla-get-effectivename obj)) blocks)
)
(member (strcase (vla-get-name obj)) blocks)
)
)
(vl-catch-all-apply 'vla-delete (list obj))
)
)
)
(foreach block blocks
(if (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list (vla-item blk block)))))
(setq out (cons block out))
)
)
(foreach layer lst (vla-put-lock layer :vlax-true))
(reverse out)
)
)
)
;;-----------------------=={ List Box }==---------------------;;
;; ;;
;; Displays a List Box allowing the user to make a selection ;;
;; from the supplied data. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright ?2012 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; title - List Box Dialog title ;;
;; lst - List of Strings to display in the List Box ;;
;; multiple - Boolean flag to determine whether the user ;;
;; may select multiple items (T=Allow Multiple) ;;
;;------------------------------------------------------------;;
;; Returns: List of selected items, else nil. ;;
;;------------------------------------------------------------;;
(defun LM:ListBox ( title lst multiple / dch des tmp res )
(cond
( (not
(and
(setq tmp (vl-filename-mktemp nil nil ".dcl"))
(setq des (open tmp "w"))
(write-line
(strcat
"listbox : dialog { label = \""
title
"\"; spacer; : list_box { key = \"list\"; multiple_select = "
(if multiple "true" "false")
"; } spacer; ok_cancel;}"
)
des
)
(not (close des))
(< 0 (setq dch (load_dialog tmp)))
(new_dialog "listbox" dch)
)
)
(prompt "\nError Loading List Box Dialog.")
)
( t
(start_list "list")
(foreach item lst (add_list item))
(end_list)
(setq res (set_tile "list" "0"))
(action_tile "list" "(setq res $value)")
(setq res
(if (= 1 (start_dialog))
(mapcar '(lambda ( x ) (nth x lst)) (read (strcat "(" res ")")))
)
)
)
)
(if (< 0 dch)
(unload_dialog dch)
)
(if (and tmp (setq tmp (findfile tmp)))
(vl-file-delete tmp)
)
res
)
;; Get Block Names - Lee Mac
;; Returns an alphabetically sorted list of block names,
;; excluding anonymous and xref-dependent blocks.
(defun LM:GetBlockNames ( / bd bl )
(while (setq bd (tblnext "BLOCK" (null bd)))
(if (zerop (logand 125 (cdr (assoc 70 bd))))
(setq bl (cons (cdr (assoc 2 bd)) bl))
)
)
(vl-sort bl '<)
)
;; Start Undo - Lee Mac
;; Opens an Undo Group.
(defun LM:startundo ( doc )
(LM:endundo doc)
(vla-startundomark doc)
)
;; End Undo - Lee Mac
;; Closes an Undo Group.
(defun LM:endundo ( doc )
(while (= 8 (logand 8 (getvar 'UNDOCTL)))
(vla-endundomark doc)
)
)
;; Active Document - Lee Mac
;; Returns a global pointer to the VLA Active Document Object
(defun LM:acdoc nil
(cond ( acdoc ) ((setq acdoc (vla-get-activedocument (vlax-get-acad-object)))))
)
;;------------------------------------------------------------;;
(vl-load-com) (princ)
;;------------------------------------------------------------;;
;; End of File ;;
;;------------------------------------------------------------;;
謝謝熱心分享~< 積分 +1>- 附件
![[分享]LEE-MAC的刪除圖塊LISP Attachment](https://2img.net/i/fa/attachment.png)
- 刪除圖塊DeleteBlocksV1-1.zip 您無權下載這里的附件。(4 Kb) 下載 31 次
Tiger&蘋果爸 在 2019-11-27, 18:01 作了第 1 次修改 (原因 : 2019/11/27-補充新版LSP程式)
____________________________________________________________________________________
┌荒┐
奇┼幸
└和┘
奇┼幸
└和┘
![[分享]LEE-MAC的刪除圖塊LISP Acad2010](https://i.servimg.com/u/f57/12/31/59/66/acad2010.png)
![[分享]LEE-MAC的刪除圖塊LISP Acad1810](https://i.servimg.com/u/f38/12/31/59/66/acad1810.png)
![[分享]LEE-MAC的刪除圖塊LISP Acad1211](https://i.servimg.com/u/f41/12/31/59/66/acad1211.png)
![[分享]LEE-MAC的刪除圖塊LISP Acad1311](https://i.servimg.com/u/f75/12/31/59/66/acad1311.png)
![[分享]LEE-MAC的刪除圖塊LISP Acad1511](https://i.servimg.com/u/f16/12/31/59/66/acad1511.png)
RyanGuo- 初級會員
- 文章總數 : 206
年齡 : 41
來自 : 屏東
職業 : 機械繪圖
愛好 : 玩遊戲
個性 : 嗚嗚男
使用年資 : 1年多
使用版本 : 2011
積分 : 3
經驗值 : 5562
威望值 : 316
注冊日期 : 2013-04-18
回復： [分享]LEE-MAC的刪除圖塊LISP
由 Tiger&蘋果爸 2013-07-09, 09:52
好精采的圖塊文章整理，對於有困擾的朋友幫助很大喔～
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90361
威望值 : 17197
注冊日期 : 2008-04-23
-
回復： [分享]LEE-MAC的刪除圖塊LISP
由 judyyai 2013-07-09, 12:34
讚~應該列為精華文章~
真的沒甚麼圖塊刪不掉了
真的沒甚麼圖塊刪不掉了
____________________________________________________________________________________
![[分享]LEE-MAC的刪除圖塊LISP BPl3tjj.png](https://i.imgur.com/BPl3tjj.png.png)
![[分享]LEE-MAC的刪除圖塊LISP Aoe1-111](https://i.servimg.com/u/f67/12/31/59/66/aoe1-111.png)
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30445
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復： [分享]LEE-MAC的圖塊刪除LISP
由 RyanGuo 2013-07-09, 13:16
多謝兩位前輩的誇獎,
我只是在分享這LISP前剛好爬文有爬到這些,
順便一起整理出來而已@@a
我只是在分享這LISP前剛好爬文有爬到這些,
順便一起整理出來而已@@a
____________________________________________________________________________________
┌荒┐
奇┼幸
└和┘
奇┼幸
└和┘
RyanGuo- 初級會員
- 文章總數 : 206
年齡 : 41
來自 : 屏東
職業 : 機械繪圖
愛好 : 玩遊戲
個性 : 嗚嗚男
使用年資 : 1年多
使用版本 : 2011
積分 : 3
經驗值 : 5562
威望值 : 316
注冊日期 : 2013-04-18
回復： [分享]LEE-MAC的刪除圖塊LISP
由 蔣秉澔 2013-11-08, 13:57
這支lisp，不只兇，還很狠，搭配shenhung前輩的lisp，簡直是大絕，呵呵
____________________________________________________________________________________
![[分享]LEE-MAC的刪除圖塊LISP Oooa_110](https://i.servimg.com/u/f67/12/31/59/66/oooa_110.png)
蔣秉澔- 初級會員
- 文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關，出遊踏青
個性 : 待人隨和，對事執著
使用年資 : 8年
使用版本 : 2011 Electrical，2014
積分 : 4
經驗值 : 5399
威望值 : 198
注冊日期 : 2013-08-31
太好了!!!
safardy- 一般會員
- 文章總數 : 30
年齡 : 38
來自 : 台北市
職業 : 室內設計
愛好 : 旅遊
個性 : 腦殘
使用年資 : 2年
使用版本 : 2013
經驗值 : 4586
威望值 : 24
注冊日期 : 2012-10-02
Monkey.D- 一般會員
- 文章總數 : 56
年齡 : 39
來自 : 嘉義
職業 : Auto Cad
愛好 : 待業
個性 : 交朋友
使用年資 : 1
使用版本 : 新手初學
經驗值 : 4896
威望值 : 12
注冊日期 : 2012-03-19
回復： [分享]LEE-MAC的刪除圖塊LISP
由 et1029et 2015-05-07, 11:31
感謝分享圖塊刪除大全
受用無窮啊
受用無窮啊
____________________________________________________________________________________
et1029et- 初級會員
- 文章總數 : 356
年齡 : 44
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5909
威望值 : 324
注冊日期 : 2013-07-02
naruto018- 中級會員
- 文章總數 : 226
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4542
威望值 : 564
注冊日期 : 2016-11-29
李幸笛- 一般會員
- 文章總數 : 35
年齡 : 48
來自 : 新北市
職業 : 待業
愛好 : 看書
個性 : 開朗
使用年資 : 4年
使用版本 : cad 2012
經驗值 : 5030
威望值 : 0
注冊日期 : 2011-07-13
回復： [分享]LEE-MAC的刪除圖塊LISP
由 oopsyyyyy 2019-11-27, 16:33
謝謝分享!!!
____________________________________________________________________________________
oopsyyyyy- 一般會員
- 文章總數 : 47
年齡 : 30
來自 : 台北
職業 : 結構助理工程師
愛好 : 看電影
個性 : 活潑
使用年資 : 3
使用版本 : 2017
經驗值 : 2363
威望值 : 6
注冊日期 : 2019-01-19
misomela- 一般會員
- 文章總數 : 28
年齡 : 46
來自 : 板橋區
職業 : 建築設計
愛好 : 美食
個性 : 嚴謹
使用年資 : 10
使用版本 : 2008
經驗值 : 4888
威望值 : 0
注冊日期 : 2011-10-15
chuncheng- 一般會員
- 文章總數 : 47
年齡 : 35
來自 : 新北市
職業 : 機電工程業
愛好 : 研究電腦
個性 : 內向
使用年資 : 3年
使用版本 : 2014
經驗值 : 2741
威望值 : 0
注冊日期 : 2018-01-04
回復： [分享]LEE-MAC的刪除圖塊LISP
由 vicki1021 2019-11-28, 10:12
謝謝分享，真的很需要這工具，讚!!!
____________________________________________________________________________________
vicki1021- 高級會員
- 文章總數 : 192
年齡 : 50
來自 : 基隆市
職業 : 金屬建材繪圖員
愛好 : 上網
個性 : 隨和
使用年資 : 2-3年
使用版本 : 2008
積分 : 10
經驗值 : 6295
威望值 : 55
發帖精華 : 2
注冊日期 : 2008-11-27
cat234- 一般會員
- 文章總數 : 51
年齡 : 36
來自 : 台中
職業 : 建築
愛好 : 上網
個性 : 內向
使用年資 : 3
使用版本 : 2008
經驗值 : 5434
威望值 : 12
注冊日期 : 2010-07-22
回復： [分享]LEE-MAC的刪除圖塊LISP
由 ykva8983 2019-11-28, 17:56
Lee-Mac的網站真的好多寶～
感謝大大分享
感謝大大分享
____________________________________________________________________________________
ykva8983- 初級會員
- 文章總數 : 239
年齡 : 35
來自 : 新竹
職業 : 土地開發
愛好 : 閱讀
個性 : 我是乖寶寶
使用年資 : 11個月
使用版本 : 2013
積分 : 4
經驗值 : 6275
威望值 : 162
注冊日期 : 2010-06-01
回復： [分享]LEE-MAC的刪除圖塊LISP
由 hueigo 2019-12-03, 19:27
目前有一個較麻煩的事就是當你用了express的faltten指令，會出現一堆後面有編號的同形圖塊。先來研究這個程式，謝謝分享
____________________________________________________________________________________
hueigo- 初級會員
- 文章總數 : 94
年齡 : 60
來自 : 台中
職業 : 建築設計師
愛好 : 圍棋
個性 : 平實
使用年資 : 15
使用版本 : 2013
積分 : 4
經驗值 : 4980
威望值 : 121
注冊日期 : 2012-10-01
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章