这个代码那里错了......

kwok · 发表于 2012-5-12 23:13:53

本帖最后由 kwok 于 2012-5-15 10:36 编辑

这个代码那里错了?还有画出来不是整的,变成2部份了(看下面三楼的图),谁帮忙看看...

(defun C:jt()
(while (setq p1 (getpoint "\n箭头尖:")
      p2 (getpoint p1 "\n箭头端:")
      dd (distance p1 p2))
  (prompt (rtos dd 2 4))
  (setq w (* dd 1.2)
      an (angle p1 p2)
      p3 (polar p2 (+ an (* pi 0.5)) (/ w 5.0))
      p4 (polar p2 (+ an (* pi 1.5)) (/ w 5.0)))
  (progn
  (command "solid" p1 p3 p1 p4 ""
         "pline" p2 "w" (* w 0) (* w 0) (polar p2 an (getdist p2)) "")
)
)
  (princ)
)

zdqwy19 · 发表于 2012-5-13 21:10:33

研究一下窗口缩放函数。

kwok · 发表于 2012-5-13 23:12:24

本帖最后由 kwok 于 2012-5-15 09:43 编辑

图:

kwok · 发表于 2012-5-14 16:04:28

谁来帮忙看看上面的代码,怎么改进成整体,和不提示错误.

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

这个代码那里错了......

本帖子中包含更多资源