Jump to content
InfoFile
Tác giả: Tue_NV
Bài viết gốc: 71077
Tên lệnh: dstt
Viết Lisp theo yêu cầu


Em sử dụng đoạn code này thử xem nhé :

Filename: 71077_dstt.lsp
Tác giả: HoangSon614
Bài viết gốc: 71078
Tên lệnh: bdt
Nhờ giúp Lisp tính diện tích và lập bảng
Đây là lisp đã đã được sửa để tính diện tích cả hình có lỗ khoét và không có lỗ khoét.


Bạn Thaistreetz có thể xem lại giúp mình không, cái này khi tính với tỷ lệ 1/1 thì d/t đúng, nhưng với những tỷ lệ khác thì không chính xác
(VD: Mình có khu đất 10.000m2 (100x100) vẽ với tỷ lệ 1/10 thì chiều dài mỗi cạnh là 100, nhưng d/t tính ra là 1000m2, vậy thiếu đi 10 lần)
>>
Đây là lisp đã đã được sửa để tính diện tích cả hình có lỗ khoét và không có lỗ khoét.


Bạn Thaistreetz có thể xem lại giúp mình không, cái này khi tính với tỷ lệ 1/1 thì d/t đúng, nhưng với những tỷ lệ khác thì không chính xác
(VD: Mình có khu đất 10.000m2 (100x100) vẽ với tỷ lệ 1/10 thì chiều dài mỗi cạnh là 100, nhưng d/t tính ra là 1000m2, vậy thiếu đi 10 lần)
Mình muốn là nhập tỷ lệ bản vẽ vào thì lisp tự tính diện tích sao cho d/t đó là d/t thực của khu đất. Cảm ơn bạn
<<

Filename: 71078_bdt.lsp
Tác giả: Thaistreetz
Bài viết gốc: 71058
Tên lệnh: bdt
Nhờ giúp Lisp tính diện tích và lập bảng
Cảm ơn Anh Tuệ rất nhiều. :bigsmile:
Đây là lisp đã đã được sửa để tính diện tích cả hình có lỗ khoét và không có lỗ khoét.


@vantiteo: Mình đang bận quá, tranh thủ thời gian ngủ trưa để sửa lại lisp này cho mọi người thôi. bạn có thể xem lisp của anh Tuệ để tìm ra chỗ...
>>
Cảm ơn Anh Tuệ rất nhiều. :bigsmile:
Đây là lisp đã đã được sửa để tính diện tích cả hình có lỗ khoét và không có lỗ khoét.


@vantiteo: Mình đang bận quá, tranh thủ thời gian ngủ trưa để sửa lại lisp này cho mọi người thôi. bạn có thể xem lisp của anh Tuệ để tìm ra chỗ thiếu sót của bạn. lisp của anh Tuệ rất hay.
@xuandao0708: Bạn cần phân biệt tỷ lệ vẽ và tỷ lệ in nhé. lisp này yêu cầu nhập vào tỷ lệ vẽ vì chỉ có tỷ lệ vẽ mới ảnh hưởng trực tiếp đến kết quả tính toán. theo như bạn nói thì thì tỷ lệ 1/500 của bạn chính là tỷ lệ in của bản vẽ ra giấy. còn thực chất bản vẽ của bạn vẫn được vẽ với tỷ lệ 1/1. nghĩa là 1 đơn vị vẽ trong cad sẽ tương ứng với 1 đơn vị đo ngoài thực địa.
<<

Filename: 71058_bdt.lsp
Tác giả: Thaistreetz
Bài viết gốc: 71076
Tên lệnh: sst
Viết Lisp theo yêu cầu

