Hi Eldon。很抱歉，回复太晚。你完全正确。我们必须从原始纸张尺寸中扣除20mm。。 可以调整上述代码以绘制内部矩形：
; Draw an ISO Format (08-VII-2012)
(defun c:DISOF( / listSize size poz border )
(if (and (not (initget "A4 A3 A2 A1 A0"))
(setq size (getkword "\nFormat : "))
(not (initget "Portrait Landscape"))
(setq poz(getkword "\nPozition : ")))
(progn
(setq listSize (nth (abs (- 4 (atoi (substr size 2))))
'((297.0 210.0) (420.0 297.0) (594.0 420.0) (841.0 594.0) (1189.0 841.0)))
border 20.0)
(if (= poz "Portrait") (setq listSize (reverse listSize)))
;;; outer rectangle
(command "_RECTANGLE" "_non" '(0.0 0.0)
"_non" listSize)
;;; inner rectangle
(command "_RECTANGLE" "_non" (list border border)
"_non" (list (- (carlistSize) border)
(- (cadr listSize) border)))
(command "_ZOOM" "_E")
)
)
(princ)
) 谢谢你，米尔恰。
我可以在我的自定义模板中使用它。
页:
1
[2]