1、选中矩形
2、读出矩形的角点坐标
3、计算矩形的边长
4、根据边长判断计算矩形窄边尺寸标注点
5、标注尺寸



(DEFUN C:DWR () ;Dimension Width Rectang
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(IF (SETQ S1 (ENTSEL "\nSelect a rectang :")) (PROGN
(SETQ ENT (ENTGET (CAR S1))
L (CDR (ASSOC 0 ENT)))
(IF (AND (= L "LWPOLYLINE") (= (CDR (ASSOC 90 ENT)) 4)) (PROGN
(SETQ P1 (CDR (ASSOC 10 ENT))
EN1 (CDR (MEMBER (ASSOC 10 ENT) ENT))
P2 (CDR (ASSOC 10 (CDR (MEMBER (ASSOC 10 EN1) EN1))))
X1 (MIN (CAR P1) (CAR P2))
X2 (MAX (CAR P1) (CAR P2))
Y1 (MIN (CADR P1) (CADR P2))
Y2 (MAX (CADR P1) (CADR P2))
PT1 (LIST X1 Y1 0)
PT2 (IF (> (- Y2 Y1) (- X2 X1)) (LIST X2 Y1 0) (LIST X1 Y2 0))
PT3 (IF (> (- Y2 Y1) (- X2 X1)) (LIST X1 (- Y1 9) 0) (LIST (- X1 9) Y1 0)))
(COMMAND "DIMLINEAR" PT1 PT2 PT3 "")
))
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)