a3纸(lisp语言构建)

(defun c:pjlj()

(command "ltscale" 5 "")

(command "limits" "0,0" "420,297")

(command "zoom" "all")

(command "osnap" "off")

(command "lwdisplay" 1)

(setq d (getreal"\nÈ·¶¨Öᾶ¹«³ÆÖ±¾¶d:"))

(setq b (getreal"\nƽ¼ü¿í¶Èb:"))

(setq h (getreal"\nÈ·¶¨Æ½¼üÉî¶Èh:"))

(setq t0 (getreal"\nÈ·¶¨Æ½¼üÖáÉît0:"))

(setq t1 (getreal"\nÈ·¶¨¼ü²ÛÂÖì±Éî¶Èt1:"))

(setq L (getreal"\nÈ·¶¨Æ½¼ü³¤¶ÈL:"))

(setq a1 (getstring"\nÈ·¶¨±ÈÀýÒò×Ó×Ö·û´®a1:"))

(setq k1 (getreal"\nÈ·¶¨±ÈÀýÒò×Ók1:"))

(setq r (* 0.5 d))

(command "limits" "0,0" "420,297")

;A3ͼ¿ò²ã

(command "layer" "m" "sx" "on" "sx" "c" 7 "sx" "lw" 0.4 "sx" "")£» (command "line" "0,0" "420,0" "")

(command "line" "420,0" "420,297" "")

(command "line" "420,297" "0,297" "")

(command "line" "0,297" "0,0" "")

;A3Îı¾»æÖƱí¸ñ²ã

(command "layer" "m" "sx1" "on" "sx1" "c" 7 "sx1" "lw" 0.2 "sx1" "")£» (command "line" "240,56" "240,0" "")

(command "line" "240,56" "420,56" "")

(command "line" "420,56" "420,0" "")

(command "line" "420,0" "240,0" "")

(command "line" "320,56" "320,0" "")

(command "line" "370,56" "370,0" "")

(command "line" "420,38" "370,38" "")

(command "line" "240,28" "370,28" "")

(command "line" "320,18" "420,18" "")

(command "line" "252,0" "252,28" "")

(command "line" "264,0" "264,21" "")

(command "line" "275,0" "275,28" "")

(command "line" "292,0" "292,56" "")

(command "line" "304,0" "304,56" "")

(command "line" "250,56" "250,28" "")

(command "line" "260,56" "260,28" "")

(command "line" "276,56" "276,28" "")