cad lisp 示坡线_AutoCAD命令－画示坡线

;=================示坡线绘制函数======================

(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 chan