[yêu cầu] Lisp lấy cao độ và khoảng cách lẻ giữa các đỉnh của pline

[vcdichoi 7]

Vào lúc 10/5/2012 tại 22:31, redsea_tq đã nói:

Xin Lỗi bạn vì hôm qua vào rồi nhưng lại phải out ngay nên không nhận được phản hồi của bạn. Mình sẽ gửi cho bạn file đó:

yêu cầu:

Load 2 file HL.dvb và HL.lsp lên rồi dùng lệnh HL, chú ý làm theo yêu cầu của dòng command nhé.

http://www.mediafire.com/?d3svaq9coxkxdm9

 

Em chào anh. 

Em dùng lisp của anh thì thấy báo như hình đăng

Mong anh chỉ cách khắc phục để có thể sử dụng được lisp ạ!

 

 

[CadExTools 100]

File có pass, đợi tác giả giải đáp thôi. Khả năng không tương thích phiên bản excel

[vcdichoi 7]

21 phút trước, CadExTools đã nói:

File có pass, đợi tác giả giải đáp thôi. Khả năng không tương thích phiên bản excel

em cảm ơn!

 

[lephuocly 7]

Vào lúc 10/5/2012 tại 23:23, dung12789 đã nói:

tuyệt vời bác ah! em làm được rồi. thank bác nhiều nhé.

chúc bác nhiều sức khỏe.

Sao không load được Pro ơi ! Mình dùng cad 10

[thanhdn 2]

Vào lúc 12/6/2020 tại 09:42, vcdichoi đã nói:

 

Em chào anh. 

Em dùng lisp của anh thì thấy báo như hình đăng

Mong anh chỉ cách khắc phục để có thể sử dụng được lisp ạ!

 

 

khi chạy cad 2021 nó chỉ chạy ra đường dóng thôi, còn text cao độ và text khoảng chách lẻ không hiện lên là sao vậy mọi người. mòng có ai ghé qua chỉ dùm, xin cảm ơn

[thanhdn 2]

Vào lúc 10/5/2012 tại 10:55, phamthanhbinh đã nói:

Hề hề hề,

Redsea_tq đi vắng, bạn dùng thử cái này coi đã ưng ý chưa nhé.

Mình test thử trên file bản vẽ bạn gửi thì cao độ ra đúng nhưng chiều dài từng khúc trên pline có sai lệch nhất định. Có lẽ là do bạn đã tính toán bằng tay nên sinh ra sai số. Còn mình tin là lisp chạy không sai.

Do bạn không nói rõ các yêu cầu nên mình tạm thời để bạn tự chọn chiều cao text, vị trí đặt text sao cgo vừa mắt bạn. Nếu bạn có thể xác định vị trí của các text theo một quy luật nào đó thì mình có thể chỉnh sửa điều này.

Đây chỉ là lisp sơ bộ bước đầu theo ý phỏng đoán của mình về yêu cầu của bạn nên có thể chưa thực sự đạt yêu cầu. muốn hoàn thiện nó bạn cần phải nói rõ hơn các yêu cầu của bạn mới được.

Rất mong bạn test thử và cho ý kiến.

 

• elale.lsp
  
• [✎]
   

(defun c:elale ()
(vl-load-com)
(command "undo" "be")
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq en (car (entsel "\n Chon pline la duong nghiem thu "))
         plst (acet-geom-vertex-list en)
         pg (getpoint "\n Chon diem goc tinh toan")
         hg (getreal "\n Nhap gia tri cao do goc")
         i 0
         n (length plst)
         h (getreal "\n Nhap chieu cao text")
)
(foreach p plst
       (setq elev (+ hg (- (cadr p) (cadr pg))))
       (command "text" (getpoint "\n Chon diem nhap cao do ") h 90 (rtos elev 2 2))
       (if (and (> i 0) (< i n))
           (progn
                 (setq len (distance (nth (1- i) plst) (nth i plst)))
                 (command "text" (getpoint "\n Chon diem nhap chieu dai duong nghiem thu ") h 0 (rtos len 2 2) )
          )
      )
      (setq i (1+ i))
)
(command "undo" "e")
(princ)
)

 

 

Chúc bạn vui.

mong bác phamthanhbinh ghé qua xem và có thể hoàn thiện cái này sang vẽ tự động luôn được ko ạ, trình tự như của bác cũng được rồi. ngoài ra bác cho text khoảng cách lẻ nó vào giữa ô cho đẹp, cao độ đứng và thẳng trùng với đường dóng luôn. Xin cảm ơn bác nhiều

 

 

[alisp 72]

2 giờ trước, thanhdn đã nói:

mong bác phamthanhbinh ghé qua xem và có thể hoàn thiện cái này sang vẽ tự động luôn được ko ạ, trình tự như của bác cũng được rồi. ngoài ra bác cho text khoảng cách lẻ nó vào giữa ô cho đẹp, cao độ đứng và thẳng trùng với đường dóng luôn. Xin cảm ơn bác nhiều

 

 

Bác Bình lâu lắm không thấy ghé chơi CV, tôi sửa lại lisp của bác ấy dùm bạn, bác ấy nếu thấy thì chắc cũng bỏ qua. 

Vị trí text lấy như vậy xấu đẹp gì thì xài đỡ vậy.

elale.lsp

[thanhdn 2]

3 giờ trước, alisp đã nói:

Bác Bình lâu lắm không thấy ghé chơi CV, tôi sửa lại lisp của bác ấy dùm bạn, bác ấy nếu thấy thì chắc cũng bỏ qua. 

Vị trí text lấy như vậy xấu đẹp gì thì xài đỡ vậy.

elale.lsp

cảm ơc bạn. nhưng chạy cái lisp của bạn nó bị lỗi rồi. đến bước nhập cao text nó thoát a.

[alisp 72]

19 phút trước, thanhdn đã nói:

cảm ơc bạn. nhưng chạy cái lisp của bạn nó bị lỗi rồi. đến bước nhập cao text nó thoát a.

Lạ hỉ!! tôi lại không dùng cad 2021 chấc cad này có command khác, cái kia tôi giữ lại lisp của bác Bình, chỉ sửa cái cần sửa. Thử lại cái này.

elale.lsp

[thanhdn 2]

19 phút trước, alisp đã nói:

Lạ hỉ!! tôi lại không dùng cad 2021 chấc cad này có command khác, cái kia tôi giữ lại lisp của bác Bình, chỉ sửa cái cần sửa. Thử lại cái này.

elale.lsp

vẫn bị lỗi bạn ơi

[thanhdn 2]

cái cũ của bác Bình vẫn sử dụng được ạ

[alisp 72]

Bó tay với bạn luôn. Thôi bạn xài cái của bác Bình cũng tốt chán.

Trên máy tôi nó chạy thế này.

1.rar