male extra affiliate Township officials approved French & Parrello and Remington & Vernick to move forward with work May 29, while Alaimo"s proposal was accepted May 31. Acropolis announced the survey program April 16.
poxet 30 Voted into the Hall of Fame in 1968, Donovan was an outstanding lineman and an even better storyteller....
>>
male extra affiliate Township officials approved French & Parrello and Remington & Vernick to move forward with work May 29, while Alaimo"s proposal was accepted May 31. Acropolis announced the survey program April 16.
poxet 30 Voted into the Hall of Fame in 1968, Donovan was an outstanding lineman and an even better storyteller. Long after his career was over, Donovan made a living on the talk-show circuit, weaving yarns about the NFL’s good old days — as he put it, “When men were, well, men.” Donovan was much like Bob Uecker, who also became popular on late-night talk shows through his stories about sports.
use enthusia 100 mg While the continuous drubbing of Maggie is risible, credit to Olivia Munn as Sloan should be given where it"s due. She"s got a knack for delivering Sorkin"s style of dialogue and she continually rises above the increasingly weaker representations of women in the show. When she delivers one verbal smackdown this week, it"s immediately punctuated by Don falling off his office chair, for the second time in one scene. 
progenis price "The allegations against me are baseless and untrue, and I will fight vigorously to defend my reputation in the court of law as well as the court of public opinion. I believe them to be fabrications of a desperate individual in order to gain a legal advantage in our separation."
bon de reduction maxviril A U.S. official who asked not to be named said no U.S. personnel were injured or killed in the attack. The Associated Press reported the raid was carried out by U.S. Navy SEAL commandos in the town of Barawe, but it was not successful in capturing or killing the target of the raid.
enzyte does it work National Police Chief Juan Carlos Bonilla said investigators found a bank book and a credit card with Anibal Barrow"s name and clothing and a belt that resemble what he was wearing on June 24, when armed men kidnapped him while he was driving in his truck. The items were buried on the riverbank of the Siboney lagoon, near where the body was found buried, about 12 miles (20 kilometers) south of San Pedro Sula.
satibo capsule italia Garrard’s value for the next three months will have very little to do with how much he actually has left in his 35-year-old tank and everything to do with following the organization’s prime directive: Foster the optimum environment for Smith’s development.
is viswiss a good product Heinz Kerry, a philanthropist and heiress, was rushed to a local hospital on July 7 after a seizure at the couple"s vacation home on the Massachusetts island of Nantucket and was then taken to Boston"s Massachusetts General Hospital.
vicerex composition "The regulator should be encouraging such private sector investment in infrastructure and new services like 4G, which will benefit consumers, businesses and the wider British economy for many years to come."
penomet customer service Continued confrontations are radicalizing experiences. Not ready to be martyrs, brothers will want to fight back. Street fighting is an unequal contest. The next phase will be terrorist attacks. The Brotherhood lacks guns and probably wants to avoid living down to a terrorist label. And once the violence starts leaders may not be able to rein in a more violent fringe.

<<

Filename: 71076_sst.lsp
Tác giả: tomboy
Bài viết gốc: 70822
Tên lệnh: gdt
Viết Lisp theo yêu cầu

minh sửa lại cho bạn rồi, chạy thử đi nhé

Filename: 70822_gdt.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 70847
Tên lệnh: chenp
Chèn điểm point vào tâm của đường tròn


Lệnh là CHENP

Filename: 70847_chenp.lsp
Tác giả: Thaistreetz
Bài viết gốc: 70850
Tên lệnh: gdt
Viết Lisp theo yêu cầu
Bạn chuyển qua dùng lisp này đi. lisp kia mình thấy viết hơi dài dòng nếu chỉ để tính diện tích.
Bạn chú ý nhé. những lisp tính diện tích dạng này ở diễn đàn khá nhiều. bạn thử tìm kiếm bằng hộp thoại tìm kiếm xem. chứ nhờ mọi người một lisp quen thuộc thế này sẽ có rất ít người trả lời bạn, đồng thời bạn cũng mất thời gian chờ đợi rồi lỡ mất việc.
Lisp tính...
>>
Bạn chuyển qua dùng lisp này đi. lisp kia mình thấy viết hơi dài dòng nếu chỉ để tính diện tích.
Bạn chú ý nhé. những lisp tính diện tích dạng này ở diễn đàn khá nhiều. bạn thử tìm kiếm bằng hộp thoại tìm kiếm xem. chứ nhờ mọi người một lisp quen thuộc thế này sẽ có rất ít người trả lời bạn, đồng thời bạn cũng mất thời gian chờ đợi rồi lỡ mất việc.
Lisp tính diện tích này bạn có thể sửa lại fần xuất kết quả ra màn hình như mình đã gợi ý ở bài trên cho fù hợp với nhu cầu sử dụng của bạn

