超簡單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")
(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")
沒有留言:
張貼留言