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

谁来帮忙看看上面的代码,怎么改进成整体,和不提示错误.
页: [1]
查看完整版本: 这个代码那里错了......