也发一个画示坡线的lsp【源码】

天天问

做土木工程设计难免遇到画示坡线。

示坡线沿直线画的时候，也可以用动态块来解决，但遇到沿曲线画示坡线就不行了。
刚好前几天看见论坛里大神奉献了一份源码，也下载使用了，好用是好用，但是对于我来说，不够个性化，于是自己动手也写了一个。

我这个示坡线有2种画法，分为2个命令执行：
一是沿曲线画，所有的示坡线方向与曲线垂直。
二是沿曲线画，但所有的示坡线方向保持一致（互相平行），方向由用户指定。



两种画法都支持在指定的曲线段绘制示坡线（起点和终点需要用户指定）。

song宋_74729

czb203 发表于 2022-8-14 10:28
类似这样的，能够延伸到坡脚的线

画示坡线，短线长可默认，画在那一侧按光标位置

(defun c:spx ( / str ob p1 p2 p3 fx)

(while(setq ob(entsel “\n选择线:”))

(setq p1(cadr ob) ob(car ob))

(if(wcmatch (cdr(assoc 0(entget ob)))”*POLYLINE,LINE,SPLINE,CIRCLE,ARC,ELLIPSE”)

(progn

(setq ob(vlax-ename->vla-object ob))

(setq p1(vlax-curve-getclosestpointto ob p1))

(princ “\n光标位为示坡线方向”)

(setq str “\n指定短线长”)

(if spxdist (setq str(strcat str “<“(rtos spxdist) “>:”)))

(while(cond

((and (setq p3(getpoint p1 str))(> (setq d(distance p1 p3))0))

(setq spxdist d)nil

)

(spxdist(setq p3(polar p1(angle p1(cadr(grread ‘(2 13)))) spxdist))nil)

;获取当前光标坐标(cadr(grread ‘(2 13)))或(cadr(grread T 15 0))

(t)

));可使用默认短线长度spxdist

(setq p2(vlax-curve-getPointAtDist ob (+ spxdist(vlax-curve-getDistAtPoint ob p1))))

(setq fx(- (angle p2 p3)(angle p1 p2)))

(shipoxian ob spxdist (not(or(and(< fx 0)(> fx (- 0 pi)))(> fx pi))))

)

)

)

)

天天问

czb203 发表于 2022-8-14 10:28
类似这样的，能够延伸到坡脚的线

这种样式的示坡线我倒是用不着，你可以自己在源码的基础上改改，就能实现了。不过看CASS的这种示坡线，出现了交叉的时候要截断，情况比我发的这个要复杂多了。

skg123

czb203 发表于 2022-8-12 10:00
大佬，你也弄个呗 ，我记得你也高手啊！

这个功能我之前没有想过，你编好了学习一下，

ynhh

2个币太贵了哈

czb203

挺需要的，就是有点贵啊，2个币啊～

czb203

大佬，你能不能搞个像cass那样的示坡线呀

完整武器

好东西 就是太贵了

skg123

经过了测试，程序可以使用，感谢分享

czb203

skg123 发表于 2022-8-11 19:31
经过了测试，程序可以使用，感谢分享

大佬，你也弄个呗 ，我记得你也高手啊！

天天问

czb203 发表于 2022-8-11 09:45
大佬，你能不能搞个像cass那样的示坡线呀

cass的示坡线是什么样子的？

czb203

天天问 发表于 2022-8-14 08:35
cass的示坡线是什么样子的？

类似这样的，能够延伸到坡脚的线