Auto Lisp 快速上手應用小程式 - E01

Change Cross Hair Angle 變更十字游標角度的小小程式

此程式允許你劃垂直於其他直線的直線 . 此程式量測所選取直線的角度 , 然後設為系統變數 SNAPANG 的值 . 切換 ORTHO 為 ON 之後 , 就可以畫垂直於所選取直線的 直線 了 !

(defun c:perpdon (/ a b pnt1 pnt2 angl)

(graphscr)

(setq a (entsel))

(setq b (entget (car a)))

(setq pnt1 (cdr (assoc 10 b)))

(setq pnt2 (cdr (assoc 11 b)))

(setq angl (angle pnt1 pnt2))

(setvar "snapang" angl)

(princ)

)

(defun c:perpdoff ( )

(setvar "snapang" 0)

(princ)

)

*** 這個範例有點怪怪的 , 應用的方式很特別 ; 不過 , 用幾行指令就可以設定 Auto CAD 系統變數的作法 , 是值得學學的 . ***

---