Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
dkkx3a

Nhờ giúp dùm LISP

Các bài được khuyến nghị

Mình đang học viết LSP, đang viết ứng dụng nhỏ hỗ trợ công việc, nhưng khi viết thì gặp hai vấn đề sau nhờ anh em trên diễn đàn giải đáp hộ:

- Thắc mắc 1: Khi viết lệnh tạo block thì vì khi lệnh chạy sẽ tạo ra 1 block nên khi lặp lại lệnh thì bị lỗi (hay bắt mình lại định nghĩa lại Block), mình có một mẹo nhỏ tránh lỗi nhưng phát sinh thêm biến, nên mình muốn hỏi là có mã LISP nào có thể kiểm tra sự tồn tại của block chẳng hạn có tên là CT có trong bản vẽ hay không?

- Thắc mắc 2: Khi mình viết lệnh điền TEXT lên bản vẽ thì bị hai trường hợp sau: ví dụ mình muốn kết quả là "12.00" thì nó hiện ra số "12" lại mất đi 2 số 0, và muốn có "0.50" thì nó lại hiện là ".5"

Xin mọi người giải đáp giùm hai thắc mắc để mình tiếp tục hoàn thiện các tiện ích của mình,...............cảm ơn!!! :s_big:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Mình đang học viết LSP, đang viết ứng dụng nhỏ hỗ trợ công việc, nhưng khi viết thì gặp hai vấn đề sau nhờ anh em trên diễn đàn giải đáp hộ:

- Thắc mắc 1: Khi viết lệnh tạo block thì vì khi lệnh chạy sẽ tạo ra 1 block nên khi lặp lại lệnh thì bị lỗi (hay bắt mình lại định nghĩa lại Block), mình có một mẹo nhỏ tránh lỗi nhưng phát sinh thêm biến, nên mình muốn hỏi là có mã LISP nào có thể kiểm tra sự tồn tại của block chẳng hạn có tên là CT có trong bản vẽ hay không?

- Thắc mắc 2: Khi mình viết lệnh điền TEXT lên bản vẽ thì bị hai trường hợp sau: ví dụ mình muốn kết quả là "12.00" thì nó hiện ra số "12" lại mất đi 2 số 0, và muốn có "0.50" thì nó lại hiện là ".5"

Xin mọi người giải đáp giùm hai thắc mắc để mình tiếp tục hoàn thiện các tiện ích của mình,...............cảm ơn!!! :s_big:

Trả lời :

Thắc mắc 1 : Để kiểm tra sự tồn tại của block chẳng hạn có tên là CT có trong bản vẽ hay không? Bạn sử dụng hàm tblsearch

Cụ thể bạn sử dụng như sau :

(/= (tblsearch "Block" "CT") nil)

-> Return : T -> tức là (True) (Block đã tồn tại trong bản vẽ)

-> Return : nil -> tức là (Block không tồn tại trong bản vẽ)

 

Thắc mắc 2 : Thiết lập biến DIMZIN giá trị bằng 0

Đâu chương trình bạn thiết lập :

(setq oldim (getvar "DIMZIN")) ; Lấy giá trị dimzin của bản vẽ

(setvar "DIMZIN" 0) ; thiết lập biến hệ thống DIMZIN bằng 0

 

gần cuối chương trình trả lại biến DIMZIN ban đầu :

(setvar "DIMZIN" oldim)

 

Hy vọng bạn xây dựng thành công các tiện ích của mình :blink:

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×