教學課程
加入贊助
聯絡我們![[分享]快速建立多重匿名圖塊 Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![[分享]快速建立多重匿名圖塊 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[分享]快速建立多重匿名圖塊 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[分享]快速建立多重匿名圖塊 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[分享]快速建立多重匿名圖塊 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[分享]快速建立多重匿名圖塊 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[分享]快速建立多重匿名圖塊 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[分享]快速建立多重匿名圖塊 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[分享]快速建立多重匿名圖塊 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[分享]快速建立多重匿名圖塊 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[分享]快速建立多重匿名圖塊 Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![[分享]快速建立多重匿名圖塊 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[分享]快速建立多重匿名圖塊 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[分享]快速建立多重匿名圖塊 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[分享]快速建立多重匿名圖塊 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[分享]快速建立多重匿名圖塊 Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![[分享]快速建立多重匿名圖塊 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[分享]快速建立多重匿名圖塊 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[分享]快速建立多重匿名圖塊 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[分享]快速建立多重匿名圖塊 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[分享]快速建立多重匿名圖塊
2 posters
![[分享]快速建立多重匿名圖塊 Empty](https://2img.net/i/empty.gif)
[分享]快速建立多重匿名圖塊
由 LUCAS_LAI 2021-06-15, 13:09
;;快速建立多重匿名圖塊
;;會編程的小心便用,不然要救回圖面還要再編個解程序
;;對不會編程的禁用
;;會編程的小心便用,不然要救回圖面還要再編個解程序
;;對不會編程的禁用
- 代碼:
(defun C:QMBLK (/ A AA HOLDECHO OBJ)
(setq HOLDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.undo" "_group")
(if (setq AA (ssget))
(progn
(setq A (rtos (* (getvar "CDATE") 1E8)))
(command "_.BLOCK" A "NON" "0,0" AA "")
(setq OBJ
(vla-item (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
A
)
)
(vla-put-name OBJ "*U")
(entmake (list '(0 . "INSERT")
'(100 . "AcDbMInsertBlock")
(cons 2 (vla-get-name OBJ))
(cons 10 '(0 0 0))
'(70 . 1)
'(71 . 1)
)
)
)
)
(command "_.undo" "_end")
(setvar "cmdecho" HOLDECHO)
(princ)
)
(princ "\nType QMBLK 快速建立多重匿名圖塊,BY LUCAS_LAI(龍龍仔)")
(princ)
- 附件
![[分享]快速建立多重匿名圖塊 Attachment](https://2img.net/i/fa/attachment.png)
- 快速建立多重匿名圖塊QMBLK.zip 您無權下載這里的附件。(1 Kb) 下載 5 次
LUCAS_LAI- 一般會員
- 文章總數 : 33
年齡 : 60
來自 : 桃園市
職業 : 工程師
愛好 : 看動漫
個性 : 內向
使用年資 : 25年以上,但最近10年少用
使用版本 : 2011
經驗值 : 1613
威望值 : 97
注冊日期 : 2021-05-27
-
Tiger&蘋果爸 and IT農夫 like this post
回復： [分享]快速建立多重匿名圖塊
由 Tiger&蘋果爸 2021-06-28, 13:20
謝謝前輩熱心分享~
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21421
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90649
威望值 : 17226
注冊日期 : 2008-04-23
-
回復： [分享]快速建立多重匿名圖塊
由 LUCAS_LAI 2021-07-06, 09:33
;;計劃再做
;;每5個圖元建一個多重匿名圖塊
;;半數多重匿名圖塊轉至"Defpoints"層
;;因為使用MINSERT圖塊無法分解。"Defpoints"層不出圖
;;如果說業主只會開圖比較不懂CAD的原理，此方法可能奏效。
;;但把圖元全部炸開還沒有寫,因圖太多不確定東西,即我沒有找到測試圖
;;每5個圖元建一個多重匿名圖塊
;;半數多重匿名圖塊轉至"Defpoints"層
;;因為使用MINSERT圖塊無法分解。"Defpoints"層不出圖
;;如果說業主只會開圖比較不懂CAD的原理，此方法可能奏效。
;;但把圖元全部炸開還沒有寫,因圖太多不確定東西,即我沒有找到測試圖
LUCAS_LAI- 一般會員
- 文章總數 : 33
年齡 : 60
來自 : 桃園市
職業 : 工程師
愛好 : 看動漫
個性 : 內向
使用年資 : 25年以上,但最近10年少用
使用版本 : 2011
經驗值 : 1613
威望值 : 97
注冊日期 : 2021-05-27
-
這個論壇的權限：
您 無法 在這個版面回復文章
*** disclaimer. 免責聲明 ***
“AUTOCAD®, and AUTODESK® are registered trademarks of Autodesk, Inc., its subsidiaries, and/or its affiliates.”
“This website is independent of Autodesk, Inc., and is not affiliated with, authorized, endorsed, sponsored, or otherwise approved of by Autodesk, Inc.”
“AUTOCAD® 和 AUTODESK® 是 Autodesk, Inc. 及其子公司和/或關聯公司的註冊商標。此網站與 Autodesk, Inc. 無關，並且未經 Autodesk, Inc. 授權、認可、贊助或以其他方式批准”
“AutoCAD 顧問論壇為台灣創立之網站，我們以熱忱服務 AutoCAD 用戶，致力於技術討論、知識分享及教學影片（課程）等內容，為 AutoCAD 社群提供支持與貢獻”