;=================示坡線繪制函數======================

(defun

nys_spx (/??? changbian1 changbian2 changdu1?? changdu2

changdu3

ang1???????ang2? changbian2_x

changbian2_y???????d1? d2?????d3

d4

d5???????d6? d7?????d8

)

(setq osnapp (getvar

"osmode"))

(command "osmode" "137")

(setq changbian1 (getpoint

"在坡底側選取長邊第一點:"))

(setq changbian2 (getpoint changbian1

"在坡頂線上選取垂足點:"))

(setq changdu1 (distance changbian1

changbian2))

(command "osmode" "0")

(setq ang1 (angle changbian2

changbian1))

(setq changbian2_x (car changbian2))

(setq changbian2_y

(cadr changbian2))

(setq ang2 (- ang1 1.5707963))

(setq ang3 (+ ang1

1.5707963))

(setq changdu2 (/ changdu1 4))

(setq changdu3 (/ changdu1

2))

(setq d1 (polar changbian2 ang3 (* changdu2 1)))

(setq d3 (polar

changbian2 ang3 (* changdu2 2)))

(setq d5 (polar changbian2 ang2 (*

changdu2 1)))

(setq d7 (polar changbian2 ang2 (* changdu2 2)))

(setq

d2 (polar d1 ang1 changdu3))

(setq d4 (polar d3 ang1 changdu1))

(setq

d6 (polar d5 ang1 changdu3))

(setq d8 (polar d7 ang1

changdu1))

(command "line" changbian1 changbian2 "")

(command "line"

d1 d2 "")

(command "line" d3 d4 "")

(command "line" d5 d6

"")

(command "line" d7 d8 "")

(command "osmode"

osnapp)

(princ)

)’

總結

以上是生活随笔為你收集整理的cad lisp 示坡线_AutoCAD命令－画示坡线的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。