Lisp tính cao độ trung bình các text được chọn năm 2024

Lisp bạn cung cấp thực chất đuợc POST trong diễn đàn này, ở topic lisp cộng trừ nhân chia text, giá trị trung bình cộng của các text do Q288 viết. Và nếu bạn muốn giới thiệu 1 Lisp hay có cần thiết phải mở 1 TOPIC mới không ?Mục đích để chọn chiều cao của text ghi giá trị. ... không cần đến trung tâm. ... ban co lisp tinh khoi luong khong ban cho minh voi ...Tính giá trị trung bình của mảng trong C - Tuyển tập bài tập C có giải từ cơ bản tới nâng cao theo các chủ đề Kiểu dữ liệu, Lệnh If-Else, Vòng lặp, Cú pháp cơ bản, Biến, Hàm, Toán tử, Con trỏ, nhập xuất file, đọc ghi file, struct, chuỗi, vẽ …Lisp Tạo Dynamic block (Block động) 3795_lisp_tao_dynamic_block_block_dong.html Tạo một Dynamic block theo ý muốn. Lisp tính giá trị trung bình của các Text !!!!Chiến lược marketing: Tính giá trị trung bình của khách hàng. ... Tham gia cộng đồng cùng với hơn 128.467+ doanh nhân, ...Định lí.Nếu hàm số f khả tích trên đoạn [a,b] và với mọi thì tồn tại một số sao cho : Định lí trên được gọi là định lí về giá trị trung bình của tích phânĐầu tiên ta tính giá trị trung bình của tất cả kết quả thu được bằng cách cộng ... là kết quả của sự gia tăng nồng ...Hàm AVERAGE trong Excel hỗ trợ tính trung bình cộng của một ... về giá trị trung bình cộng của ... để so sanh gia có ...Cú pháp: =LEFT(text, n) ... Hàm AVERAGE là một trong các hàm cơ bản trong excel cho phép bạn tính giá trị trung bình của các ô hoặc các ...Di chuyển Nếu bạn di chuyển các trang từ giữa Trang 2 và Trang 6 đến một vị trí ngoài phạm vi trang tính được tham chiếu, Excel sẽ loại bỏ các giá trị của trang khỏi phép tính.

- Bản vẽ của mình có rất nhiều các points có cao độ Z, giờ mong muốn của mình là có một lisp mà sau khi gõ lệnh, quét chọn tất cả các point, thì sẽ tạo các text có nội dung chính là cao độ của point đó, điểm chèn trùng với point luôn (trùng cả cao độ). Kiểu căn lề là Middle Center, chiều cao chữ là 2 (ghi luôn vào trong lísp, khi nào mình chỉnh sửa thì vào lisp chỉnh luôn :D). Nếu được thì tạo luôn một layer riêng cho các text này càng tốt ạ.

Mong anh em bạn bè trên diễn đàn giúp đỡ mình ạ!!!!!!!!!

  • Lisp tính cao độ trung bình các text được chọn năm 2024
    1

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

  • Báo cáo bài đăng

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
  • Báo cáo bài đăng

Hề hề hề,

Chủ thớt khi dùng lisp này cần lưu ý việc chọn điểm phải đúng các điểm cần ghi bởi nếu chọn không đúng các điểm này sẽ có thể làm lisp bị lỗi. Theo ý cá nhân tôi thì nên tạo bộ lọc cho hàm ssget để có thể hạn chế việc chọn sai các điểm này.

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
  • Báo cáo bài đăng

Làm Code nhanh :

