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.
[分享]鎖圖 Aoe1-113[分享]鎖圖 Ioaoe110[分享]鎖圖 2020-310[分享]鎖圖 Oiu15010[分享]鎖圖 2020-211[分享]鎖圖 Ia15010[分享]鎖圖 Aizyao10[分享]鎖圖 Uos15010[分享]鎖圖 BPl3tjj[分享]鎖圖 Ziao1510
[分享]鎖圖 Aoe15010[分享]鎖圖 Oo-2-110[分享]鎖圖 Zuoiy_10[分享]鎖圖 Aizyao11[分享]鎖圖 Iyb_1510[分享]鎖圖 Aoe1-112[分享]鎖圖 Uos15011[分享]鎖圖 Aoe2da10[分享]鎖圖 Aoe2da11[分享]鎖圖 Aoe10

[分享]鎖圖

+2
ya198515
LUCAS_LAI
6 posters

向下

[分享]鎖圖 Empty [分享]鎖圖

發表 由 LUCAS_LAI 2021-07-23, 15:03

;;鎖圖
;;每5個圖元建立1個多重匿名圖塊
;;一半MINSERT轉到"Defpoints"層===>不能印圖
;;以上跑2次,最後再建成多重匿名圖塊
;;但對會編程的人,一點用都沒有,所以先炸開是基本功
;;保護智慧財產
https://www.autocad-tw.com/t131-topic?highlight=%E4%BF%9D%E8%AD%B7
;;低版本利用WMFOUT,WMFIN炸開圖檔
https://www.autocad-tw.com/t24947-topic
;;BY LUCAS_LAI

代碼:

