绘制垂直对齐IP
亲爱的大家；Lisp在autocad中绘制（如图所示），从文本文件中采集数据，如图所示
谢谢
湿婆
你有两个元素绘制一条坡度线和一条竖曲线，如果有一个lisp，那么在第一次输入时就很容易了。读取文件需要做更多的工作。您只需要两个函数。C： C级：VC有更多类似于水平和垂直比例的元素。
ymg3抛物线
lisps等级 谢谢hanhphuc 这里有一个绘制垂直对齐的简单概念，但请记住，ACAD圆弧几何体不等于垂直对齐抛物线。
1.用户只需基于xy坐标绘制路线（多段线），即：VIP CH=X&VIP Level=Y格式“xy.csv”
2、调用命令VC
3、拾取VC LWPolyline
4、提示用户输入每个VIP VCL（竖曲线长度）
仅用于测试，无错误处理&不适用于UCS等。。
（定义c:VC（/o en g m ip vcl n c z l n）；hanhphuc 09.12.2016的竖曲线示例（setq o（getvar‘osmode））（setvar‘osmode 0）（if（and（setq en（car（entsel）’\nPick Polyline…））（=（cdr（assoc 0（entget en）））“LWPOLYLINE”）（setq l（mapcar'cdr（vl remove if“”）（（x）（/=（car x）10））（entget en）））（>=（setq c（length l））3））（progn（setq vcl（while（not vcl）（setq n 0）（重复c（if（progn（initget 7））（setq a（getdist（strcat）#“（itoa（setq n（1+n））））“vcl”）））））（setq vcl（setq cons a vcl）（vl sort l’’（（a b）（
页:
[1]