Lisp tính diện tích

[darthtuan]

Lệnh là DSA hoặc SA, tính diện tích của một đối tượng hoặc một miền rồi ghi diện tích vào giữa vòng tròn diện tích. Cách sử dụng: Download file Dientich.zip rồi bung nén toàn bộ file vào thư mục support của AutoCAD (bạn cần phải làm điều này vì chương trình trên có sử dụng các file block dwg và file slide sld). Sau đó, load file dientich.vlx lên.

[chicken_g]

Cái này hay đây. Phải thử ngay mới được

[tiger0686]

cai nay cung k ohay cho lam.lam cai nao tot hon di

[minhtho_135]

nhng cai anh up len that tuyet, rat huu ich.cam on ban nhieu nhe.neu anh co bản vẽ cad chuẩn về kết cấu tầng trên của đường sắt thì cho em xin nhe.xin cho em bộ font VietNam đày đủ luôn néu có.cam on anh nhieu lam. email em là "minhtho_135@yahoo.com"

[sochunk]

chà lâu lâu mới tìm đc cái hay nè. bữa sau có cái j hay nữa load len cho a e xem hi admin.

[quanpc1]

e thử rùi mà kô đc,bác chỉ dẫn chi tiết hơn cho e với,thanks bác mail: quanhtd@gmail.com

[darthtuan]

Bạn đã load file dientich.vlx vào CAD chưa?

[ndn386]

Có ai cần lisp tính diện tích hình bị khoét lỗ không? Nếu cần thì Reply lại cho em nhé

[conghoa]

Híc. Cho mình xin luôn đi. Bác có mà dấu nữa chứ

[ndn386]

Không phải em giấu gì đâu. Tại em thấy cái này thông dụng nên nghĩ mọi người đều có rồi

[huuhuyht]

to chua biet su dung nhu the nao chi gium voi
thanks!

[huuhuyht]

su dung no nhu the nao? chi cho to voi. thank!
mail: phanhuy2805@gmail.com

[darthtuan]

Copy toàn bộ file vào support của Acad rồi Gõ lệnh AP trong CAD để load nó vào

[tu310382]

sao toi k biet su dung co ai chi dum toi voi . cam on nhieu

[HieLa]

Tôi có lisp này là cây nhà lá vườn mời mọi người dùng thử :


http://www.mediafire.com/?jyjton4rxiz


http://i947.photobucket.com/albums/ad315/LaHien/dientich1.jpg

Lệnh: DT2
Dùng để đo diện tích bản đồ theo tỷ lệ vẽ khác nhau
Đơn vị đo có thể là m2, Ha , Km2 …
Có thể tính diện tich một vùng bất kỳ chưa có đường bao .
Có thể cộng trừ , nhân chia kết quả tính .
Có hai bộ nhớ đệm để lưu thông tin
Có thể phục hồi kết quả các bước tính toán
Dùng để tính tiết diện mặt cắt ngang trên bản vẽ TK ,tính khối lượng .
Bạn copy file dientich.DCL vào đương dẫn thư viện AutoCad các files còn lại để ở thư mục bất kỳ và load file dientich.pas khi sử dụng
Bạn phải kich nút LUA CHON để nhập thông tin cơ bản như tỷ lệ bản đồ , đơn vị tình vv. Nếu không sẽ tạo lỗi .
Kích nút DOI TUONG Nếu có một đối tượng cần đo khép kín
Kích nút DA DIEN nếu đôí tượng cần đo là đa giác . Nếu chưa có đối tượng bạn cứ kích chuột vào điểm bất kỳ taọ thành đường bao vùng cần đo .(Các điểm này cần khép kín)
Kích nút KET QUA để ghi ra màn hình tại điểm kích chuột
---
22/6/2010
Bổ sung bài viết
Nút RM bị lỗi tôi mới Fix lại . Nếu bạn Down trước ngày này thì Down lại
Mặt khác tôi sửa lại hộp thoại lựa chọn chi tiết cho gọn hơn :

http://i947.photobucket.com/albums/ad315/LaHien/luachon.jpg


Trong đó DT : là tiền tố đúng trước giá trị diện tích
N S : Là giá trị số nhâp vào để thực hiện công hoặc trừ diện tích
G N : Là góc nghiêng của dòng chữ khi ghi lên màn hình (độ)
C C : Là chiều cao của dòng chữ .
D V : Đơn vị tính
T L : Tỷ lệ bản vẽ

[conghoa]

Cảm ơn rất nhiều. Lisp này rất thuận tiện. HieLa chuyên viết Lisp hả.

[HieLa]

Cảm ơn rất nhiều. Lisp này rất thuận tiện. HieLa chuyên viết Lisp hả.

Chào bạn CongHoa !

Thực ra mình không phải là dân chuyên CNTT . Mình không qua bất kỳ một khoá đào tạo nào về CNTT . Mình biết đến CNTT chủ yếu là tự học qua sách và học mót từ bạn bè . Mình có viết một vàì đoạn lisp chủ yếu phục vụ công việc chuyên môn ở cơ quan. Lisp này có thể không đáp ứng hết yêu cầu công việc cuả các bạn . Rất mong nhận được góp ý xây dựng của các bạn . Nếu có thể được tôi sẽ cùng các bạn thảo luận để khắc phục sửa chữa tạo ra một công cụ hoàn thiện dùng chung cho mọi người . Ví dụ : Nếu bạn làm bên điạ chính có nhu cầu ghi kết quả khác với các ngành khác .Nếu muốn có thể thêm bớt ,thay đổi một vài tính năng vv …

Xin cảm ơn !

[darthtuan]

Có HieLa nữa box Lisp sẽ sôi nổi hơn đây.

[HieLa]

Có HieLa nữa box Lisp sẽ sôi nổi hơn đây.

