有没有可以让用户加入长款比例参数的函数代替getcorner？

丹霞岭

(defun c:ct()
  (setq oldos(getvar "osmode"))
  (setvar "osmode" 0)
  ;画出图范围框
  (princ "选择出图范围:")
  (setq p1(getpoint "\n选择角点:"))
  (setq p3(getcorner p1 "\n选择对角点:"))
  (setq x1(car p1)
        y1(car (cdr p1))
        x3(car p3)
        y3(car (cdr p3))
        p2(list x3 y1)
        p4(list x1 y3)
  )
  (command "pline" p1 "w" 0.8 0.8 p2 p3 p4 "c")
  ;画信息表框
  ..............
)
      如何让画出的矩形大小由自己用鼠标定，但画出的矩形比例固定，例如长和宽固定比例为2:1，用鼠标选点的时候出现的矩形以这个比例显示出来。
     最好有现成的函数，不用后面再用程序加工。
    有没有可以让用户加入长宽比例参数的函数代替getcorner？

Andyhon

...画出的矩形比例固定...

即斜率固定==定角长度线
也可用单位 图块 放大来模拟
也可用 Grread 转化...