AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[分享]快速建立多重匿名圖塊 Ioaoe110[分享]快速建立多重匿名圖塊 2020-310[分享]快速建立多重匿名圖塊 Oiu15010[分享]快速建立多重匿名圖塊 2020-211[分享]快速建立多重匿名圖塊 Ia15010[分享]快速建立多重匿名圖塊 Aizyao10[分享]快速建立多重匿名圖塊 Uos15010[分享]快速建立多重匿名圖塊 BPl3tjj[分享]快速建立多重匿名圖塊 Ziao1510
[分享]快速建立多重匿名圖塊 Oo-2-110[分享]快速建立多重匿名圖塊 Zuoiy_10[分享]快速建立多重匿名圖塊 Aizyao11[分享]快速建立多重匿名圖塊 Iyb_1510[分享]快速建立多重匿名圖塊 Aoe1-111[分享]快速建立多重匿名圖塊 Uos15011[分享]快速建立多重匿名圖塊 Aoe2da10[分享]快速建立多重匿名圖塊 Aoe2da11[分享]快速建立多重匿名圖塊 Aoe10

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

2 posters

向下

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

發表 由 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
快速建立多重匿名圖塊QMBLK.zip 您無權下載這里的附件。(1 Kb) 下載 4 次
LUCAS_LAI
LUCAS_LAI
一般會員
一般會員

文章總數 : 33
年齡 : 59
來自 : 桃園市
職業 : 工程師
愛好 : 看動漫
個性 : 內向
使用年資 : 25年以上,但最近10年少用
使用版本 : 2011
經驗值 : 1322
威望值 : 97
注冊日期 : 2021-05-27
男 摩羯座 龍

http://lucas-lai.ys168.com/

Tiger&蘋果爸 and IT農夫 like this post

回頂端 向下

[分享]快速建立多重匿名圖塊 Empty 回復: [分享]快速建立多重匿名圖塊

發表 由 Tiger&蘋果爸 2021-06-28, 13:20

謝謝前輩熱心分享~
認同

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[分享]快速建立多重匿名圖塊 Sesa2011 [分享]快速建立多重匿名圖塊 Youtub11 [分享]快速建立多重匿名圖塊 Oiea2011 [分享]快速建立多重匿名圖塊 Oe20011 [分享]快速建立多重匿名圖塊 Fbi20011 [分享]快速建立多重匿名圖塊 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21077
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88422
威望值 : 16930
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[分享]快速建立多重匿名圖塊 Empty 回復: [分享]快速建立多重匿名圖塊

發表 由 LUCAS_LAI 2021-07-06, 09:33

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


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

文章總數 : 33
年齡 : 59
來自 : 桃園市
職業 : 工程師
愛好 : 看動漫
個性 : 內向
使用年資 : 25年以上,但最近10年少用
使用版本 : 2011
經驗值 : 1322
威望值 : 97
注冊日期 : 2021-05-27
男 摩羯座 龍

http://lucas-lai.ys168.com/

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]快速建立多重匿名圖塊 Ioaoe110[分享]快速建立多重匿名圖塊 2020-310[分享]快速建立多重匿名圖塊 Oiu15010[分享]快速建立多重匿名圖塊 2020-211[分享]快速建立多重匿名圖塊 Ia15010[分享]快速建立多重匿名圖塊 Aizyao10[分享]快速建立多重匿名圖塊 Uos15010[分享]快速建立多重匿名圖塊 BPl3tjj[分享]快速建立多重匿名圖塊 Ziao1510
[分享]快速建立多重匿名圖塊 Oo-2-110[分享]快速建立多重匿名圖塊 Zuoiy_10[分享]快速建立多重匿名圖塊 Aizyao11[分享]快速建立多重匿名圖塊 Iyb_1510[分享]快速建立多重匿名圖塊 Aoe1-111[分享]快速建立多重匿名圖塊 Uos15011[分享]快速建立多重匿名圖塊 Aoe2da10[分享]快速建立多重匿名圖塊 Aoe2da11[分享]快速建立多重匿名圖塊 Aoe10