Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.



 
Trang ChínhGalleryLatest imagesĐă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
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
tvgs
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
HotroAcad
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
ksphanle
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
engineer0405
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
quangthinh01
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
sumakho
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
quoctoa
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
M@trixs
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
tvgtyb08
[lisp]Tính tổng diện tích hatch Vote_lcap[lisp]Tính tổng diện tích hatch Voting_bar[lisp]Tính tổng diện tích hatch Vote_rcap 
Latest topics
» hotroacadv2.09
[lisp]Tính tổng diện tích hatch Icon_minitimeMon Mar 30, 2015 11:14 pm by ninh621

» Phần mềm san nền + Phân lớp nền đường + Các ứng dụng
[lisp]Tính tổng diện tích hatch Icon_minitimeMon Oct 06, 2014 8:59 am by tamky

» Bộ cài nova full trên Autocad 2005 và win7
[lisp]Tính tổng diện tích hatch Icon_minitimeThu Apr 17, 2014 4:29 pm by frowin2013

» Chuyên nhận thi công tiểu cảnh sân vườn
[lisp]Tính tổng diện tích hatch Icon_minitimeSun Apr 13, 2014 2:45 pm by stingdau

» Phần mềm tổ hợp nội lực từ SAP, ETABS,TK cấu kiện theo TCVN DSAP 2.x
[lisp]Tính tổng diện tích hatch Icon_minitimeMon Mar 24, 2014 5:49 pm by nha.ksxd

» Ứng dụng HotroAcad hỗ trợ kết cấu xây dựng
[lisp]Tính tổng diện tích hatch Icon_minitimeFri Mar 21, 2014 1:43 pm by HotroAcad

» Phần mềm soft_xdit thay thế phần mềm hotrocad
[lisp]Tính tổng diện tích hatch Icon_minitimeWed Mar 12, 2014 2:31 pm by HotroAcad

» lisp Thước lỗ ban
[lisp]Tính tổng diện tích hatch Icon_minitimeFri Dec 06, 2013 4:06 pm by leminhlapvl

»  MDW - Phần mềm tính toán móng đơn
[lisp]Tính tổng diện tích hatch Icon_minitimeThu Dec 05, 2013 10:15 am by ngominhha

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à 10 người, vào ngày Mon Nov 07, 2022 3:26 pm
March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search

 

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

Go down 
2 posters
Tác giảThông điệp
Admin
Thượng úy
Thượng úy
Admin


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

[lisp]Tính tổng diện tích hatch Empty
Bài gửiTiêu đề: [lisp]Tính tổng diện tích hatch   [lisp]Tính tổng diện tích hatch Icon_minitimeSun 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
https://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

[lisp]Tính tổng diện tích hatch Empty
Bài gửiTiêu đề: Re: [lisp]Tính tổng diện tích hatch   [lisp]Tính tổng diện tích hatch Icon_minitimeTue 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
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Tổng hợp File excel tính toán dầm sàn cột theo tiêu chuẩn 356-2005
» [Sưu tầm]Lisp căn lề chữ
» Thông báo từ ban quản trị diễn đàn
» [Lisp]­Vẽ mũi tên 2 chiều
» lisp Thước lỗ ban

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