画示坡线，效果不错
本帖最后由 wzg356 于 2022-7-9 18:16 编辑大多数的工作不需要另外加装很多线型
有时把图发出去，对方可能看不全
临时做个边坡设计，写了个画示坡线.lsp
说明及完整程序的见下载文件
主函数也方便改造成画其他线型---实际是线性阵列变种
;画示坡线，短线长可默认，画在那一侧按光标位置
(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))))
)
)
)
)
大佬，能不能加一个功能：在边坡开口线上画示坡线，示坡线垂直于坡底的马道。这样的示坡线都是以边坡开口线为起点，垂直于坡底马道，如果坡底马道是一条直线，那么所有的示坡线都互相平行，与开口线的形状无关。 VBALISPER 发表于 2022-7-12 08:52
谢谢分享。我也做地一个，代码有点长，一根一根画出来的。因为有时坡顶到坡底的距离不一样。线一会长一会短 ...
你可以用这个改，步距，起点至底坡交点为长短线的长 wzg356 发表于 2022-7-9 12:33
主函数也方便改造成画其他线型---实际是线性阵列变种
刚试了,效果非常好.楼主大大提供的源码,方便了需要的人修改.非常棒. 这个好玩,复制试试效果 tigcat 发表于 2022-7-9 12:28
这个好玩,复制试试效果
主函数也方便改造成画其他线型---实际是线性阵列变种 效果不错，试试看 是不是有BUG啊，多段线画的生成不了，输入短线长度后就没动静了
烟盒迷唇 发表于 2022-7-9 18:10
是不是有BUG啊，多段线画的生成不了，输入短线长度后就没动静了
简化更新有误，已改 大佬作品就是牛 比较冷门，但是很专业，:D:D 能实现点取坡顶 坡脚线 自动画就更好