(vl-load-com)
(defun C:QMBLK1 (/ A AA AAA AAL BLKS
 HOLDCLAYER HOLDECHO ;HOLDDIA HOLDREQ
 N OBJ QQ STIME ETIME
 )

  (defun DO_IT ()
    ;;慢速(因為使用了COMMAND建BLOCK),用VLISP建BLOCK同COMMAND,ENTMAKE建BLOCK(快4倍)
    (command "_.BLOCK" A "NON" '(0 0 0) AAA "")
    (setq OBJ (vla-item BLKS A))
    (vla-put-name OBJ "*U")
    (entmake (list '(0 . "INSERT")
   '(100 . "AcDbMInsertBlock")
   (cons 2 (vla-get-name OBJ))
   (cons 10 (trans '(0 0 0) 1 0))
   '(70 . 1)
   '(71 . 1)
     )
    )
  )

  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.undo" "_group")
  (setq STIME (getvar "date"))
  (setvar 'QAFLAGS 0)
  ;;(setq HOLDDIA (getvar "ATTDIA"))
  ;;(setq HOLDREQ (getvar "ATTREQ"))
  (setq HOLDCLAYER (getvar "CLAYER"))
  (command "_.layer" "m" "Defpoints" "c" "7" "" "lt" "CONTINUOUS" "" "")
  (setvar "CLAYER" "0")
  (setq BLKS (vla-get-blocks
       (vla-get-activedocument (vlax-get-acad-object))
     )
  )
  ;;(setvar "ATTDIA" 0)
  ;;(setvar "ATTREQ" 0)
  (setq A (rtos (* (getvar "CDATE") 1E8)))
  ;;可多跑幾次,但太多次出圖就看不到東西
  ;;1次沒法達到不能印圖
  ;;至少2次才能達到不能印圖
  (repeat 2
    (if (setq AA (ssget "_X"
 (list '(0 . "~VIEWPORT")
      '(0 . "~ATTDEF")
      (cons 410 (getvar "CTAB"))
 )
 )
 )
      (progn
 (setq AAL (sslength AA))
 (setq N 0)
 (while (> AAL N)
  (setq AAA (ssadd))
  (repeat 5
    (if (ssname AA N)
      (ssadd (ssname AA N) AAA)
    )
    (setq N (1+ N))
  )
  (DO_IT)
  (if (= (rem N 2) 1)
    (progn
      (setq QQ (entget (entlast)))
      (setq QQ (subst '(8 . "Defpoints") (assoc 8 QQ) QQ))
      (entmod QQ)
    )
  )
 )
      )
    )
  )
  (setq AAA (ssget "_X"
   (list '(0 . "~VIEWPORT")
 '(0 . "~ATTDEF")
 (cons 410 (getvar "CTAB"))
   )
    )
  )
  (DO_IT)
  ;;(setvar "ATTDIA" HOLDDIA)
  ;;(setvar "ATTREQ" HOLDREQ)
  (setq ETIME (getvar "date"))
  (prompt
    (strcat
      "\n程式共耗用時間: "
      (rtos (* 86400.0 (- (- ETIME STIME) (fix (- ETIME STIME))))
    2
    3
      )
      "秒"
    )
  )
  (setvar "CLAYER" HOLDCLAYER)
  (vlax-release-object BLKS)
  (command "_.undo" "_end")
  (setvar "cmdecho" HOLDECHO)
  (princ)
)
(princ
  "\nType QMBLK1  COMMAND建圖塊鎖圖,BY LUCAS_LAI"
)
(princ)


QMBLK1.LSP下載
[回覆可見]
LUCAS_LAI
LUCAS_LAI
一般會員
一般會員

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

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

Tiger&蘋果爸 likes this post

回頂端 向下

[分享]鎖圖 Empty 回復: [分享]鎖圖

發表 由 ya198515 2022-03-02, 13:51

感謝分享,希望可以解決問題保護智慧財產權

____________________________________________________________________________________
[分享]鎖圖 Ioaoe110 [分享]鎖圖 Zuoiy_10 [分享]鎖圖 2020-211 [分享]鎖圖 Aizyao11 [分享]鎖圖 Iyb_1510
[分享]鎖圖 Aizyao10 [分享]鎖圖 BPl3tjj.png [分享]鎖圖 Ziao1510 [分享]鎖圖 Oo-2-110 [分享]鎖圖 Oooa_110
ya198515
ya198515
一般會員
一般會員

文章總數 : 30
年齡 : 39
來自 : 嘉義縣
職業 : 太陽光電
愛好 : 設計繪畫
個性 : 勤勞務實
使用年資 : 2年
使用版本 : 2018
經驗值 : 1770
威望值 : 6
注冊日期 : 2020-04-21
[分享]鎖圖 Acadad10 男 摩羯座 鼠

回頂端 向下

[分享]鎖圖 Empty 回復: [分享]鎖圖

發表 由 ianlcc 2022-03-13, 16:44

所以還是有可能會被破解或炸開…
看來最好還是只提供pdf檔!!

____________________________________________________________________________________
[分享]鎖圖 Ioaoe110 [分享]鎖圖 Zuoiy_10 [分享]鎖圖 2020-211 [分享]鎖圖 Aizyao11 [分享]鎖圖 Iyb_1510
[分享]鎖圖 Aizyao10 [分享]鎖圖 BPl3tjj.png [分享]鎖圖 Ziao1510 [分享]鎖圖 Oo-2-110 [分享]鎖圖 Oooa_110
ianlcc
ianlcc
一般會員
一般會員

文章總數 : 159
年齡 : 49
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 5340
威望值 : 69
注冊日期 : 2012-06-24
顧問外掛程式 藍鵲486號
男 雙魚座 兔

回頂端 向下

[分享]鎖圖 Empty 回復: [分享]鎖圖

發表 由 rickyyang 2022-03-13, 23:28

感謝大大無私地分享...感恩

____________________________________________________________________________________
[分享]鎖圖 Ioaoe110 [分享]鎖圖 Zuoiy_10 [分享]鎖圖 2020-211 [分享]鎖圖 Aizyao11 [分享]鎖圖 Iyb_1510
[分享]鎖圖 Aizyao10 [分享]鎖圖 BPl3tjj.png [分享]鎖圖 Ziao1510 [分享]鎖圖 Oo-2-110 [分享]鎖圖 Oooa_110
rickyyang
rickyyang
專屬會員
專屬會員

文章總數 : 196
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4548
威望值 : 36
注冊日期 : 2014-11-11
[分享]鎖圖 Acadad10 男 射手座 馬

回頂端 向下

[分享]鎖圖 Empty 回復: [分享]鎖圖

發表 由 sachindkini 2023-02-02, 22:18

感謝分享
sachindkini
sachindkini
一般會員
一般會員

文章總數 : 45
年齡 : 47
來自 : mumbai
職業 : architect
愛好 : photography
個性 : cool
使用年資 : senior member
使用版本 : autocad2018
經驗值 : 4642
威望值 : 6
注冊日期 : 2012-08-20
男 摩羯座 龍

回頂端 向下

[分享]鎖圖 Empty 回復: [分享]鎖圖

發表 由 Cher 2024-09-29, 15:12

感謝分享
Cher
Cher
專屬會員
專屬會員

文章總數 : 107
年齡 : 46
來自 : 新竹
職業 : 建築工程
愛好 : 畫畫
個性 : 沈默寡言
使用年資 : 新手初學
使用版本 : Auto CAD 2022
經驗值 : 1255
威望值 : 24
注冊日期 : 2022-11-04
女 天蝎座 蛇

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]鎖圖 Aoe1-113[分享]鎖圖 Ioaoe110[分享]鎖圖 2020-310[分享]鎖圖 Oiu15010[分享]鎖圖 2020-211[分享]鎖圖 Ia15010[分享]鎖圖 Aizyao10[分享]鎖圖 Uos15010[分享]鎖圖 BPl3tjj[分享]鎖圖 Ziao1510
[分享]鎖圖 Aoe15010[分享]鎖圖 Oo-2-110[分享]鎖圖 Zuoiy_10[分享]鎖圖 Aizyao11[分享]鎖圖 Iyb_1510[分享]鎖圖 Aoe1-112[分享]鎖圖 Uos15011[分享]鎖圖 Aoe2da10[分享]鎖圖 Aoe2da11[分享]鎖圖 Aoe10