[分享]畫沉頭孔上或下視圖lsp

;[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只允許輸入以下規格3 4 5 6 8 10 12 14 16 18 20 22 24:<按Enter鍵為M8>")
 (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為下視圖或按為U正視圖:"))
(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)
)

測試了一下  程式有問題喔
只能使用  上??視圖而已

ttv_01 寫到:測試了一下  程式有問題喔
只能使用  上??視圖而已

你有調整ltscale線型的整體比例嗎？
調整後就可以顯示下視圖(虛線)