绘制垂直对齐IP

sivapathasunder · 发表于 2022-7-5 16:53:18

亲爱的大家；

Lisp在autocad中绘制（如图所示），从文本文件中采集数据，如图所示

谢谢
湿婆

BIGAL · 发表于 2022-7-5 17:10:16

你有两个元素绘制一条坡度线和一条竖曲线，如果有一个lisp，那么在第一次输入时就很容易了。读取文件需要做更多的工作。您只需要两个函数。C： C级：VC有更多类似于水平和垂直比例的元素。

hanhphuc · 发表于 2022-7-5 17:26:05

ymg3抛物线
lisps等级

BIGAL · 发表于 2022-7-5 17:49:35

谢谢hanhphuc

hanhphuc · 发表于 2022-7-5 17:56:10

这里有一个绘制垂直对齐的简单概念，但请记住，ACAD圆弧几何体不等于垂直对齐抛物线。

1.用户只需基于xy坐标绘制路线（多段线），即：VIP CH=X&VIP Level=Y格式“xy.csv”
2、调用命令VC
3、拾取VC LWPolyline
4、提示用户输入每个VIP VCL（竖曲线长度）

仅用于测试，无错误处理&不适用于UCS等。。
[code]（定义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）（

[编程交流] 绘制垂直对齐IP

发表回复

精选推荐