Đến nội dung


Hình ảnh
- - - - -

Nhờ giúp dùm LISP


  • Please log in to reply
2 replies to this topic

#1 dkkx3a

dkkx3a

    biết lệnh trim

  • Members
  • PipPipPip
  • 190 Bài viết
Điểm đánh giá: 57 (tàm tạm)

Đã gửi 04 July 2009 - 12:49 PM

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:
  • 0
TỰ SỰ
Biển vào chiều buồn giữa cô liêu
Sóng vỗ bờ bạc đầu con nước
Khi biển động như lòng ta chợt động
Biển ồn ào nhưng thực rất dịu êm.......

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 04 July 2009 - 01:11 PM

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:
  • 2

#3 dkkx3a

dkkx3a

    biết lệnh trim

  • Members
  • PipPipPip
  • 190 Bài viết
Điểm đánh giá: 57 (tàm tạm)

Đã gửi 06 July 2009 - 08:04 AM

Cảm ơn nhiều!!!
  • 0
TỰ SỰ
Biển vào chiều buồn giữa cô liêu
Sóng vỗ bờ bạc đầu con nước
Khi biển động như lòng ta chợt động
Biển ồn ào nhưng thực rất dịu êm.......