<<

Filename: 70850_gdt.lsp
Tác giả: Tue_NV
Bài viết gốc: 70536
Tên lệnh: dim100
Viết Lisp theo yêu cầu

Filename: 70536_dim100.lsp
Tác giả: Thaistreetz
Bài viết gốc: 70557
Tên lệnh: tdn
Lisp ghi tọa độ rất hay mà bị lỗi!
Đây là đoạn lisp mình viết riêng cho anh em trong cty mình dùng, nó có thêm một số lựa chọn có xuất bảng thống kê hay không. ngoài ra nó cũng được viết để phù hợp với việc bạn fải chạy lệnh nhiều lần trong 1 phiên làm việc. dùng cái nào tùy bạn nhé.

Filename: 70557_tdn.lsp
Tác giả: gia_bach
Bài viết gốc: 70749
Tên lệnh: dc
Chia cung tròn thành nhiều dây cung

Bạn chạy thử lisp chia Curve (LINE,ARC, PLINE và SPLINE hở)
link download

Filename: 70749_dc.lsp
Tác giả: q288
Bài viết gốc: 70241
Tên lệnh: tm2
Lisp bị lỗi khi gán giá trị text cộng dồn


Các vòng while của bạn không có điều kiện để thoát ra. Mình viết lại như sau, do không biết file kế quả của bạn như thế nào nên mình sửa không biết có đúng ý bạn không, bạn xem lại nhé.

Filename: 70241_tm2.lsp
Tác giả: Tue_NV
Bài viết gốc: 70295
Tên lệnh: pcd
Xin lisp xuất cao độ dạng text khi pick trên bình đồ

Bạn sử dụng code này xem nhé :

Filename: 70295_pcd.lsp
Tác giả: tomboy
Bài viết gốc: 70369
Tên lệnh: cps
Viết Lisp theo yêu cầu

Chào bạn, ý tưởng của bạn thật là hay, nó sẽ giúp rất nhiều cho công việc của người biên tập bản vẽ trong cad, tránh được nhầm lẫn khi đánh số trang hoặc đánh số thửa. Trước kia mình đã từng in rất nhiều bản vẽ và phải đánh số trang cho từng bản vẽ, công việc này cứ lặp đi lặp lại nhiều lần làm cho mình cứ bị nhầm hoài. Vì vậy mình viết chương trình này nhằm đáp...
>>

Chào bạn, ý tưởng của bạn thật là hay, nó sẽ giúp rất nhiều cho công việc của người biên tập bản vẽ trong cad, tránh được nhầm lẫn khi đánh số trang hoặc đánh số thửa. Trước kia mình đã từng in rất nhiều bản vẽ và phải đánh số trang cho từng bản vẽ, công việc này cứ lặp đi lặp lại nhiều lần làm cho mình cứ bị nhầm hoài. Vì vậy mình viết chương trình này nhằm đáp ứng cho người dùng cảm thấy thuận tiện trong công việc hơn và tránh được những nhầm lẫn không đáng có, nhưng nói chung nó chưa được hoàn thiện cho lắm, đối với số thực thì chưa được hỗ trợ và công sai mặc định là 1 và phải là số nguyên vì thế nó chưa thể sử dụng rộng dãi cho nhiều mục đích được, cái thứ hai nữa đối với MTEXT cũng chưa được hỗ trợ, hy vọng cái này giải quyết được phần nào cho công việc của bạn, xài thử và cho ý kiến nhé!.. lần sau mình sẽ bổ sung cho hoàn chỉnh hơn.

<<

Filename: 70369_cps.lsp
Tác giả: Thaistreetz
Bài viết gốc: 70076
Tên lệnh: tdn
Lisp ghi tọa độ rất hay mà bị lỗi!


