链线型

Bill Tillman · 发表于 2022-7-6 23:25:34

我从来没有真正研究过这一点，但有谁知道有一种方法或LISP代码可以让我输入两个点，并在它们之间有一个看起来像链的弧。我希望这条线有一个轻微的悬链线曲线。我试着用一些块来做这个，但它变得很复杂。然后有人建议创建一个新的线型来处理它？？？我以前没有使用过新的线型，但我想现在是开始的好时机。

SLW210 · 发表于 2022-7-6 23:41:23

你有没有一个你想要的链子外观的例子？

什么类型的链条？滚筒、工程、提升等。？

周围有一些用于链的线型，我有一些用于提升类型的链接链，我不久前从某处获得，很容易用形状文件创建。

lrm · 发表于 2022-7-6 23:49:33

我知道这并不能直接回答你关于制作链条的问题，但它可能有助于纠正电缆下垂。

在Autodesk 3ds Max论坛上的帖子中，我一直在研究悬链线（摆线）曲线数学。数学很有趣，但并不总是表现良好。我创建了随附的Excel文件，以确定给定电缆长度和电缆悬挂杆之间的距离的电缆跨中垂度。该解决方案需要使用Excel的数值求解器。

要使用Excel文件，请在单元格B5中输入电缆长度、单元格B7中极点之间的距离和单元格B9中解决方案的初始猜测（1通常可以）。

然后进入目标搜索（数据、假设分析、目标搜索…）并设定通过改变细胞B9使细胞B13=0的目标。

登录/注册后可看大图

单击“确定”，将在单元格B6中计算跨中电缆垂度。

在本例中，如果两极相距6’，则10’长的电缆的弧垂为3.6’。

登录/注册后可看大图

电缆垂度。xls公司
~李

eldon · 发表于 2022-7-7 00:00:19

这些线使用Jeffrey P Sanders提供的命令度量和两个块制作。

steven-g · 发表于 2022-7-7 00:05:43

+1
将块链接在一起的好主意（双关语）我经常使用这种方法处理块，实际上从未想过多次使用measure命令来创建更复杂的设计。我相信我很快就会用这个。

dtkell · 发表于 2022-7-7 00:23:36

我在几年前发现了它，并认为如果我需要使用它，它会派上用场。但这并没有发生。（直到我在这里分享！）
我希望你能使用它，它做你想做的事。您只需提供自己的链线型或其他地方提供的链接块方法。

[code]；名称：接触网。lsp；项目：一般；目的：绘制悬链线函数图；ACAD版本：AutoLISP for AutoCAD；版本：2001年4月24日；作者：Hector Monroy，土木工程硕士，计算机与系统工程硕士。；hmonroy@ieee.org;-------------------------------------------------------------------------;功能：c：接触网；目标：图形接触网功能；参数：无；全局变量：；global_xv；global_yv；global_c；返回：nil（defun c：悬链线（/t0 p pnt1 pnt2 x1 x2 y1 h l alpha v f）（setq t0（getreal“\n电缆中的长度：”）（setq p（getreal“\n电缆单位长度的电缆重量：”）（setq pnt1（getpoint“\n初始点：”）（setq pnt2（getpoint pnt1“\n初始点：”）（setq x1（汽车pnt1））（setq x2（汽车pnt2））（setq y1（cadr pnt1））（setq y2（cadr pnt2））（setq h（-y1 y2））（setq global_c（/t0 p））（setq L（-x2 x1））（setq alpha（/h（*2 global\u c（sinh（/L（*2 global\u c）а））（setq v（+（/L 2）（*global\u c（arcinh alpha）））（setq f（*global\u c（-cosh（/v global\u c））1））（setq global\u xv（+x1 v））（setq global\u yv（-y1 f））（printpntlst（graphx’（+（*global\u c（-cosh（/（-x global\u xv））global_c））1）全局_yv）x1 x2 1.0））；endDefun；--------------------------------------------------------------------------------；--------------------------------------------------------------------------------；功能：cosh；目的：双曲余弦；参数：角度（弧度）；返回：实数（defun cosh（角度/角度）（/（+（exp角度）（exp（*角度-1）））2））；endDefun；--------------------------------------------------------------------------------；--------------------------------------------------------------------------------；功能：sinh；目的：双曲正弦；参数：角度（弧度）；返回：实数（defun sinh（角度/角度）（/（（exp角度）（exp（*角度-1）））2））；endDefun；--------------------------------------------------------------------------------；--------------------------------------------------------------------------------；功能：arcsinh；目标：圆弧双曲正弦；参数：实数；返回：实数（defun arcinh（角度/角度）（对数（+（sqrt（+（*角度）1））角度））；endDefun；--------------------------------------------------------------------------------；--------------------------------------------------------------------------------；功能：GraphFx；目标：F[x]=y型图函数；平面XY[Z=0]；参数：函数fltStart fltEnd fltStep；功能：未评估列表；使用前缀数学符号[AutoLisp]；x是变量；示例'（+（*2 x x）x 3）；fltStart：浮点[实]变量；第一个x值；fltEnd：浮点[实]变量；最后一个x值；fltStep：浮点[实]变量；增加x变量；警告：不识别不确定性；RETURN：列表类型[[fltstart y][x y][x y]。。。[fltEnd y]]和所有评估点（defun GraphFx（函数fltStart fltEnd fltStep/函数fltStart fltEnd fltStep x y lstPoints）（setq lisPoints nil）（如果（

Bill Tillman · 发表于 2022-7-7 00:28:18

我在Cadalyst上找到了一个非常好的LISP。但不幸的是，它是DCL，每个人都知道我的项目是完全自动化的。虽然我从中得到了一些好的想法，但我很快就会有更多的想法。

[综合讨论] 链线型

发表回复

精选推荐