歡迎頁
顧問教學
加入贊助
聯絡我們![[分享]畫沉頭孔上或下視圖lsp Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[分享]畫沉頭孔上或下視圖lsp 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[分享]畫沉頭孔上或下視圖lsp Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[分享]畫沉頭孔上或下視圖lsp 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[分享]畫沉頭孔上或下視圖lsp Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[分享]畫沉頭孔上或下視圖lsp Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[分享]畫沉頭孔上或下視圖lsp Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[分享]畫沉頭孔上或下視圖lsp BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[分享]畫沉頭孔上或下視圖lsp Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[分享]畫沉頭孔上或下視圖lsp Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[分享]畫沉頭孔上或下視圖lsp Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[分享]畫沉頭孔上或下視圖lsp Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[分享]畫沉頭孔上或下視圖lsp Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[分享]畫沉頭孔上或下視圖lsp Aoe1-111](https://i.servimg.com/u/f67/12/31/59/66/aoe1-111.png)
![[分享]畫沉頭孔上或下視圖lsp Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[分享]畫沉頭孔上或下視圖lsp Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[分享]畫沉頭孔上或下視圖lsp Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[分享]畫沉頭孔上或下視圖lsp Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
新加入會員必讀新手任務 
|
搜尋 最新主題 查看誰在線上 目前總共有 437 位使用者在線上 :: 6 位會員, 1 位隱形及 430 位訪客 :: 3個搜索引擎Atsai, evilden, hreo3345678, naruto018, tiger22kimo, yu0678 [ 查看全部 ] 最高線上人數記錄為 2092 人 [ 記錄時間 :: 2013-08-21, 22:09 ] | [分享]畫沉頭孔上或下視圖lsp 2017-04-22, 10:07 由 fu4shu ![[分享]畫沉頭孔上或下視圖lsp 009710](https://i.servimg.com/u/f58/12/31/59/66/009710.png) ;[counter.lsp]***畫沉頭孔上或下視圖**** (defun c:counter() (setvar "cmdecho" 0) ;;指令執行過程不回應 (setq os (getvar "osmode")) ;;記錄原物件鎖點值 (setvar "osmode" 39) ;;定物件鎖點值<端點><中點><中心點><交點> (command "undo" "be") ;;標記開始 (initget "3 4 5 6 8 10 12 14 16 18 20 22 24") (prompt "\n只允許輸入以下規格 (setq m (getint "\n目前正視牙孔為M?<8>:")) (if (= m nil) (setq m 8)) (cond ((= m 3) (run_m3)) ((= m 4) (run_m4)) ((= m 5) (run_m5)) ((= m 6) (run_m6)) ((= m 8) (run_m8)) ((= m 10)(run_m10)) ((= m 12)(run_m12)) ((= m 14)(run_m14)) ((= m 16)(run_m16)) ((= m 18)(run_m18)) ((= m 20)(run_m20)) ((= m 22)(run_m22)) ((= m 24)(run_m24)) ) ) ;;--run_m3-------M3----- (defun run_m3() (setq md 3.5) (setq mm 7.0) (run_counter) ) ;;--run_m4-------M4----- (defun run_m4() (setq md 4.5) (setq mm 9.0) (run_counter) ) ;;--run_m5-------M5----- (defun run_m5() (setq md 5.5) (setq mm 10.0) (run_counter) ) ;;--run_m6-------M6----- (defun run_m6() (setq md 6.5) (setq mm 12.0) (run_counter) ) ;;--run_m8-------M8----- (defun run_m8() (setq md 8.7) (setq mm 15.0) (run_counter) ) ;;--run_m10------M10---- (defun run_m10() (setq md 10.7) (setq mm 18.0) (run_counter) ) ;;--run_m12-----M12----- (defun run_m12() (setq md 12.7) (setq mm 20.0) (run_counter) ) ;;--run_m14-----M14----- (defun run_m14() (setq md 14.7) (setq mm 23.0) (run_counter) ) ;;--run_m16-----M16----- (defun run_m16() (setq md 16.7) (setq mm 26.0) (run_counter) ) ;;--run_m18-----M18----- (defun run_m18() (setq md 18.7) (setq mm 30.0) (run_counter) ) ;;--run_m20-----M20----- (defun run_m20() (setq md 20.7) (setq mm 32.0) (run_counter) ) ;;--run_m22-----M22----- (defun run_m22() (setq md 22.7) (setq mm 36.0) (run_counter) ) ;;--run_m24-----M24----- (defun run_m24() (setq md 24.7) (setq mm 38.0) (run_counter) ) ;;---run_counter----判斷上或下視沉頭孔程式---------- (defun run_counter() (initget "U D") (setq ud (getkword "\nU為正視圖/D為下視圖或按 (if(= ud "nil")(setq ud "U")) (cond ((= ud U)(run_counter_u)) ((= ud "D")(run_counter_d)) ) ) ;;---run_counter_u----畫上視沉頭孔程式---------- (defun run_counter_u() (setq mr (/ md 2.0)) (setq mx (/ mm 2.0)) (setq cp (getpoint "\n點擊放置點,或按 (while cp (setvar "osmode" 0) ;;定物件鎖點值無 (command "circle" cp mr) (command "circle" cp mx) (setvar "osmode" 39) ;;定物件鎖點值<端點><中點><中心點><交點> (setq cp (getpoint "\n點擊放置點,或按 ) (command "undo" "e") ;;標記結束,在做程式復原時直接跑到標記處 (setvar "osmode" os) ;;回復原物件鎖點值 (prompt "\n===畫沉頭孔上或下視圖===") (prompt "\n<<指令:counter>>程式撰寫Tseng fu-shu[[畫沉頭孔上或下視圖]]2006/4/21") (prin1) ) ;;---run_counter_d----畫下視沉頭孔程式---------- (defun run_counter_d() (setq mr (/ md 2.0)) (setq mx (/ mm 2.0)) (setq cp (getpoint "\n點擊放置點,或按 (while cp (setvar "osmode" 0) ;;定物件鎖點值無 (command "circle" cp mr) (command "circle" cp mx "change" "l" "" "p" "lt" "HIDDEN" "") (setvar "osmode" 39) ;;定物件鎖點值<端點><中點><中心點><交點> (setq cp (getpoint "\n點擊放置點,或按 ) (command "undo" "e") ;;標記結束,在做程式復原時直接跑到標記處 (setvar "osmode" os) ;;回復原物件鎖點值 (prompt "\n===畫沉頭孔上或下視圖===") (prompt "\n<<指令:counter>>程式撰寫Tseng fu-shu[[畫沉頭孔上或下視圖]]2006/4/21") (prin1) ) 評論: 2 | AutoCAD導覽 ![[分享]畫沉頭孔上或下視圖lsp Sesa2011](https://i.servimg.com/u/f67/12/31/59/66/sesa2011.png)     
|
![[分享]畫沉頭孔上或下視圖lsp Ceaeo10](https://i.servimg.com/u/f81/12/31/59/66/ceaeo10.png)
» [好康下載]AutoCAD 2D 工程車機械大全.DWG...重新開放
» 請問如何把別人做的填充線另存?
» [分享]標註x、y、z座標LISP
» [分享]PDF單檔或多檔批次匯入為DWG
» 迴路LISP沒法用,求解
» 新手報到 bannsr0733
» 報到 mtchiou
» Autocad插件
» 如何製作 AutoCAD 2025 Express 中文化
» [互助]字體檔分享交流~
» [討論]分享如何寫lisp-電子書下載
» AutoCAD Lisp入門資料整理大全
» [討論]分享常用鋼鐵及螺絲動態圖塊insert
» [分享]LISP計算多個不同形體的面積
» [分享]ISO等角標註
» 新手報到 Brian Chen
» [已解決]求~~文字數字加總計算的lsp?
» 新手報到還請多多指教
» [分享]LISP計算及合計面積
» [分享]自動編號LISP增量編碼程式
» [討論]分享圖塊屬性萃取程式-單一類別圖塊！！
» [分享]結合文字於字首或字尾和替換、刪除文字.LSP
» 「分享」圖塊屬性萃取程式！！
» 號外！再次開放2D圖塊圖塊大全下載...限時分享(已結束)
» 報到danbear973
» 2023CAD是不是很吃資源？
» [測驗題]標準作業：A1圖框製作、樣版檔設定(一)
» [分享]免費CAD圖塊下載網址...有新增網站102.5.25
» 新手報到 請多指教