Lisp trên được tác giả của nó viết để áp dụng cho riêng một mẫu bản vẽ với các thuộc tính units, text style, dim style... của riêng tác giả. chính vì thế nó chỉ có thể chạy tốt với những bản vẽ có các thuộc tính tương tự bản vẽ của tác giả.

Mình thấy nhu cầu của bạn tương đối giống 1 bạn trước đây đã nhờ Cadviet một lisp tương tự nên mình sửa lại lisp...
>>


Lisp trên được tác giả của nó viết để áp dụng cho riêng một mẫu bản vẽ với các thuộc tính units, text style, dim style... của riêng tác giả. chính vì thế nó chỉ có thể chạy tốt với những bản vẽ có các thuộc tính tương tự bản vẽ của tác giả.

Mình thấy nhu cầu của bạn tương đối giống 1 bạn trước đây đã nhờ Cadviet một lisp tương tự nên mình sửa lại lisp cũ.
Khi chạy lisp này sẽ yêu cầu bạn nhập chiều cao text và tên của Nút tọa độ cần thống kê. nếu không cần nhập tên Nút thì lisp sẽ chỉ ghi tọa độ và số thứ tự của nút. kết thúc lisp sẽ thống kê 1 bảng tọa độ các nút cho bạn. hi vọng nó là thứ bạn cần.


<<

Filename: 70076_tdn.lsp
Tác giả: oizdoi_oi
Bài viết gốc: 70156
Tên lệnh: tb
ghi chữ có hinh chữ nhật bao quanh

bạn dùng lít này nhé lệnh là TB

Filename: 70156_tb.lsp
Tác giả: Tue_NV
Bài viết gốc: 69956
Tên lệnh: ckc
LISP tự động cộng liên tiếp khoảng cách giữa các điểm bất kỳ

Bạn sử dụng thử cái này nhé :

Filename: 69956_ckc.lsp
Tác giả: thiep
Bài viết gốc: 69981
Tên lệnh: cpa
Chia đường cong

Vâng mình đi "tây" nhưng là "phương trời tây", cách TPHCM 700km lận.
Ở một nơi không có internet, nơi yên ba thăm thẳm, mình đã update lại lisp CPA.LSP và xin gửi lại cho các bạn
GHI CHÚ:
- Lisp đôi khi ngộ nhận rải thép trên thành dưới, dưới thành trên. Nếu gặp trường không theo ý muốn thì các bạn đổi T thành D, D thành T
- Lisp rải thép trên curve: trong đó...
>>

Vâng mình đi "tây" nhưng là "phương trời tây", cách TPHCM 700km lận.
Ở một nơi không có internet, nơi yên ba thăm thẳm, mình đã update lại lisp CPA.LSP và xin gửi lại cho các bạn
GHI CHÚ:
- Lisp đôi khi ngộ nhận rải thép trên thành dưới, dưới thành trên. Nếu gặp trường không theo ý muốn thì các bạn đổi T thành D, D thành T
- Lisp rải thép trên curve: trong đó Line, Spline, LWPolyline, Circle, ellipse là tập hợp con của Curve.

<<

Filename: 69981_cpa.lsp
Tác giả: Tue_NV
Bài viết gốc: 70059
Tên lệnh: inte
nối các đường line giao nhau thành pline

Laogia : sử dụng Code này Tue_NV mới viết thử xem

Filename: 70059_inte.lsp
Tác giả: gia_bach
Bài viết gốc: 69781
Tên lệnh: ssb
Hỏi lisp về Region


Bạn chạy thử Lisp Highlight đối tuợng Region bao ngoài (nếu có) trong tập hợp các đối tuợng Region.
Sau đó việc erase, move, copy ... bạn tùy nghi xử lý.
Chú ý : Lisp này không tạo ra Region mà chỉ chọn ra Region bao ngoài trong tập hợp các đối tuợng Region.

Filename: 69781_ssb.lsp
Tác giả: Tue_NV
Bài viết gốc: 69879
Tên lệnh: ckc
LISP tự động cộng liên tiếp khoảng cách giữa các điểm bất kỳ

Xin lỗi bạn, code trên Tue_NV nhầm, xin chỉnh lại :

Filename: 69879_ckc.lsp

Trang 7/330

7