Xin Lisp Về Vẽ Hình Chữ Nhật (Hoặc Hình Tròn, Vuông...) Có Hộp Thoại

[quangnguyen013 0]

Xin chào Ban Quản Trị và các bạn!

 

 

Mình đang cần 1 lisp cad vẽ hình chữ nhật (hoặc hình nào cũng được) có hộp thoại . Tuy mình đã đọc một số lisp nhưng không hiểu. Mong các bạn giúp đỡ.

 

Xin cám ơn Ban Quản Trị và các bạn.

 

 

[cuongtk2 356]

Đây là ví dụ một lệnh vẽ hình chữ nhật với 2 ô nhập liệu L1, L2; 2 nút accept và cancel.
 

(defun c:hcn1 ( )
  (setq dcl_id (load_dialog "hcn.dcl"))
  
  (if (not (new_dialog "HCN" dcl_id))
    (exit))
  ;; cac hang tren de nap file dcl
   
  (set_tile "L1" "2000")
  (set_tile "L2" "1000")
  ;; dat gia tri mac dinh cho L1, L2 khi hop thoai xua hien
  
  (action_tile "L2" "(mode_tile \"accept\" 2)")
  ;; khi enter tai o nay, con tro se nhay ve nut "accept" va ban co the enter de ket thuc.
 
  (action_tile "cancel" "(done_dialog)")
  (action_tile "accept" "(progn (setq l1 (get_tile \"L1\") l2 (get_tile \"L2\"))(done_dialog))")
  ;;; action_tile di kem voi ham duoc dat trong dau nhay doi "(ham)"
  ;; done_dialog la ham dong hop thoai
  ;; khi ban nhan nut "cancel" hop thoai se dong
  ;; khi ban nhan nut "accept" se lay cac gia tri L1, L2 bang bien l1, l2 roi dong hop thoai
  ;; ban chi duoc lay cac gia tri cua cac tile ma khong the thuc hien cac lenh cad truoc khi dong hop thoai
   
   (start_dialog)
  (unload_dialog dcl_id)
;; thoat hop thoai ra khoi bo nho
   
  (setq p1 (getpoint "\nDiem dat:"))
  (setq l1 (atof l1)
l2 (atof l2)
p2 (polar p1 0 l1)
p2 (polar p2 (* pi 0.5) l2))
  (command "rectang" p1 p2)
 
  )

 

 

 

 

[cuongtk2 356]

file hcn.dcl có nội dung như sau :

 

 

dcl_settings : default_dcl_settings { audit_level = 3; }
HCN : dialog {
        label = "Hinh chu nhat";
: column {
      : edit_box { label = "Chieu dai";  key = "L1";  width = 20;  }
     : edit_box { label = "Chieu cao";  key = "L2";  width = 20;  }
      : row {
      : button {
        label = "Pick";
        key = "accept";
        width = 8;
        fixed_width = true;
        }
       : button {
         label = "Cancel";
         is_cancel = true;
         key = "cancel";
         width = 8;
         fixed_width = true;
       }     
     }
    }
    }

Chỉnh sửa Tháng 8 23, 2017 theo ketxu
K hiện DCL code

[cuongtk2 356]

Bạn xem dcl trong tin nhắn nhé. Không upload được, dán vào thì như trên.

[ketxu 2.984]

Bạn xem dcl trong tin nhắn nhé. Không upload được, dán vào thì như trên.

Ketxu đã sửa lại bên trên

[quangnguyen013 0]

Cám ơn Ban Quản Trị và các bạn.