[求助]给lisp生成的图形自动标注

jixiang0908

我想再这个基础上对绘出的图形加标注 怎么才能实现呢 请高手帮忙 谢谢

(defun c:dxsxl
        (/ O1 L T1 T2 B H P1 P2 P3 P4 P5 P6 P7 P8 N1 N2 N3 N4 N5 N6 N7 N8)
     ; L顶板宽，T1翼缘端部，T2翼缘根部，B挑臂长，H梁高
  (setq O1 (GETPOINT "选取插入点: "))
  (setq L (getreal "请输入顶板宽L:"))
  (setq T1 (getreal "请输入翼缘端部T1:"))
  (setq T2 (getreal "请输入翼缘根部T2:"))
  (setq B (getreal "请输入挑臂长B:"))
  (setq H (getreal "请输入梁高H:"))
  (setq N1 (- (CADR O1) T1))
  (setq N2 (+ (CAR O1) B))
  (setq N3 (- (CADR O1) T2))
  (setq N4 (- (CADR O1) H))
  (setq N5 (+ (- (CAR O1) B) L))
  (setq N6 (CADR O1))
  (setq N7 (+ (CAR O1) L))
  (setq N8 (CAR O1))
  (setq p1 (list N8 N6))
  (setq p2 (list N8 N1))
  (setq p3 (list N2 N3))
  (setq P4 (list N2 N4))
  (setq P5 (list N5 N4))
  (setq P6 (list N5 N3))
  (setq P7 (list N7 N1))
  (setq P8 (list N7 N6))
  (command "Pline" P1 p2 p3 p4 p5 p6 p7 p8 "c");绘制外轮廓
)

ZZXXQQ

首先要知道在何处标尺寸，再分别算出写尺寸文字的各点，然后调用ACAD的相应标注尺寸命令进行标注。