Cái lisp này có 1 điều mình không ưng ý là giao diện hộp thoại không đẹp . Mình muốn sửa lạị cho gọn và Pro hơn nhưng chưa làm được hôm nào nhờ DarhTuan giúp đõ .Thông qua việc sửa chữa cái lisp cũng là bàì học bổ ích cho mọị người . Dưới đây là files dientich.LSP. Thanks !

http://www.mediafire.com/file/mjtyhkymwem/Dientich.lsp

[HieLa]

Lisp tính diện tích

Tôi đã thay đổi hộp thoại lựa chọn chi tiết thật nhỏ gọn như sau :

http://i947.photobucket.com/albums/ad315/LaHien/luauchon2.jpg

Trong đó :
Hàng trên cùng nhập : Góc nghêng . Nhập số . Tiến tố của DT
hàng thứ 2 nhập : Chiều cao chữ . Đơn vị . Tỷ lệ
http://www.mediafire.com/file/lkjtiekdjmg/dientich3.zip

Có 2 lựa chọn bạn phải lưu ý :
1-Tỷ lệ vẽ : Các bản vẽ thường thu nhỏ hình lại,lựa chọn này giúp bạn tính đúng diện tích thật
2-Đơn vị tính :Tuỳ theo nhu cầu sử dụng số liệu , lựa chọn này giúp bạn quy đổi kết quả về đơn vị tính bạn cần .

Bạn dùng thử xem có gì khó khăn không và hãy viết bài phản ánh để tôi sửa chữa lại .
Ngoài ra tôi cũng muốn sửa lại hộp thoại chính và chỉnh sủa một vài tính năng CT cho phù hợp . Rất mong nhận được ý kiến góp ý của các bạn . Xin chân thành cảm ơn !
----------------
27/6/2010

Bổ sung bài viết

Tôi đã suả laị hộp thoại chính như sau :

http://i947.photobucket.com/albums/ad315/LaHien/dientich3.jpg

Các nút đều viết tắt để kích thước hộp thoại là nhỏ nhất . Có 2 nút K1 và K2 mới bổ sung thêm cho vuông vắn hộp thoại chúng chưa được viết mã lệnh nên chưa thực hiện nhiệm vụ . Bạn muốn nó làm gì xin cho ý kiến tôi sẽ bổ sung .
Các nút : M+ M- RM MC :tính năng giống như bộ nhớ trong máy tính cá nhân , nạp dữ liệu vô […] đầu trong ô text box . Nếu kich nút RM nó chuyển số nhớ ra box kết quả tính.
Các nút : S+ SC : cũng gống như trên nhưng nó nhâp liệu vào […] thứ 2 .Nút SC : vừa thực hiện chức năng cuả RS . Nếu bạn kích SC : nó đưa giá trị ra ô kết quả đồng thời xoá nhớ .Nếu bạn kích tiếp một lần nữa nó xoá giá trị trong box kết quả tính . Ở đây tôi không bố trí S- vì thự tế ít dùng đến nó . Nếu bạn muốn tôi có thể bổ sung nút này .

http://www.mediafire.com/file/jgekyarmmtn/dientich4.zip

Phép cộng , trừ : Đã tính được 1 vùng , khi tính tiếp vùng thứ 2 nếu nhấn cộng thì kết quả
vùng 2 sẽ được công với vùng 1 . Nến nhấn phép trừ thì kết quả sẽ là vùng 1 trừ vùng 2
Nếu bạn kích công và trừ cùng một lúc nó sẽ chỉ tính diện tích không thực hiện phép tính cộng trừ
Phép nhân trước khi tính nếu kích X thì kết quả sẽ được nhân với số đã nhập và phép chia cũng tương tự . Nếu bạn kích nhân chia cùng lúc nó thực hiện cả hai phép tính
Nếu bạn thưc hiện phép cộng , nhân, chia cùng lúc nó sẽ thưc hiện phép cộng trước sau đó tới nhân chia : Đây là bài toán tính khối lượng : cộng hai tiết diện mặt cắt chia 2 (tính bình quân) nhân chiều dài (kết quả khối lượng là m3) Cũng tương tự nếu bạn thực hiện phép trừ phép nhân phép chia . Bạn hãy thử xem có gì không đúng hãy báo cho tôi .

Rất mong ý kiến góp ý xây dựng của các bạn . Thanks !

[quochuyxaydung]

lips hình khoét lỗ bạn gửi lên rất hay, có thể áp dụng cho mọi hình cần tính, thanhk!

[tronganhvo]

Lệnh là DSA hoặc SA, tính diện tích của một đối tượng hoặc một miền rồi ghi diện tích vào giữa vòng tròn diện tích. Cách sử dụng: Download file Dientich.zip rồi bung nén toàn bộ file vào thư mục support của AutoCAD (bạn cần phải làm điều này vì chương trình trên có sử dụng các file block dwg và file slide sld). Sau đó, load file dientich.vlx lên.

Bạn ơi, mình dùng lisp này rất hay nhưng nếu miền dt wa lớn thì Block chén vào sẽ rất nhỏ, như vậy sẽ rất khó để nhìn thấy.Bạn nào có thể chỉnh lại sao cho kthuoc block chèn vào tỉ lệ với dt của miền được tính ko?

[h0angljnh87]

Bạn ơi, mình dùng lisp này rất hay nhưng nếu miền dt wa lớn thì Block chén vào sẽ rất nhỏ, như vậy sẽ rất khó để nhìn thấy.Bạn nào có thể chỉnh lại sao cho kthuoc block chèn vào tỉ lệ với dt của miền được tính ko?

cái này bạn có thể vào "cài đặt" >>>>> " hệ số scale block " bạn mún lớn như thế nào là do bạn :P