2018年9月20日 星期四

PBOX.LSP


第01講 課程內容簡介 (A) 
第02講 MATLAB小傳與外觀(A)
第02講 MATLAB小傳與外觀(B)
第02講 MATLAB小傳與外觀(C)

[Android 模擬器] BlueStacks v4.30.50

Autorun Organizer v3.01 讓程式在開機時「延遲載入」或禁止開機自動啟動,加快電腦開機速度!

The AutoLisp Ultimate Tutorial - Dialog Control Language - DCL

環華十年 - YouTube-https://www.youtube.com/channel/UCJPCo6WJCb0aXShfcDDUffg/videos

超簡單windows7重灌安裝教學setup system(企業版範例)

【教學】WIN7.WIN8電腦變慢?EXCEL變慢?文書變慢?OFFICE changing down?















(defun c:pbox(/ pa pb pc pd ww hh pm1 pm2 pm3 pm4)
  ;;FileName:pbox_ex
  (setvar "cmdecho" 1)
  (setvar "Blipmode" 0)
  (setq pa (getpoint "左下角點:"))
  (setq ww (getdist pa "\n 寬:"))
  (setq hh (getdist pa "\n 高:"))
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (/ pi 2) hh))
  (setq pd (polar pc pi ww))
  ;;
  (setq pm1 (polar pa 0 (/ ww 2)))
  (setq pm2 (polar pb (/ pi 2) (/ hh 2)))
  (setq pm3 (polar pd 0 (/ ww 2)))
  (setq pm4 (polar pa (/ pi 2) (/ hh 2)))
  (command "line" pm1 pm3 "")
  (command "line" pm2 pm4 "")
  (command "pline" pa pb pc pd "c")
  (prin1)
)
  (prompt "\n 這是我寫的Program於20180925")
  (prompt "\n command : pbox")


沒有留言:

張貼留言