[讨论]：看看你们都是怎么画坡度？

jerry_bj

除了做辅助线外，有更好的方法吗？
另外画与一点交角为a度的直线有好的方法吗？

zjy2004

通过该点画一水平线，然后RO  a度！！！（嘿嘿）
楼主：（另外画与一点交角为a度的直线有好的方法吗？ ）点和线相交没有角度！！！

jerry_bj

就没有想到用极轴追踪划任意角度？嘿嘿~

maplesu

但是坡度是tan值，怎么转换成角度呢！！
这个是我以前做的一个lisp现在我一直用这个画


[PHP]
;;;画指定坡度的直线
(defun c:pd()
  (setq pt (getpoint "起点： "))
  (setq gradient (getreal "坡度： "))
  (setq ll (getreal "水平长度： "))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt1 (polar pt 0 ll))
  (setq pt2 (polar pt1 (/ pi 2) (* ll gradient)))
  (command "line" pt pt2 "")
  (setvar "osmode" os)
  )
[/PHP]

cdhua001

我的笨办法（演示是1：1.5的坡度）

maplesu

画射线也是一个好办法！！

jerry_bj

两位斑竹果然精，不错 谢谢分享！！！！
看了cdhua斑竹的很多帖子 感觉你真是把CAD弄透了啊！

让时间冲淡一切

有一点我不明白，为什么用射线呢？
射线（ray）要两点才能确定，直接划线（l）也是需要两点。
但射线是无限延长的，超出了图框的范围；用L就没有这个问题
难道射线有别的优点？

qiankuncq

4楼楼主的好像是ctan，而不是tan？

maplesu

最初由 qiankuncq 发布
[B]4楼楼主的好像是ctan，而不是tan？ [/B]

我说的角度是和x轴正方向的角度。
难道tan不是对边比邻边吗？？
难道坡度不是y轴比x轴吗？？

qiankuncq

是对的。
但我想画1：n的坡，如何不用去算1：n的值，仅输入n这个分母。(工程习惯)
即如：先选一点，再输入坡度n＝1.5，再输入水平长度15，就画出来了一个1：1.5的坡。
能否修改一下程序，斑竹？

maplesu

好的改好了！！

[PHP]
;;;画指定坡度的直线
(defun c:pd()
  (setq pt (getpoint "起点： "))
  (setq gradient (getreal "N<1:N>： "))
  (setq ll (getreal "水平长度： "))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)  
  (setq pt1 (polar pt 0 ll))
  (setq pt2 (polar pt1 (/ pi 2) (/ ll gradient)))
  (command "line" pt pt2 "")
  (setvar "osmode" os)
  )
[/PHP]

qiankuncq

谢了，maplesu 斑竹！
我也想学LSP编点小程序，不知如何入手？能否告知？
.
.
.
.
maplesu 斑竹，我又试了一下那个程序，好像不对哦？？？？？？？？？

cdhua001

最初由 让时间冲淡一切 发布
[B]有一点我不明白，为什么用射线呢？
射线（ray）要两点才能确定，直接划线（l）也是需要两点。
但射线是无限延长的，超出了图框的范围；用L就没有这个问题
难道射线有别的优点？... [/B]

　　用直线画需要延长一次，用射线画需要剪切一次。这一点是一样的，但用直线画输入的（@1.5，1）这条线只有1.8长，在图上往往是很小一段看不清楚，用射线就不会看不清了。

maplesu

最初由 qiankuncq 发布
[B]谢了，斑竹！
我也想学LSP编点小程序，不知如何入手？能否告知？ [/B]

呵呵，这个当然需要找本书了！至于从什么地方下手就可以从你工作的时候需要的一些小工具了，比如上面的画坡度，那你可以编个你认为需要的。然后到晓东的vlisp版那边去交流一下了！提高会很快的。

哪里不对，我刚才没有试就发上去了！