Chuyển đến nội dung
Diễn đàn CADViet

huy1339

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    9

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi huy1339

  1. Đã đăng · Trả lời báo cáo

    Lệnh UDT (Update diện tích) dưới đây sẽ làm điều bạn muốn:

    (defun c:udt(/ ss tong ham tmp tt)
 (setq
   ss (ssget '((-4 . "")))	
   tong 0.0
   ham (lambda (x) (command ".area" "o" x) (setq tong (+ tong (getvar "area"))))
   tmp (mapcar 'ham (ss2ent ss))  
   tt (entget (car (entsel "\nChon text ket qua: ")))
   tong (vl-string-right-trim "." (vl-string-right-trim "0" (rtos tong)))
 )
 (entmod (subst (cons 1 tong) (assoc 1 tt) tt))
)

(defun ss2ent(ss / sodt index lstent)
 (setq 
   sodt (if ss (sslength ss) 0)	 
   index 0
 )
 (repeat sodt
   (setq ent (ssname ss index)
  index (1+ index)
  lstent (cons ent lstent)
   )
 )
 (reverse lstent)
)
(princ "\nUpdate Area - free lisp from cadviet.com")
(princ "\nUse UDT command to start!")
(vl-load-com)

    Chào cao thủ Cadviet!

    Lisp của bạn đưa ra rất tiện ích,nhưng trong công việc mình làm nhiều lúc cần phải nhân diện tích thực với một hệ số.Nên mình cần một lisp với như sau:

    -Chọn hệ số n.

    -Chọn vùng cần tính diện tích bằng cách ping điểm.

    -ED kết quả vào text được chọn.

    Rất mong pác giúp đỡ.thanks!

  2. Đã đăng · Trả lời báo cáo

    Chào bạn!

    Lisp của bạn đưa ra rất tiện ích,nhưng trong công việc mịnh làm nhiều lúc cần phải nhân diện tích thực với một hệ số.Nên mình cần một lisp với như sau:

    -Chọn hệ số n.

    -Chọn vùng cần tính diện tích bằng cách ping điểm.

    -ED kết quả vào text được chọn.

  4. Đã đăng · Trả lời báo cáo

    Em chào các bác! Lâu rùi em không online dạo này không biết mọi người có khoẻ không vậy ta. Hi.Bác nào chỉ cho em cách dùng lisp để tính diện tích với.Nếu có lisp tinh diện tích thì cho em luôn nha. Thanks a lot!

    Bạn đọc phần autolisp trên diễn đàn này ấy,trên đó có giới thiệu về lisp tính diện tích đó.

  6. Đã đăng · Trả lời báo cáo

    Ở trong diễn đàn cũng có bài giới thiệu qua về Sap2000 v11, dao diện không khác nhiều, bổ xung và hoàn thiện hơn các tính năng khác.

    Chi tiết xem trong file Help.

     

    Link download:

     

    <a href="http://rapidshare.com/files/66730942/Sap2000_v11.part1.rar" target="_blank"><a href="http://rapidshare.com/files/66730942/Sap2000_v11.part1.rar" target="_blank"><a href="http://rapidshare.com/files/66730942/Sap2000_v11.part1.rar" target="_blank">http://rapidshare.com/files/66730942/Sap2000_v11.part1.rar</a></a></a>

    <a href="http://rapidshare.com/files/66752348/Sap2000_v11.part2.rar" target="_blank"><a href="http://rapidshare.com/files/66752348/Sap2000_v11.part2.rar" target="_blank"><a href="http://rapidshare.com/files/66752348/Sap2000_v11.part2.rar" target="_blank">http://rapidshare.com/files/66752348/Sap2000_v11.part2.rar</a></a></a>

    <a href="http://rapidshare.com/files/66759587/Sap2000_v11.part3.rar" target="_blank"><a href="http://rapidshare.com/files/66759587/Sap2000_v11.part3.rar" target="_blank"><a href="http://rapidshare.com/files/66759587/Sap2000_v11.part3.rar" target="_blank">http://rapidshare.com/files/66759587/Sap2000_v11.part3.rar</a></a></a>

    Bản này có bẻ khóa chưa hả pác?

×