[已解決][問題]關於工程圖框的lisp上自動生成，以及聚合線的幾個問題

個人第一次在這個論壇上發文，請多多見諒了!

目前是autocad新手，也是auto lisp的初學者
想請教就是關於聚合線的Lisp程式，當一般在模型上畫線時，有開著鎖點參考線，只要滑鼠移動到上下左右四個方面，輸入數字，就會自動朝那個方向的水平或垂直生成100mm的線條

而我的問題是，我想要在lisp上自動升成一個矩形，並且有一定的線條寬度，我應該要怎麼寫比較好？

我有試過用polar 先畫出矩形每個點，然後再逐一描繪出矩形，但覺得太沒效率，如果我能直接告訴他方向以及長度應該更快。

再來還有一點問題是我想詢問關於文字的敘述，放置在圖框上的大小、排版、高度，這些要用lisp生成出來，我應該參考討論版上的哪篇文章比較好？
(不好意思第一次在這發文)


(使用polar點出相應的矩形點後，在描繪出矩形，會有正種轉角處沒有均勻的狀況出現)

程式碼：

代碼:

(defun c:A3(/ oldsnap);oldsnap為原先使用者的預設鎖點設定

(setq oldsnap (getvar "osmode")) ;(儲存目前的鎖點設定)
(setvar "osmode" 0);|修改鎖點設定|;
(setvar "DYNMODE" 1);|修改動態設定|;

(setq basepoint (getpoint "\n按一下設定左下角基準點"))
(setq p1 basepoint
      p2 (polar basepoint 0 400)
      p3 (polar p2 (/ pi 2) 277)
      p4 (polar p3 pi 400)
      )
    
(command "pline" p1 p2 p3 p4 "")
    
  ;|恢復原有鎖點設定|;
(setvar "osmode" oldsnap)  
  )