等分布板

zml84

等分布板.lsp

---

;;;============================================================================
;;;功能：等分布板，绘制板中心线
;;;日期：zml84 于 2010-12-18
(defun c:tt ()
  (princ "\n功能：等分布板，绘制板中心线")
  (if (and
	(setq n (getint "\n等分数量: "))
	(> n 1)
        ;;
	(setq pt10 (getpoint "\n第一点: "))
	(setq pt11 (getpoint pt10 "第二点: "))
        (progn(princ ">>长度=")(princ (distance pt10 pt11))(grdraw pt10 pt11 1)t)
        ;;
	(setq pt20 (getpoint "\n第三点: "))
	(setq pt21 (getpoint pt20 "第四点: "))
        (progn(princ ">>长度=")(princ (distance pt20 pt21))(grdraw pt20 pt21 1 )t)
      )
    (progn
      (setq ang1  (angle pt10 pt11)
	    dist1 (distance pt10 pt11)
	    dist1 (/ dist1 1.0 n)
	    ang2  (angle pt20 pt21)
	    dist2 (distance pt20 pt21)
	    dist2 (/ dist2 1.0 n)
      )
      

crazylsp

谢谢你写的基础程序,扩展后对我工作很实用