a3纸(lisp语言构建)
发布时间:2021-06-07
发布时间:2021-06-07
(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" "")