坡度标注命令

xjh286865

这个是我自己写LISP编制的坡度标注命令。 从AUTOLISP中加载至启动项，就可以直接调用了。 说明：使用坡度标注命令前需建立一个文本样式并设定为当前，在文本样式中指定文本高度。 坡度标注时的文本就与设定的文本一致。

waly008

程序很好，就是水平线上两点不同标高不能求出来，

水仙的错

如果标注百分之多少和距离就好了

水仙的错

文字也太小了吧

xjh286865

程序没有传成功。我把源程序贴上来，复制保存为pb.lsp按上面用法就可以了

(defun c:pb()
(setq pt1 (getpoint "\n请选取第1点:"))
(setq pt2 (getpoint "\n请选取第2点:"))
(setq x1(car pt1))
(setq y1(cadr pt1))
(setq x2(car pt2))
(setq y2(cadr pt2))
(setq c(/ (abs(- x1 x2)) (abs(- y1 y2))))
(setq mx (/ (+ x1 x2) 2))
(setq my (/ (+ y1 y2) 2))
(setq mpt (list mx my))
(setq jd0(angle pt1 pt2))
(setq jd(* jd0 (/ 180 pi )))
(command "text" "J" "bc" Mpt  (if (< x1 x2) jd (+ jd 180))  c )
(setq text (entlast))
(setq text_data(entget text))
(setq oldtext(assoc 1 text_data))
(setq newtext(cons 1 (strcat "1:" (rtos c 2 2))))
(setq text_data(subst newtext oldtext text_data))
(entmod text_data)    
     )

xjh286865

我看过其他人编制的坡度标注插件，感觉不太好用，就自己动手编制了一个。希望和大家一起交流。

我们还可以把这个程序制作成按钮，这样就更方便了。

制作按钮应该会吧。呵呵

xjh286865

再把做好的传给大家，方便

xjh286865

我之所以编制成选取2点来确定坡度，而没有采取选取直线来标注，主要考虑可能会对多段线进行坡度标注。如果是做成选取直线就不能对多段线使用了

mccad

如果用选取，对多段线需要通过计算，按取点处找前后两个顶点及线段是否直线段来确定。

caoxinheng

程序很不做，就是文字位置离直线太远了，不知如何调整

yxh1202

能不能根据这个编写一个绘制任意坡度直线或多线段的代码，我想的是怎么获得活动鼠标的坐标呢

iAmethyst

好东西呢，感谢楼主啦