绘制样条曲线

aloy · 发表于 2022-7-5 16:16:32

嗨，Stefan，
是的，它按照比格尔的建议与列表的准备一起工作。
谢谢。
芦荟

aloy · 发表于 2022-7-5 16:18:51

比加尔，
谢谢你的建议。我把它和斯特凡给的结合起来，让它开始了。以下是使用的代码：
（defun测试样条（lst）
（setq lst（mapcar’（λ（a）（列表（car（cadr a））（cadr（cadr a）））lst））
（entmakex）
（附加
（列表
'（0。“样条”）
“（100.“AcDbEntity”）
“（100.“AcDbSpline”）
'(70 . 40)
'(71 . 3)
（cons 74（长度lst））
'（44.1.0e-005）
)
（mapcar’（λ（x）（cons 11 x））lst）
)
)
)

Grrr · 发表于 2022-7-5 16:20:37

芦荟，
没有理由使用lambda，因为Stefan的建议应该适用于您提供的样本列表：

aloy · 发表于 2022-7-5 16:23:52

嗨，比格尔，
谢谢你的建议。我使用了Stefan和你建议的方法来实现它。实际上，列表是在锡表面和对齐（水平和垂直）准备完成后自动准备的，必须手动完成。在不使用Civil 3D的情况下，根据速度、曲线半径等绘制了示意图（水平、垂直和超高）。当每件事都按照AASHTO绿皮书完成时，我将发布一张完整的图纸，给出路线、土方工程横截面。
（defun测试样条（lst）
（setq lst（mapcar’（λ（a）（列表（car（cadr a））（cadr（cadr a）））lst））
（entmakex）
（附加
（列表
'（0。“样条”）
“（100.“AcDbEntity”）
“（100.“AcDbSpline”）
'(70 . 40)
'(71 . 3)
（cons 74（长度lst））
'（44.1.0e-005）
)
（mapcar’（λ（x）（cons 11 x））lst）
)
)
)

很抱歉，我无法完成代码包装，因为它目前不工作。

当做
芦荟