[原创]：坡度标注程序

gysjy · 发表于 2009-6-27 09:02:46

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

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

×

这是一个标注坡度的程序，捕捉一直线的两个端点后，即可自动标出该直线的坡度，提供给有这方面要求的朋友使用。程序中字高设为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]

paladi · 发表于 2009-8-21 01:10:24

挺不错的程序，可以直接标坡度，免得去算了，省事。谢谢。另外，想问下楼主，请问这个示意的动画视频是用什么做的啊？

gysjy · 发表于 2009-8-21 08:15:50

动画视频用ggg.exe做。该软件可到网上下载。

goat19790418 · 发表于 2009-8-21 14:11:37

hen hao

paladi · 发表于 2009-8-21 15:09:21

谢谢楼主，楼主，发现你的很多LISP的命令都是nn。关于这个LISP我想提点建议，就是如果能选择表示成1/N就更好了，有些时候需要用分数表示啊。

gysjy · 发表于 2009-8-21 21:43:26

最初由 paladi 发布
[B]谢谢楼主，楼主，发现你的很多LISP的命令都是nn。关于这个LISP我想提点建议，就是如果能选择表示成1/N就更好了，有些时候需要用分数表示啊。 [/B]

你可以改。将c:nn改成c:1/n即可。

paladi · 发表于 2009-8-22 00:42:37

哦，那这成了两个LISP了，能否在原LISP中加一个选择啊，就是可选百分比，也可选分数。

gysjy · 发表于 2009-8-22 09:10:42

最初由 paladi 发布
[B]哦，那这成了两个LISP了，能否在原LISP中加一个选择啊，就是可选百分比，也可选分数。 [/B]

[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 p (getpoint "\n标注为分数（鼠标左键）/百分比<回车>"))
  (while (setq p1 (getpoint "\n第一点："))
  (setq 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))
  )
  (if p
(setq i (if (= dy 0) 10000 (abs (/ dx dy)))
      stri (rtos i 2 1)
      str (if (= dy 0) "水平" (strcat "1/" stri))
      str (if (= dx 0) "垂直" str)
)
(setq i (if (= dx 0) 10000 (* 100 (abs (/ dy dx))))
      stri (rtos i 2 1)
      str (if (= dx 0) "垂直" (strcat "i=" stri "%"))
)
  )
  (setvar "osmode" 0)
  (grdraw p1 p2 2)
  (command "text" "j" "m" pmid "350" a str)
  (setvar "osmode" 1)
  )
  (setvar "osmode" os)
  (command "undo" "e")
  (princ)
)
[/PHP]

gysjy · 发表于 2009-8-22 10:13:37

如图。

paladi · 发表于 2009-8-22 14:26:37

哦，这下好用了，在设坡道的过程中可以方便地知道大概可以做的坡度了，谢谢楼主。

cuyongping · 发表于 2013-4-27 13:53:18

谢谢了！呵呵

zjsmlzp · 发表于 2013-9-15 07:07:40

当字高用2时，标注远离线段

lacmiu · 发表于 2016-7-30 15:41:49

请问怎么提高精度位数？
标出来是0.2%，能不能是0.25%精度

86029014@qq.com · 发表于 2018-12-22 18:43:04

想问问楼主，我用你的程序，出现了跟自己换算不一样的数值，怎么破，还是我用的不对？

wxn80 · 发表于 2019-1-10 10:13:00

谢谢楼主，请问这个插件可以修改成能设置标注精度的版本吗？

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

[原创]：坡度标注程序

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

相关帖子