[求助]：帮忙编一个求两点间坡度的lisp程序

kfxz · 发表于 2009-6-26 12:45:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各位大侠，帮忙遍一个求两点间坡度的lisp程序：
捕捉A、B两点，通过两点的坐标求出两点的坡度（%），并在AB两点之间标注出来，谢谢
期待中……

gysjy · 发表于 2009-6-27 08:54:41

下面的程序可以标注坡度。字高为350，捕捉为端点捕捉。
[PHP](defun c:nn( / a a1 d dx dy i os p1 p2 pmid str stri)
  (princ "\n欢迎使用坡度标注程序！  gysjy 2009.6.27. ")
  (command "undo" "g")
  (setq os (getvar "osmode"))
  (setvar "osmode" 1)
  (setq p1 (getpoint "\n第一点：")
      p2 (getpoint "\n第二点：" p1)
      a (angle p1 p2)
      d (/ (distance p1 p2) 2)
      pmid (polar p1 a d)
      a (if (and (> a 1.571)(< a 4.713))(- a pi) a)
      a1 (+ 1.57 a) pmid (polar pmid a1 300)
      a (* a 57.3)
      dx (- (car p1) (car p2))
      dy (- (cadr p1) (cadr p2))
      i (if (= dx 0) 10000 (* 100 (abs (/ dy dx))))
      stri (rtos i 2 1)
      str (if (= dx 0) "垂直" (strcat "i=" stri "%"))
  )
  (setvar "osmode" os)
  (grdraw p1 p2 2)
  (command "text" "j" "m" pmid "350" a str)
  (command "undo" "e")
  (princ)
)[/PHP]

ljttjl · 发表于 2009-6-29 20:46:46

两点间坡度标注程序。

使用方法：下载xl.vlx，放在d:根目录，打开要进行统计的图形，在命令行输入(load "d:/xl.vlx") 回车，加载成功后，在命令行输入 xl 回车，按提示操作即可。

TIANJIE · 发表于 2009-7-4 18:49:21

高手啊
学习中

kfxz · 发表于 2009-12-9 11:00:14

非常感谢，向高手学习

chenyizhen28 · 发表于 2009-12-23 16:35:40

又学到了新东西了。。。。。。。

山下一匹夫 · 发表于 2020-6-5 13:14:31

ljttjl 发表于 2009-6-29 20:46
两点间坡度标注程序。

使用方法：下载xl.vlx，放在d:根目录，打开要进行统计的图形，在命令行输入(load ...

6666666666666666666666666666666666

hphkjz · 发表于 2023-4-11 09:14:47

gysjy 发表于 2009-6-27 08:54
下面的程序可以标注坡度。字高为350，捕捉为端点捕捉。
(defun c:nn( / a a1 d dx dy i os p1 p2 pmid str ...

如何保留一位小数？

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：帮忙编一个求两点间坡度的lisp程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评