请问个位大哥。这条弧该怎么确定

小虫peter

我要绘制一个“L”型剖面梁，有一条弧我不知道该怎么确定，该在哪里加上去，
我写的代码是(defun C:fang()
  (setq Pto (getpoint "\请输入右顶点："))
  (setq l1 (getreal "请输入边长："))
  (setq l2 (getreal "请输入宽长："))
  (setq l3 (getreal "请输入半径："))
  (setq pt1 (polar pto -0 (/ l1 2)))
  (setq pt2 (polar pto -1.5708 l1))
  (setq pt3 (polar pt2 0 l2))
  (setq pt4 (polar pt3 1.5708 (/ l1 2)))
  (command "line" pto pt1 "")
  (command "line" pto pt2 "")
  (command "line" pt2 pt3 "")
  (command "line" pt3 pt4 "")
  (command "arc" pt1 pt4 l3 "")
)

janice

无能为力
有会的赶紧跟人家说说

meflying

注意命令arc的用法，不是你想输入什么就能输入什么的。
看看就知道ARC没有输入半径这样一种方法，而默认的也是输入3点，你输入两点加一个半径肯定是不行的。。。
你可以算出圆心坐标，然后根据圆心加两点的方式，或者算出另一点，采用三点输入的方式

BDYCAD

在圓弧的地方你的做法應為(command "arc" pt4 "e"pt1 "r" l3) 或者(command "arc" pt1"e"pt4 "r" l3), 但不明白你的程序的作用. 所以不便更改你的程序了. 另外你輸入的半徑如過小也會不行的

小虫peter

BDYCAD，我这个程序只是用来学习的，你提到半径过小是不行的，我注意到了，但该怎么改呢，现在圆弧是可以实现，但半径输入过小，还是没用的