(defun c:cvcv()
(setq bili (getreal "\n出图比例 (默认100):"))
(if (= nil bili) (setq bili 100))
(SETq PT1 (GETPOINT "\n输入右下角的点"))
(setq a (car pt1))
(setq b (cadr pt1))
(setq c (caddr pt1))
(setq pt1 (list a b c))
(setq pt2 (list (- a (* bili 10)) (+ b (* bili 10)) c))
(setq pt3 (list (- a (* bili 569)) (+ b (* bili 410)) c))
(setq pt4 (list (- a (* bili 594)) (+ b (* bili 420)) c))
(command "RECTANG" "w" "0.0" pt1 pt4)
(command "RECTANG" "w" "50.0" pt2 pt3)
(princ)
)
全部回复（5 ）
只看楼主 我来说两句-
xshrimp
沙发
一开始加
2006-09-09 20:03:09
赞同0
-
水的畅想
板凳
(defun c:cvcv()
2006-09-08 09:45:08
赞同0
加载更多(setvar "OSMODE" 0)
回复 举报
(setq bili (getreal "\n出图比例 (默认100):"))
(if (= nil bili) (setq bili 100))
(SETq PT1 (GETPOINT "\n输入右下角的点"))
(setq a (car pt1))
(setq b (cadr pt1))
(setq c (caddr pt1))
(setq pt1 (list a b c))
(setq pt2 (list (- a (* bili 10)) (+ b (* bili 10)) c))
(setq pt3 (list (- a (* bili 569)) (+ b (* bili 410)) c))
(setq pt4 (list (- a (* bili 594)) (+ b (* bili 420)) c))
(command "RECTANG" "w" "0.0" pt1 pt4)
(command "RECTANG" "w" "50.0" pt2 pt3)
(princ)
)
看看我到底 错在什么地方了
回复 举报