[编程申请]：求已知坡度比绘坡道的lisp

szcoolcat

本人觉得在绘坡道剖面时，按坡道比绘图极为麻烦，能否有个高手编个这样的lisp程序，输入坡度比，如1:6等，水平长度就可自动生成一个该坡度的直线，特别是画车道、残疾坡道都很有用处。

xyp1964

[php];;;坡度、水平距离画线
(defun c:test (/ pt1 pt2 pt3)
  (setq        NO1 (@ureal 1 "" "\坡度1 : ?" NO1)
        NO2 (@ureal 1 "" "\水平距离" NO2)
  )
  (if (/= no1 0)
    (progn
      (setq pt1        (getpoint "\n起点 : ")
            pt2        (polar pt1 0 no2)
            pt3        (polar pt2 (/ pi 2) (/ no2 no1))
      )
      (command "line" pt1 pt3 "")
    )
  )
)
(defun @ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)[/php]

szcoolcat

我用了，很好用。真不知怎么感谢楼主，还有点改进的意见：
能否增加一个输入项：角度，提示性输入见下：
请输入坡度比（1：X）/角度：
请输入线段起点：
请输入水平投影的长度：

downhh

谢谢分享，要是能按百分比输入坡度就更好了