Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
1 reply to this topic

#1 phuoc sinh

phuoc sinh

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 10 November 2010 - 07:31 AM

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.c...n_tich_ae_1.rar
  • 0

#2 pfievxd

pfievxd

    biết vẽ spline

  • Members
  • PipPip
  • 94 Bài viết
Điểm đánh giá: 6 (bình thường)

Đã gửi 15 November 2010 - 03:04 PM

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
;
  • 1