Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

Xin Lisp Mẫu Liên Kết Giữa Dcl Với Lisp


  • Please log in to reply
2 replies to this topic

#1 luu629

luu629

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 02 May 2017 - 08:45 PM

Em chào tất cả mọi người.

 

- Em đang tìm về tạo hộp thoại trong bằng DCL với lisp cad. Em có đọc một số tài liệu rồi mà vẫn chưa hiểu được cách liên kết giữa DCL với lisp ạ, em xin mạo muội nhờ các anh viết giúp em cái hộp thoại đơn giản nhất: vẽ hình vuông trong cad với ạ.

- Em cảm ơn.


  • 0

#2 quansla

quansla

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 662 Bài viết
Điểm đánh giá: 231 (khá)

Đã gửi 03 May 2017 - 02:13 PM

Trước thì mình học theo cuốn này, tương đối dễ hiểu, bạn xem thực hành, đối chiếu với các chương trình các bác khác xem nhé, chúc thành công

http://www.cadviet.c...sp_tutorial.pdf

 

Nói sơ qua thì như thế này: sách (cho ở trên) làm theo cổ điển, sách giáo khoa, từng bước từng bước; còn hiện tại thì mình dùng cấu trúc của Lee ( http://lee-mac.com/tutorials.html) Nói chung đều thực hiện các công việc sau

1. Load file DCL (file này phải được đặt trong thư mục Support của CAD: cú pháp lệnh (setq dcl_id (load_dialog "Tenfile.DCL"))

2. Giống như LISP trong một file *.LSP có thể có nhiều cú pháp câu lệnh Lisp, nhiều hàm khác nhau mà trong File DCL cũng có thể chứa nhiều cú pháp hộp thoại khác nhau, sau khi truy cập được vào đến file DCL, thì truy cập đến hộp thoại theo cú pháp (new_dialog "Ten_DCL" dcl_id): chạy load hộp thoại có tên TEN_DCL trong file tenfile.dcl

3. Sau khi đã vào được thì gán các dữ liệu ban đầu, xứ lý hành động khi người dùng (user) pick, nhấn, sửa đổi, ghi nhận trong hộp thoại, nói chung là tương tác 2 chiều giữa User và Cad. Sau các dòng cú pháp này thì sẽ luôn có dòng (start_dialog) là mã dùng để Cad biết khi đọc đến dòng cú pháp này thì cho hiện hộp thoại nên

4. Cuối cùng khi cần kết thúc hiện hộp thoại thì dùng cú pháp (unload_dialog dcl_id) dùng để Unload file DCL (file "Tenfile.DCL" được save cho dcl_id)

chúc bạn thành công


  • 1

#3 luu629

luu629

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 04 May 2017 - 12:59 PM

Cảm ơn anh Quansla đã chia sẽ.


  • 0