[分享]快速建立多重匿名圖塊

;;快速建立多重匿名圖塊
;;會編程的小心便用,不然要救回圖面還要再編個解程序
;;對不會編程的禁用  

代碼:



(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)


謝謝前輩熱心分享~

;;計劃再做
;;每5個圖元建一個多重匿名圖塊
;;半數多重匿名圖塊轉至"Defpoints"層
;;因為使用MINSERT圖塊無法分解。"Defpoints"層不出圖
;;如果說業主只會開圖比較不懂CAD的原理，此方法可能奏效。


;;但把圖元全部炸開還沒有寫,因圖太多不確定東西,即我沒有找到測試圖