斜坡

fuccaro · 发表于 2022-7-6 12:21:40

这是我应新朋友的要求所做的回答。请求如下：http://cadtutor.net/forum/viewtopic.php?t=1145但我认为发布Lisp例程的正确位置是AutoLisp部分。


; draw a helical ramp
; [email="mfuccaro@hotmail.com"]mfuccaro@hotmail.com[/email]
;   february 2004
;
(defun c:ramp(/ cen r1 r2 seg ang hgh ceh a1)
 (setq cen (getpoint "\ncenter point ")
   r1 (getdist cen "\n inner radius ")
   r2 (getdist cen "\n outer radius ")
   seg (getint "\nsegments (max. 255) ")
   ang (/ (* 2 PI) seg)
   hgh (getdist "height (after 1 turn)? ")
   ceh cen    a1 0)
 (setq old (getvar "osmode"))
 (setvar "osmode" 0)
 (command "3dmesh" (1+ seg) 4)
 (repeat (1+ seg)
   (command (polar cen a1 r1)
        (polar ceh a1 r1)
        (polar ceh a1 r2)
        (polar cen a1 r2))
   (setq a1 (+ a1 ang)
     ceh (list (car cen) (cadr cen) (+ (caddr ceh) (/ hgh seg))))
   )
 (setvar "osmode" old)
)

Guest LUNCHBOX6 · 发表于 2022-7-6 12:26:35

是的，我确实希望它围绕一个圆柱体。我想，如果你要让它上升到多个楼层，你需要清真寺所具有的伸缩效果，但就我而言，圆柱体更合适，因为坡道不会自行倾斜。气缸使这更容易，对吗？

我不知道我是否做错了，或者是因为我使用的是autocad 2004，但我得到的结果看起来有点像中国的帽子，中心在上升/下降，斜坡在一个层面上保持平坦。此外，它相当薄，并且厚度没有随着斜坡向上移动而增加。最后，表格的中心有信息（质量），而我只寻找中间有庭院的坡道。

我很确定我输入的是正确的，我花了整整一个下午才得到这些结果，因为我一开始不熟悉命令/代码。我也不知道如何使用3d网格，甚至不知道控制这个物体构造的数学，所以我不能提供任何其他可能性。我只能问，也许有解决办法？

谢谢你对第一个问题的迅速回答。

艾琳http://alfatihoun.edaama.org/Fichiers/Iraq/Islam/web/images/Great%20Mosque%20Samarra%20Iraq%20847.jpg[/img]

fuccaro · 发表于 2022-7-6 12:30:58

登录/注册后可看大图

以下是在AutoCAD 2k4中运行上述lisp的结果-请参见绿色渐变。使用其他版本时，您应该会得到相同的结果。这不是你需要的吗？
我通过在内径输入0得到了一个填充的内部-黄色的斜坡。

登录/注册后可看大图

我理解错了吗？你能贴一张坡道的草图吗？
只是玩：我建造了3段和4段的坡道，下面是图片。

登录/注册后可看大图

hyposmurf · 发表于 2022-7-6 12:35:37

很酷的Fuccaro，我一直在摆弄它，得到了很多不同的结果。因此，您仅使用3/4段就获得了上述结果，是吗？

Guest LUNCHBOX6 · 发表于 2022-7-6 12:38:27

是的，就是这样。你认为我做错了什么？以下是我使用的维度：

14’内部
19’外部
9’上升
12段

我还要仔细检查一下代码，看看是否输入错了

Guest LUNCHBOX6 · 发表于 2022-7-6 12:43:01

我可以在这台电脑上复制并粘贴你的代码，现在它工作得很好，我一定是把它搞砸了。非常感谢，这太酷了！

我刚刚注意到2004年有一个三维多段线功能。你认为这可以用来产生同样的效果吗？当然，这会很耗时，而且程序也简单得多，但我只是好奇这些东西是如何工作的。

艾琳

Guest LUNCHBOX6 · 发表于 2022-7-6 12:46:41

有没有办法指定起点和终点？比如说在0度和270度？如果这是一条像大清真寺一样的圆锥形路径，那么程序会有什么不同？我还想知道更多的楼层，比如指定每个转弯的高度和转弯的数量。不过，这只是为了好玩和学习，我不想具体说明什么。

fuccaro · 发表于 2022-7-6 12:52:08

海波
基圆近似于具有“分段”边的多边形。对于上面的绿色坡道，我使用了40段。生成的表面足够光滑，满足当前需要。上限由AutoCAD设置；3DMESH在两个方向上的顶点不得超过256个。测试下限，我得到了3段和4段的图像。使用越来越多的线段，圆的近似效果会更好。
午餐B0X69
三维多段线已经存在很长时间了（R14？）。但使用多段线只能构造。。。（多边形）线，而不是表面。
可以在圆锥体上绘制渐变，也可以在两个指定角度之间休耕圆柱体。唯一需要的是重写lisp。

Joro-- · 发表于 2022-7-6 12:57:10

那么，如果我需要斜坡上升5个级别，每个级别都比前一个级别正确，那么可以做什么？我用“rulesurf”画了这个斜坡，但有没有办法把它变成实心的。我知道m2s。lsp，但使用它，我松开了所有级别的坡道波纹，最高，有没有办法把我的3D坡道变成固体？[/img]

patninde · 发表于 2022-7-6 12:58:07

您好，是否有一个lisp可以使同一个渐变跟随路径，就像在挤出中一样？我使用的是AutoCAD 2004，我在制作一个有点倾斜的3D曲线坡道/道路时遇到了问题。但我的斜坡不是一个完美的圆，我觉得更像是一个省略？

[编程交流] 斜坡

发表回复

精选推荐