[求助][1103]程序绘制此图形的方法?

vken7az2p

[1103]程序绘制此图形的方法?
请问该怎样才可以编写出以下两种图形
(1)由A点到B点一次完成绘出此图形呢?
(2)由A点出发经过自设的B点最后在C点会出此箭头?
希望能提供代码以便大家教学相长
烦请各位高手帮忙解答一下
感激不尽!

附图

vken7az2p

mkhsj928

对a）最原始的Lisp程序：

(defun m_zdx(m_data / m_oldosmode m_pt1 m_pt2 m_pt3 m_pt4 m_pt5 m_pt6 m_ang m_dist)
  ;;折断线
  
  (setq m_pt1 (getpoint "\nA点: "))(princ m_pt1)
  (setq m_pt2 (getpoint m_pt1 "\nB点: "))(princ m_pt2)

  (setq m_ang (angle m_pt1 m_pt2))
  (setq m_dist (distance m_pt1 m_pt2))

  (setq m_pt1 (polar m_pt1 (+ m_ang pi) 5)) 
  (setq m_pt2 (polar m_pt1 m_ang (+ (/ m_dist 2) 2.5)))
  (setq m_pt3 (polar m_pt2 (+ m_ang (/ pi 2)) 4))
  (setq m_pt4 (polar m_pt3 m_ang 5))
  (setq m_pt4 (polar m_pt4 (+ m_ang (* 3 (/ pi 2))) 8))
  (setq m_pt5 (polar m_pt4 (+ m_ang (/ pi 2)) 4))
  (setq m_pt6 (polar m_pt5 m_ang (+ (/ m_dist 2) 2.5)))

  (setq m_oldosmode (getvar "osmode"))
  (setvar "osmode" 16385)
  (command "pline" m_pt1 m_pt2 m_pt3 m_pt4 m_pt5 m_pt6)(command)
  (setvar "osmode" m_oldosmode)
  (princ)
)

很早写的，没按你的尺寸标注，只是方法而已

为什么一定要规定长度和角度？折断线看起来像就可以了

vken7az2p

谢谢您的回答

但还是看不太懂意思

不知道小弟这样的理解对吗

如果有错误的请更正

谢谢

 

  (setq m_ang (angle m_pt1 m_pt2))
;设m_ang 的 angle 角度为m_pt1 到 m_pt2
  (setq m_dist (distance m_pt1 m_pt2))
;设m_dist 的 distance 两点距离为m_pt1 到 m_pt2

  (setq m_pt1 (polar m_pt1 (+ m_ang pi) 5)) 
;新座标点为 m_pt1 角度 加 pi 的180度 在除 5

上面这行我就不太懂 为何会放一个5 在后面.

etq m_pt2 (polar m_pt1 m_ang (+ (/ m_dist 2) 2.5)))
;新座标点为 m_pt1 的角度为距离的一半再加上 2.5
  (setq m_pt3 (polar m_pt2 (+ m_ang (/ pi 2)) 4))
;新座标点为 m_pt2 的 90 度 在加 4

  (setq m_pt4 (polar m_pt3 m_ang 5))
;新座标点为 m_pt3 的角度 在加 5

上面这行我就不太懂 为何会放一个5 在后面.

  (setq m_pt4 (polar m_pt4 (+ m_ang (* 3 (/ pi 2))) 8))
;新座标点为 m_pt4 的 90 度 在 * 3 + 8

  (setq m_pt5 (polar m_pt4 (+ m_ang (/ pi 2)) 4))
;新座标点为 m_pt4 的 90 度 在 + 4

  (setq m_pt6 (polar m_pt5 m_ang (+ (/ m_dist 2) 2.5)))
;新座标点为 m_pt5 的角度为 距离除2 + 2.5