LISP AUTOCAD, LIP CAD, LISP IN ẤN HỖ TRỢ IN NHANH HÀNG TRĂM BẢN VẼ TRÊN MÔI TRƯỜNG LAYOUT _NOTEPAD (Mr Hiển 0971653821)

(defun c:in3() 
   (setq pt1 (getpoint "\nDiem goc trai khung in : "))
   (setq pt2 (getcorner pt1 "\nDiem goc phai khung in : "))
   (setq D (getdist "\nKhoang cach cac khung in : "))
   (setq n (getint "\nSo khung in : "))
   (setq i 0)
    (while (< i n) 
      (setq pt3 (polar pt1 0 (* i D)))
      (setq pt4 (polar pt2 0 (* i D)))
      (command "-plot" "y" "" "" "" "m" "l" "" "w" pt3 pt4 ""  "" "" "" "" "" "" "" "" "" "")
      ;;(command "-plot" "y" "" "\\VANLE\HP LaserJet 5100 Series PCL6" "ISO A3 (297.00 x 420.00 MM)" "m" "l" "" "w" pt3 pt4 "1:1" "c" "" "CTHEPA3.ctb" "" "" "" "" "" "" "")
      (setq i (+ i 1))
    );while
   (princ)
);defun