2个问题-xyz坐标
大家好，1-有人能告诉我如何得到（C）的坐标的公式吗
点如所附照片所示。
2-以及如何获得垂直线长度的公式也如图所示
在所附照片中。
注意：如果公式是在Autolisp中给出的，那将更受欢迎。
非常感谢和问候，
萨尔瓦特
你忘了告诉我们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角）））
欢迎来到论坛！ 非常感谢你Fuccaro先生，
这真是太好了，你真是太好了。
但是对于这个“（setq VertDrop（*r（-1（cos角度）））”，它也不受visual lisp和Autocad的影响，即（-1（cos角度））
我的意思是“-1”，它给了我一个错误的回复。
那么我该怎么做来代替（-1（cos角））
向你致以最良好的问候，
塔瓦特
专业AutoCAD绘图员 （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文件，
致以最良好的问候，
塔瓦特 （setq VertDrop（*r（-1（cos角）））应为：
（setq VertDrop（*r（-1（cos角）））-减号后有一个空格。
（普林斯“很乐意帮忙！”） 一个小观察：尝试替换代码的第四行：（setq r（getdist“\n半径长度：”））
使用此行：（setq r（getdist“\n半径长度：“bb）） 非常感谢fuccaro先生
太棒了。
并参考第二种选择；
（setq r（getdist“\n半径长度：”bb））这是“bb”，它也很聪明，例如，它是相同的；
（setq pt1（getpoint））
（setq pt2（getcorner pt1））
非常感谢你，
您真诚的
萨尔瓦特
专业AutoCAD绘图员 如果你需要更多的线-圆公式，一个很好的起点是测量大量模糊的弧-弧-线-弧组合。还可以查看上面使用的简单数学trig、sin-cos-tan等。
一个简单的是一个痛苦的双反向曲线知道长度和宽度知道1半径另一个是什么？在Autocad中，使用公式第一次输入corect radius，保持圆角直到接近。选项2 rad1=rad2，依此类推。4个公式。
我认为这应该是：
(setq r (getdist bb "\nLength of Radius :"))
当做 谢谢msasu先生。
除了我们的答案外，你的答案是正确的，或者实际上是fuccaro先生给出的答案。
所以试试吧，你会发现的。尽管你的想法是公开的。
谢谢分享你宝贵的想法
塔瓦特
页:
[1]
2