Đến nội dung


Hình ảnh
- - - - -

Thắc Mắc Đoạn Lips Không Hiểu Cách Sử Dụng Và Nội Dung


  • Please log in to reply
2 replies to this topic

#1 ThanhDattdk

ThanhDattdk

    biết zoom

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

Đã gửi 29 November 2016 - 04:32 PM

Em xin chào các anh/chị. em có một số đoạn lips ko hiểu về cách hoạt động và nội dung. Mong anh/chị giúp đỡ em với

đoạn1:

(setq olderr *error*)
(defun *error* (msg)
(princ "\nError: ")
(princ msg)
(princ)
)
đoạn 2:
(progn (close f_in)
(setq KKK (load_dialog "TTUC.DCL"))
(new_dialog "ttuc" KKK)
(setq RES (start_dialog))
(unload_dialog KKK)
(cond
((= RES 0) (princ))
((= RES 1) 
(setq xk (- -100 L))
(setq pk (list xk -60))
(command "_.MOVE" "all" "" "0,-60" pk)
(TDoccong)
)

 


  • 0

Hãy Quan Tâm Nhiều Hơn Đến Người Khác <<


#2 Danh Cong

Danh Cong

    biết lệnh linetype

  • Members
  • PipPipPipPip
  • 242 Bài viết
Điểm đánh giá: 40 (tàm tạm)

Đã gửi 29 November 2016 - 04:55 PM

 

Em xin chào các anh/chị. em có một số đoạn lips ko hiểu về cách hoạt động và nội dung. Mong anh/chị giúp đỡ em với

đoạn1:

(setq olderr *error*)
(defun *error* (msg)
(princ "\nError: ")
(princ msg)
(princ)
)
 
 
đoạn 2:
(progn (close f_in)
(setq KKK (load_dialog "TTUC.DCL"))
(new_dialog "ttuc" KKK)
(setq RES (start_dialog))
(unload_dialog KKK)
(cond
((= RES 0) (princ))
((= RES 1) 
(setq xk (- -100 L))
(setq pk (list xk -60))
(command "_.MOVE" "all" "" "0,-60" pk)
(TDoccong)
)

 

 

Đoạn 1: Đây là hàm *Error*. Thông thường dùng  bẫy lỗi, để nếu có lỗi sảy thì lisp sẽ chạy theo hàm *error* tự tạo.

đọc thêm phần này để hiểu chi tiết, do khá loằng ngoằng.    . http://www.cadviet.c...i-ve-ham-error/

 

Đoạn 2: Lisp viết theo nghĩa Thông-Dịch: Đọc đến đâu- dịch đến đó: Nếu bạn ko đọc được gì giải thích có nghĩa lí gì ????  :(  :(


  • 0

             ***  Vô lo - Vô nghĩ - Vô sầu hận  ***

***  Chẳng thương - Chẳng giận - Chẳng đau lòng  ***


#3 ThanhDattdk

ThanhDattdk

    biết zoom

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

Đã gửi 30 November 2016 - 07:30 AM

Đoạn 1: Đây là hàm *Error*. Thông thường dùng  bẫy lỗi, để nếu có lỗi sảy thì lisp sẽ chạy theo hàm *error* tự tạo.

đọc thêm phần này để hiểu chi tiết, do khá loằng ngoằng.    . http://www.cadviet.c...i-ve-ham-error/

 

Đoạn 2: Lisp viết theo nghĩa Thông-Dịch: Đọc đến đâu- dịch đến đó: Nếu bạn ko đọc được gì giải thích có nghĩa lí gì ????  :(  :(

Em xin cảm ơn anh đã giải đáp những thắc mắc của em. Em mới tìm hiểu chỉ được vài cái nên chưa hiểu được nhiều. Anh Danh Cong cho em hỏi về đoạn lips thứ 2 đó thưa anh.Em tìm thấy nó trong 1 đoạn LIPS nhưng không hiểu được ý nghĩa của đoạn LIPS này. Theo em có đọc qua mấy hàm load_dialog, start_dialog, unload_dialog nhưng mục đích của đoạn này để tạo hộp thoại hả thưa anh và biến RES đó thưa anh, nó có thể bằng 0 hoặc bằng 1 khi nào vậy ạ. Mong a chỉ giáo giúp em với ạ. em xin cảm ơn anh


  • 0

Hãy Quan Tâm Nhiều Hơn Đến Người Khác <<