也发一个画示坡线的lsp【源码】
本帖最后由 天天问 于 2022-8-10 22:35 编辑做土木工程设计难免遇到画示坡线。
示坡线沿直线画的时候，也可以用动态块来解决，但遇到沿曲线画示坡线就不行了。
刚好前几天看见论坛里大神奉献了一份源码，也下载使用了，好用是好用，但是对于我来说，不够个性化，于是自己动手也写了一个。
我这个示坡线有2种画法，分为2个命令执行：
一是沿曲线画，所有的示坡线方向与曲线垂直。
二是沿曲线画，但所有的示坡线方向保持一致（互相平行），方向由用户指定。
两种画法都支持在指定的曲线段绘制示坡线（起点和终点需要用户指定）。
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的这种示坡线，出现了交叉的时候要截断，情况比我发的这个要复杂多了。 czb203 发表于 2022-8-12 10:00
大佬，你也弄个呗 ，我记得你也高手啊！
这个功能我之前没有想过，你编好了学习一下， 2个币太贵了哈 挺需要的，就是有点贵啊，2个币啊～ 大佬，你能不能搞个像cass那样的示坡线呀 好东西 就是太贵了:lol 经过了测试，程序可以使用，感谢分享 skg123 发表于 2022-8-11 19:31
经过了测试，程序可以使用，感谢分享
大佬，你也弄个呗 ，我记得你也高手啊！ czb203 发表于 2022-8-11 09:45
大佬，你能不能搞个像cass那样的示坡线呀
cass的示坡线是什么样子的？ 天天问 发表于 2022-8-14 08:35
cass的示坡线是什么样子的？
类似这样的，能够延伸到坡脚的线
页:
[1]
2