IndexCalendarGalleryTrợ giúpThành viênĐăng kýĐăng Nhập
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Top posters
Admin
 
tvgs
 
HotroAcad
 
ksphanle
 
engineer0405
 
quangthinh01
 
sumakho
 
quoctoa
 
M@trixs
 
tvgtyb08
 
Latest topics
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 9 người, vào ngày Sun Aug 28, 2016 7:30 am
December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search

Share | 
 

 [lisp]Tính tổng diện tích hatch

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Thượng úy
Thượng úy


Tổng số bài gửi : 103
Điểm : 291
Reputation : 34
Join date : 15/01/2011

Bài gửiTiêu đề: [lisp]Tính tổng diện tích hatch   Sun Oct 16, 2011 4:02 pm

Code:
[font=Courier New];; free lisp from cadviet.com @ gia_bach
(defun c:HatchArea (/ cnt tot ss obj )
(if (> (atof (substr (getvar "ACADVER") 1 4)) 16.1);;;AutoCAD 2006 16.2
(progn
(vl-load-com)
(setq cnt 0 tot 0 )
(princ "\nChon doi tuong HATCH : ")
(if (setq ss (ssget '((0 . "HATCH"))))
(progn
(foreach e (mapcar 'vlax-ename->vla-Object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(if (vlax-property-available-p e 'Area)
(setq cnt (1+ cnt)
tot (+ tot (vla-get-Area e))
)
)
)
(princ (strcat "\nTong dien tich cua "(itoa cnt) " Hatch la : " (rtos tot) ) )
(setq obj (entsel "\nChon text de ghi ket qua hay Enter de ket thuc."))
(if (and
obj
(setq obj (vlax-ename->vla-object (car obj)))
(eq (vlax-get obj 'ObjectName) "AcDbText")
)
(vla-put-TextString obj (rtos tot))
)
(princ)
)
(princ "\nKhong co doi tuong HATCH nao duoc chon." )
)
)
(alert "\nPhien ban AutoCad cua ban khong ho tro tinh dien tich Hatch ")
)
)[/font]

Tác giả : gia_bach and ketxu
Về Đầu Trang Go down
http://xaydungit.forumvi.com
hoangmy84
Thiếu úy
Thiếu úy


Tổng số bài gửi : 1
Điểm : 1
Reputation : 0
Join date : 14/05/2013

Bài gửiTiêu đề: Re: [lisp]Tính tổng diện tích hatch   Tue May 14, 2013 2:21 pm

cho em xin lisp tính tổng diện tích hatch và cách sử dụng.em xin cảm ơn nhiều
Về Đầu Trang Go down
 
[lisp]Tính tổng diện tích hatch
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Phần mềm xây dựng - Giao thông - Hạ tầng kỹ thuật :: Chuyên về lisp [Sưu tầm]-
Chuyển đến