(YÊU CẦU) XIN LISP ĐẾM POINT VÀ PICK KẾT QUẢ VÀO TEXT

[hatrongquan88 4]

Nhờ các bạn viết giúp lisp đếm tổng số point và pick kết quả vào text. mình xin cảm ơn!

 

[Danh Cong 422]

+ Viết thì cũng được. Nhưng cho tôi hỏi bạn gặp khó khăn nào trong quá trình này, việc đếm hay là ghi ra Text?

+ Nếu là đếm, thì tôi sẽ hỏi bạn biết cách dùng lệnh Filter chưa, đã biết dùng bảng Properties ( Ctrl+1) chưa?

Thao tác chẳng mất mấy thời gian, và cũng nhanh hơn nếu bạn đếm... Bằng mắt .

[hatrongquan88 4]

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

+ Viết thì cũng được. Nhưng cho tôi hỏi bạn gặp khó khăn nào trong quá trình này, việc đếm hay là ghi ra Text?

+ Nếu là đếm, thì tôi sẽ hỏi bạn biết cách dùng lệnh Filter chưa, đã biết dùng bảng Properties ( Ctrl+1) chưa?

Thao tác chẳng mất mấy thời gian, và cũng nhanh hơn nếu bạn đếm... Bằng mắt .

Đầu tiên mình cảm ơn bạn đã góp ý cho mình, mình đang phải làm việc trên nhiều mặt cắt như hình vẽ, mỗi mặt cắt có nhiều khu riêng, việc của mình là phải tách riêng điểm cho từng khu một. Vấn đề của mình gặp phải là tách riêng số điểm rồi viết ra text và tổng hợp từng khu 1. Nếu chọn phương pháp thủ công thì mình chỉ cần ấn lệnh C rồi quét vùng mình cần đếm trong bảng command tự xuất hiện số điểm và mình viết thủ công vào text. Mình k muốn phải viết tay từng số 1 nên rất mong bạn giúp đỡ. Cảm ơn bạn!

[huunhantvxdts 195]

14 phút trước, hatrongquan88 đã nói:

Đầu tiên mình cảm ơn bạn đã góp ý cho mình, mình đang phải làm việc trên nhiều mặt cắt như hình vẽ, mỗi mặt cắt có nhiều khu riêng, việc của mình là phải tách riêng điểm cho từng khu một. Vấn đề của mình gặp phải là tách riêng số điểm rồi viết ra text và tổng hợp từng khu 1. Nếu chọn phương pháp thủ công thì mình chỉ cần ấn lệnh C rồi quét vùng mình cần đếm trong bảng command tự xuất hiện số điểm và mình viết thủ công vào text. Mình k muốn phải viết tay từng số 1 nên rất mong bạn giúp đỡ. Cảm ơn bạn!

Rãnh rỗi viết tí cho vui

bạn test thế nào nhé

(defun c:dempoint (/ sspoint sopoint text)
(prompt "\nChon point can dem")
(While (setq sspoint (acet-ss-to-list (ssget '((0 .  "POINT")))))
(setq sopoint (length sspoint))
(setq text (car (entsel "\nChon text thay the:")))
 (vla-put-textstring (vlax-ename->vla-object text) (rtos sopoint 2 0))
)
(princ)
)

 

[hatrongquan88 4]

2 phút trước, huunhantvxdts đã nói:

Rãnh rỗi viết tí cho vui

bạn test thế nào nhé

• dempoint.lsp
  
• [✎]
   

(defun c:dempoint (/ sspoint sopoint text)
(prompt "\nChon point can dem")
(While (setq sspoint (acet-ss-to-list (ssget '((0 .  "POINT")))))
(setq sopoint (length sspoint))
(setq text (car (entsel "\nChon text thay the:")))
 (vla-put-textstring (vlax-ename->vla-object text) (rtos sopoint 2 0))
)
(princ)
)

 

Cảm ơn bạn lisp rất hay đã giải quyết được vấn đề của mình.

[colombus 3]

nếu đã thích lisp thì dùng lisp chứ biết sao được... cho dù dùng quick properties vẫn nhanh hơn.

[huunhantvxdts 195]

1 phút trước, colombus đã nói:

nếu đã thích lisp thì dùng lisp chứ biết sao được... cho dù dùng quick properties vẫn nhanh hơn.

Cái này bạn nhầm nhé sao nhanh hơn lisp được 

[ngokiet 169]

1 giờ} trướ}c, huunhantvxdts đã nói:

Rãnh rỗi viết tí cho vui

bạn test thế nào nhé

• dempoint.lsp
  
• [✎]
   

(defun c:dempoint (/ sspoint sopoint text)
(prompt "\nChon point can dem")
(While (setq sspoint (acet-ss-to-list (ssget '((0 .  "POINT")))))
(setq sopoint (length sspoint))
(setq text (car (entsel "\nChon text thay the:")))
 (vla-put-textstring (vlax-ename->vla-object text) (rtos sopoint 2 0))
)
(princ)
)

 

Bác đúng là rảnh thật. Sao ko dùng sslength mà đổi qua dùng length list. và itoa thay rtos?

[colombus 3]

1 giờ trước, huunhantvxdts đã nói:

Cái này bạn nhầm nhé sao nhanh hơn lisp được 

ok rất nhanh... vì có cả cái gán text nữa. Nếu chỉ cần biết trong đám hỗn độn có bao nhiều point thì quick properties panel đã hiển thị rồi.

[huunhantvxdts 195]

46 phút trước, ngokiet đã nói:

Bác đúng là rảnh thật. Sao ko dùng sslength mà đổi qua dùng length list. và itoa thay rtos?

Cám ơn bạn đã góp ý

Mấy hàm đó không hề dùng nên cũng ít quan tâm