2个问题-xyz坐标

Tharwat · 发表于 2022-7-6 11:04:39

大家好，

1-有人能告诉我如何得到（C）的坐标的公式吗
点如所附照片所示。

2-以及如何获得垂直线长度的公式也如图所示
在所附照片中。

注意：如果公式是在Autolisp中给出的，那将更受欢迎。

非常感谢和问候，

萨尔瓦特

fuccaro · 发表于 2022-7-6 11:09:26

你忘了告诉我们B的坐标。
未测试代码：
（setq b（列表10 20 0））；在这里改变：把真正的坐标
（setq r 0.15）；radi
（setq角度（+90-45））；以度为单位
（setq角度（/（*角度PI）180.0））；以弧度为单位
（setq c（极性b角度r））

（setq角度（/（*45 pi）180.0））
（setq垂直下降（*r（-1（cos角）））

欢迎来到论坛！

Tharwat · 发表于 2022-7-6 11:15:57

非常感谢你Fuccaro先生，

这真是太好了，你真是太好了。

但是对于这个“（setq VertDrop（*r（-1（cos角度）））”，它也不受visual lisp和Autocad的影响，即（-1（cos角度））
我的意思是“-1”，它给了我一个错误的回复。

那么我该怎么做来代替（-1（cos角））

向你致以最良好的问候，

塔瓦特
专业AutoCAD绘图员

Tharwat · 发表于 2022-7-6 11:18:53

（defun c：软（/bb r aa ang 1 c）
（提示“\n这是绘制45度的圆弧……”
（setq bb（getpoint“\n指定弧的中心点：”）
（setq r（getdist“\n半径长度：”）
（setq aa（列表（汽车bb）
（+（cadr bb）r）））
(setq ang(升90 45))
（setq ang1（/（*ang PI）180.0））
（setq c（极bb ang1 r））
（命令“arc”aa“e”c“a”45）
（普林斯：“谢谢你，富卡罗先生，为你提供了宝贵的帮助”）
（普林斯）
)
这是完整的lisp文件，
致以最良好的问候，
塔瓦特

fuccaro · 发表于 2022-7-6 11:25:39

（setq VertDrop（*r（-1（cos角）））应为：
（setq VertDrop（*r（-1（cos角）））-减号后有一个空格。

（普林斯“很乐意帮忙！”）

fuccaro · 发表于 2022-7-6 11:27:05

一个小观察：尝试替换代码的第四行：（setq r（getdist“\n半径长度：”））
使用此行：（setq r（getdist“\n半径长度：“bb））

Tharwat · 发表于 2022-7-6 11:33:30

非常感谢fuccaro先生

太棒了。
并参考第二种选择；
（setq r（getdist“\n半径长度：”bb））这是“bb”，它也很聪明，例如，它是相同的；
（setq pt1（getpoint））
（setq pt2（getcorner pt1））

非常感谢你，

您真诚的
萨尔瓦特

专业AutoCAD绘图员

BIGAL · 发表于 2022-7-6 11:36:05

如果你需要更多的线-圆公式，一个很好的起点是测量大量模糊的弧-弧-线-弧组合。还可以查看上面使用的简单数学trig、sin-cos-tan等。

一个简单的是一个痛苦的双反向曲线知道长度和宽度知道1半径另一个是什么？在Autocad中，使用公式第一次输入corect radius，保持圆角直到接近。选项2 rad1=rad2，依此类推。4个公式。

MSasu · 发表于 2022-7-6 11:40:02

我认为这应该是：

copy

(setq r (getdist bb "\nLength of Radius :"))

当做

Tharwat · 发表于 2022-7-6 11:46:53

谢谢msasu先生。

除了我们的答案外，你的答案是正确的，或者实际上是fuccaro先生给出的答案。

所以试试吧，你会发现的。尽管你的想法是公开的。

谢谢分享你宝贵的想法

塔瓦特

[编程交流] 2个问题-xyz坐标

发表回复

精选推荐