2018年9月25日 星期二

SNAPANG (系統變數) 0、15、30、45、60、75 度度量 lisp

===========================================






















;;filename:fastsnap_ex.LSP
(defun c:sn0()
  (setvar "snapang" (* 0 (/ pi 180))
  (prin1)
)
(defun c:sn15()
  (setvar "snapang" (* 15 (/ pi 180))
  (prin1)
)
(defun c:sn30()
  (setvar "snapang" (* 30 (/ pi 180))
  (prin1)
)
(defun c:sn45()
  (setvar "snapang" (* 45 (/ pi 180))
  (prin1)
)
(defun c:sn60()
  (setvar "snapang" (* 60 (/ pi 180))
  (prin1)
)
(defun c:sn75()
  (setvar "snapang" (* 75 (/ pi 180))
  (prin1)


SNAPANG (系統變數):設定目前視埠相對於目前 UCS 的鎖點和格線旋轉角度。
初始值: 0.0000

沒有留言:

張貼留言