(defun c:diem (/ JText doc ms lays Nlay ss p cz a)

(defun JText (obj / p)

(setq p (vla-get-InsertionPoint obj)) (vla-put-Alignment obj 10)

(vla-put-TextAlignmentPoint obj p) )

(setq doc (vla-get-activedocument (vlax-get-Acad-Object)))

(setq ms (vla-get-modelspace doc) Lays (vla-get-layers doc))

(setq Nlay (vla-add Lays "Diem")) (vla-put-color Nlay 7)

(if (setq ss (ssget "X" '((0 . "point")))) (vlax-for obj (vla-get-ActiveSelectionset doc)

(setq p (vlax-get obj 'Coordinates)) (setq cz (rtos (caddr p) 2 2))

(setq a (vla-addtext ms cz (vlax-3d-point p) 2.)) (JText a) (vla-put-Layer a "Diem") ))

(princ))

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
  • Báo cáo bài đăng
    Hề hề hề,
Chủ thớt khi dùng lisp này cần lưu ý việc chọn điểm phải đúng các điểm cần ghi bởi nếu chọn không đúng các điểm này sẽ có thể làm lisp bị lỗi. Theo ý cá nhân tôi thì nên tạo bộ lọc cho hàm ssget để có thể hạn chế việc chọn sai các điểm nàác bình

Bác Bình thì cao thủ rồi. em cũng không hiểu ssget là gì. Nếu được bác chỉ rõ cụ thể trường hợp bị lỗi như thế nào cho em biết rồi sửa giùm để e hoàn thiện hơn. Thanks bác!

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
  • Báo cáo bài đăng
    Bác Bình thì cao thủ rồi. em cũng không hiểu ssget là gì. Nếu được bác chỉ rõ cụ thể trường hợp bị lỗi như thế nào cho em biết rồi sửa giùm để e hoàn thiện hơn. Thanks bác!

Hề hề hề,

Bạn có thể xem tham khảo cái hàm (ssget .... ) của bác pphung183 ở phía trên về bộ lọc cho hàm ssget. Ở đây bác pphung183 mới lọc sơ bộ là chỉ chọn các điểm. Bạn có thể thêm vào bộ chọn chẳng hạn như lọc theo lớp chứa điểm cần ghi hay chọn theo mầu sắc của điểm cần ghi .....

Vì hàm ssget cho phép chọn nhiều loại đối tượng với các thuộc tính khác nhau nên nên không có bộ lọc rất dễ bị chọn nhầm đối tượng chẳng hạn như thay vì chỉ chọn điểm nó lại chọn thêm các text, các line hay các cung tròn, elip thì khi đó việc ghi cao độ sẽ bị sai không đúng với yêu cầu hoặc thậm chí lisp không chạy được.

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
  • Báo cáo bài đăng
    Hề hề hề,
Chủ thớt khi dùng lisp này cần lưu ý việc chọn điểm phải đúng các điểm cần ghi bởi nếu chọn không đúng các điểm này sẽ có thể làm lisp bị lỗi. Theo ý cá nhân tôi thì nên tạo bộ lọc cho hàm ssget để có thể hạn chế việc chọn sai các điểm này.

cám ơn bạn đã nhắc nhở, quả thực trước khi lập topic, mình cũng đã tìm rồi, nhưng không thấy được lisp này :(.

Làm Code nhanh :

(defun c:diem (/ JText doc ms lays Nlay ss p cz a)

(defun JText (obj / p)

(setq p (vla-get-InsertionPoint obj)) (vla-put-Alignment obj 10)

(vla-put-TextAlignmentPoint obj p) )

(setq doc (vla-get-activedocument (vlax-get-Acad-Object)))

(setq ms (vla-get-modelspace doc) Lays (vla-get-layers doc))

(setq Nlay (vla-add Lays "Diem")) (vla-put-color Nlay 7)

(if (setq ss (ssget "X" '((0 . "point")))) (vlax-for obj (vla-get-ActiveSelectionset doc)

(setq p (vlax-get obj 'Coordinates)) (setq cz (rtos (caddr p) 2 2))

(setq a (vla-addtext ms cz (vlax-3d-point p) 2.)) (JText a) (vla-put-Layer a "Diem") ))

(princ))

ban ơi, mình đã dùng lisp của bạn thì ok rồi, nhưng khi gõ lệnh thì tự động điền cao độ cho tất cả các điểm luôn. Bạn có thể chỉnh sửa cho mình là chỉ điền cho nhóm điểm được quét chọn không.

  • Lisp tính cao độ trung bình các text được chọn năm 2024
    1

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
  • Báo cáo bài đăng

Sửa (setq ss (ssget "X" '((0 . "point")))) thành (setq ss (ssget '((0 . "point"))))

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
  • Báo cáo bài đăng
    Sửa (setq ss (ssget "X" '((0 . "point")))) thành (setq ss (ssget '((0 . "point"))))

thank bạn, có thể mình hơi làm phiền bạn, nhưng post trước mình quên mất, mong bạn giúp mình lần cuối, đó là tạo một style mới và text tạo ra sẽ thuộc style này được không :(