求点3 在点1到点头的左边还是右边

Nico · 发表于 2011-8-30 08:29:50

本帖最后由 Nico 于 2011-8-30 08:32 编辑

(setq p1(getpoint "\n起点"))
(setq p2(getpoint p1 "\n端点"))
(setq p3(getpoint "\n位置点"))

pt3 为任意点
利用 pt3 来确定绘制矩形的方向

怎么用角度判断 ????

zhuangxu_521 · 发表于 2011-8-30 09:08:46

不清楚这个有什么用呀？

fansmax · 发表于 2011-8-30 11:59:59

(defun c:test ()
  (setq PA  (getpoint "\n 第一点：")
PB  (getpoint PA "\n 第二点：")
PC  (getpoint PB "\n 方向：")
an1 (angle PA PB)
an2 (angle PC PB)
an3 (abs (- an1 an2))
  )
  (if (< an1 an2)
(setq keyang (- (* pi 2) an3))
(setq keyang an3)
  )
  (if (< keyang pi)
(setq finalang (+ an1 (/ pi 2)))
(setq finalang (- an1 (/ pi 2)))
  )
  (setq pe (polar PA finalang 600)
pf (polar PB finalang 600)
  )
  (command "pline" PA PB pf pe "C")
  (prin1)
)

我把目前的第三点方向的长度设为600，我没有处理捕捉，你测试时注意关闭捕捉。
至于第三点的确定可以顺便把距离也确定下来，以增强应用范围，这个你自己再调整吧。

Nico · 发表于 2011-8-31 07:39:32

非常感谢！

Nico · 发表于 2011-9-25 14:47:52

本帖最后由 Nico 于 2011-9-25 14:49 编辑

感谢 fansmax

程序有点乱没整理

账号		自动登录	找回密码
密码			注册

求点3 在点1到点头的左边还是右边

本帖子中包含更多资源

本帖子中包含更多资源

求 点3 在 点1到点头 的左边 还是右边

本帖子中包含更多资源

本帖子中包含更多资源

求点3 在点1到点头的左边还是右边