[分享]快速建立多重匿名圖塊
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[分享]快速建立多重匿名圖塊
;;快速建立多重匿名圖塊
;;會編程的小心便用,不然要救回圖面還要再編個解程序
;;對不會編程的禁用
;;會編程的小心便用,不然要救回圖面還要再編個解程序
;;對不會編程的禁用
- 代碼:
(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)
- 附件
Tiger&蘋果爸 and IT農夫 like this post
回復: [分享]快速建立多重匿名圖塊
謝謝前輩熱心分享~
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [分享]快速建立多重匿名圖塊
;;計劃再做
;;每5個圖元建一個多重匿名圖塊
;;半數多重匿名圖塊轉至"Defpoints"層
;;因為使用MINSERT圖塊無法分解。"Defpoints"層不出圖
;;如果說業主只會開圖比較不懂CAD的原理,此方法可能奏效。
;;但把圖元全部炸開還沒有寫,因圖太多不確定東西,即我沒有找到測試圖
;;每5個圖元建一個多重匿名圖塊
;;半數多重匿名圖塊轉至"Defpoints"層
;;因為使用MINSERT圖塊無法分解。"Defpoints"層不出圖
;;如果說業主只會開圖比較不懂CAD的原理,此方法可能奏效。
;;但把圖元全部炸開還沒有寫,因圖太多不確定東西,即我沒有找到測試圖
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章