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

Lisp tính diện tích rồi tự ghi giá tri diện tích vào một đối tuợng text

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

Chào các bác!

E nhờ các bác trên diễn đàn viết thêm 1 đoạn đế sau khi pick điểm đo xong diện tích thi chỉ vào 1 đối tưọng text or mtext thì nó tự động thay thế giá trị diện tích vừa đo được vào text đó. E cảm ơn các bác rất nhiều.

http://www.cadviet.com/upfiles/3/tinh_dien_tich_ae_1.rar

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ạn ơi, cái này trên diễn đàn chắc có nhiều rồi, chịu khó search đi, khoảng tháng trước mình cũng hỏi 1 cầu tương tự bên "topic hỏi về lisp" , nếu bạn đã biết chút chút về autolisp rồi thì câu trả lời là thêm 1 cái function con này vào, chỉnh lại code của bạn 1 chút là ok :

;-------------------------------------------------------

(defun suatext ()

(setq ddd (entsel "\nChon text viet ket qua"))

(while

(or

(null ddd)

(and (/= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (/= "MTEXT" (cdr (assoc 0 (entget (car ddd)))))

)

)

(setq ddd (entsel "\nDoi tuong phai la TEXT hoac MTEXT! Chon lai"))

)

(setq DT (car ddd))

(setq DTM (entget DT))

(setq noidung noidungm)

(setq DTM (subst (cons 1 NOIDUNG) (assoc 1 DTM) DTM))

(entmod DTM)

(Princ))

;----------------------------------------------------------

Hehe, cái này là mượn hoa kính phật thui, chính xác là của bác Pham Quoc Duy viết cho mình

;

  • Vote tăng 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

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  

×