按标注比例画矩形的程序
(defun C:jx(/ pt1 pt2 dimlfac)(setq old_OS (getvar "OSMODE")) ;;保存系统变量设置
(setvar "OSMODE" 0) ; 关闭捕捉
(setq dimlfac (getvar "DIMLFAC"))
(setq pt1 (getpoint "\nFirst point:"))
(setq pt2 (getpoint pt1 "\nSecond point @") pt2 (mapcar '+ pt1 pt2))
(setq x (/(-(car pt2)(car pt1))dimlfac)
y (/(-(cadr pt2)(cadr pt1))dimlfac))
(setq pt2 (list (+ (car pt1)x)(+ (cadr pt1) y)))
(command "rectang" pt1 pt2 )
(setvar "OSMODE" old_OS);;恢复系统变量设置
(princ)(princ)
)
这是一个按标注比例画矩形的程序，请高手改为先定位矩形的中心点，然后输入矩形的长，高，再按标注比例画出矩形
页:
[1]