有没有可以让用户加入长款比例参数的函数代替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？
...画出的矩形比例固定...
即斜率固定==定角长度线
也可用单位 图块 放大来模拟
也可用 Grread 转化...
页:
[1]