[编程申请]：根据已知的pl线的长度，设置特定的高度，自动画出等高的矩形，矩形的

ngc

根据已知的pl线的长度，设置特定的高度，自动画出等高的矩形，矩形的宽就是pl线的长度。见图，希望哪位大哥帮忙给个lisp的代码，万分感谢，谢谢。

xyp1964

[php](defun c:tt ()
  (CMDLA0)
  (defun main-pro ()
    (setq e1  (entsel "\n多段线: ")
          s1  (car e1)
          ptn (xyp-get-Vertexs s1 3)
          ptn (cons (last ptn) ptn)
          p0  (getpoint (cadr e1) "\n基点")
          i   0
    )
    (while (and        (setq p1 (nth i ptn))
                (setq p2 (nth (setq i (1+ i)) ptn))
           )
      (setq p01        (polar p0 0 (distance p1 p2))
            p3        (xyp-get-Pt2XY p01 0 d1)
      )
      (xyp-rectang p0 p3)
      (setq p0 (polar p01 0 d2))
    )
  )
  (xyp-initSet '(d1 d2) '(1000. 100.))
  (setq        Ilst '(("d1" "高度" "real" "10")
               ("d2" "间隔" "real" "10")
               (nil nil "spacer;")
              )
  )
  (if (= (xyp-Dcl-Init Ilst "【等高矩形】" t) 1)
    (main-pro)
  )
  (CMDLA1)
)[/php]

ngc

万分感谢，看了你的说明了，已经解决，谢谢