Jump to content
InfoFile
Tác giả: ketxu
Bài viết gốc: 164550
Tên lệnh: brr jr
Break và join rectang
Của bạn đây. Mỗi code một ý tưởng khác hẳn nhau ^^

Filename: 164550_brr_jr.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 164426
Tên lệnh: cdtn
Lisp ghi cao độ

Hề hề hề,
Lỗi đúng như bạn đã biết, là do cú pháp của hàm if
Do hàm if chỉ chấp nhận một hàm hành động nên khi bạn muốn có nhiều hành động với cùng một điều kiện thì bạn phải dùng thêm hàm (progn ..... và nhét tất cả các hành động bạn muốn thực hiện vào trong hàm này rồi đóng nó lại.
Vì dụ: (if diều kiện a
(progn
Hành động...
>>

Hề hề hề,
Lỗi đúng như bạn đã biết, là do cú pháp của hàm if
Do hàm if chỉ chấp nhận một hàm hành động nên khi bạn muốn có nhiều hành động với cùng một điều kiện thì bạn phải dùng thêm hàm (progn ..... và nhét tất cả các hành động bạn muốn thực hiện vào trong hàm này rồi đóng nó lại.
Vì dụ: (if diều kiện a
(progn
Hành động b
hành động c
.........
hành động n
);;;;;end progn
(progn
..........
............
);;;;;end progn
);;;;;;end if

Mình đã sửa lại cái đoạn code trên của bạn thành cái có lẽ bạn muốn. Tuy nhiên, trong trường hợp các giao điểm nằm gần nhau thì các text sẽ bị chồng lên nhau đó. Tùy bạn test và lựa chọn.

Chúc bạn vui
<<

Filename: 164426_cdtn.lsp
Tác giả: NguyenNgocSon
Bài viết gốc: 164295
Tên lệnh: cdtn
Lisp ghi cao độ
Em đã code thử như sau:

Nhưng lisp lỗi ?


Thông báo lỗi là gì đây ????
- Lỗi syntax cơ bản của hàm If ở dòng này :

Filename: 164295_cdtn.lsp
Tác giả: t031285
Bài viết gốc: 164310
Tên lệnh: cen
Lisp xác định tâm của 1 hình bất kỳ



Lisp của bác khi e chạy nó báo Pick chon doi tuong lay trong tam :nil,tiện thể nhờ bác sửa khi xác định của tâm hình bất kỳ nó vẽ 1 point giống như lisp của ketxu luôn giùm e.Thanks.

Filename: 164310_cen.lsp
Tác giả: Tue_NV
Bài viết gốc: 164227
Tên lệnh: brel
Lisp cắt đối tượng

Code em cũng đã viết xong. Chỉ là chưa xử lý trực tiếp trên 2dPline. Chỉ còn cách convert sang PLINE
Tue_NV xin góp thêm 1 code nữa

Filename: 164227_brel.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 164233
Tên lệnh: td
Nhờ sửa hộ lisp ghi toạ độ cọc


Hề hề hề,
Bạn xài thử cái đồ đi mót này coi có ưng cái bụng không hè. Cái ni mình mót của bác thanhduan2407 về sửa chữa lại và bổ sung tí ti cho nó ra cái bạn cần. Việc sửa từ cái lisp bạn gửi e hơi lâu và có vẻ quá sức của mình do nó hơi rắc rối đổi kẹo. Chỉ nguyên cái việc dò theo các hàm con cũng toe oe oét hết cả mắt rùi. Vốn dĩ lười nên vớ luôn cái của bác...
>>

Hề hề hề,
Bạn xài thử cái đồ đi mót này coi có ưng cái bụng không hè. Cái ni mình mót của bác thanhduan2407 về sửa chữa lại và bổ sung tí ti cho nó ra cái bạn cần. Việc sửa từ cái lisp bạn gửi e hơi lâu và có vẻ quá sức của mình do nó hơi rắc rối đổi kẹo. Chỉ nguyên cái việc dò theo các hàm con cũng toe oe oét hết cả mắt rùi. Vốn dĩ lười nên vớ luôn cái của bác Thanhduăn2407 để mần cho nó lẹ. Hề hề hề. bạn nhớ cám ơn bác ấy nghen.


Hề hề hề,
Khi dùng lisp này bạn chú ý mấy điểm hơi chuối như sau:
1/- Khi chạy lisp (lệnh vưỡn là TD) nếu trên bản vẽ chửa có block Bangtoado thì nó sẽ tự tạo ra cái block này thỏa mãn yêu cầu của bạn và bạn chỉ cần chọn các vị trí cọc cũng như điểm chèn của block là nó sẽ chèn vô cho bạn. Tới khi nào bạn mỏi tay hay ngán không thích chèn nữa thì đừng pick chọn điểm nữa mà cứ chí cho thằng enter một phát là lisp sẽ ngừng chạy.
2/- khi trong bản vẽ đã có block mang tên Bangtoado, lisp sẽ thông bào cho bạn biết và bạn phải nhấn enter để lisp tiếp tục chỉ cho bạn biết trong cái block mang ten bangtoado đó có những đối tượng và thuộc tính nào. bạn chịu khó dòm ky kỹ cái bảng thông báo để quyết định câu trả lời cho câu hỏi hiện ra sau khi bạn enter phát nữa. Nếu bạn thấy cái block đó đúng là cái bạn cần thì khi trả lời cho câu hỏi mà lisp đưa ra, bạn chọn "y" (yes). Khi đó lisp sẽ tiếp tục chạy và chèn cái block này vào các vị trí cọc như trên.
Còn nếu như bạn thấy nó có các đối tượng và thuộc tính không giống cái bạn cần,(giả tỷ như nó có nhiều thuộc tính hơn hay nhiều đối tượng hơn..... ) thì bạn sẽ trả lời là n hoặc chả thèm trả lời nữa, cứ chí đại thằng enter phát nữa thì lisp sẽ đổi tên cái thằng block này thành một tên khác do bạn chọn để tạo ra một block mang tên Bangtoado mới có các đặc tính mà bạn cần và tiếp tục cho bạn chọn vị trí cọc cũng như điểm chèn block theo con mắt nhà nghề của bạn.
3/- Theo cái ngu ý của mình thì khi bạn không chắc chắn rằng cái block có sẵn đúng với cái bạn cần thì cứ nhấn đại enter khi lisp hỏi "Ban muon insert block Bangtoado <y or n>: ". Tuy nhiên bạn phải nhớ các cái tên block đã có sẵn kẻo mà bạn nhập cái tên block mới trùng với 1 trong các tên này thì lisp sẽ báo lỗi đó. Thực ra mình có thể làm thêm bước kiểm tra cái tên mới nhập này, song do lười nên bạn thông cảm. Nếu thực sự cần, mình sẽ bổ sung sau.

Hãy thử xem nhé và cho phản hồi để mình còn biết đường mà mò mẫm hỉ.
Chúc bạn vui
<<

Filename: 164233_td.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 164254
Tên lệnh: brd
Lisp cắt đối tượng


Hề hề hề,
các bác cho mình té nước theo mưa một tí.
Số là mình đọc cái lisp của bác Ketxu và nổi hứng nhảy vô sửa một tí để hy vọng vớ được một phiếu vote của nhà bác Hugo007. Chả biết có nên cơm cháo chi không nhưng cũng liều post nó lên để mọi người ném ...... bánh. Quả này có khi no được mấy ngày ấy chứ. Hề hề hề.
Nó đây ạ:


@ Bác Ketxu:...
>>

Hề hề hề,
các bác cho mình té nước theo mưa một tí.
Số là mình đọc cái lisp của bác Ketxu và nổi hứng nhảy vô sửa một tí để hy vọng vớ được một phiếu vote của nhà bác Hugo007. Chả biết có nên cơm cháo chi không nhưng cũng liều post nó lên để mọi người ném ...... bánh. Quả này có khi no được mấy ngày ấy chứ. Hề hề hề.
Nó đây ạ:


@ Bác Ketxu: Bác viết lisp bằng cai font chi mà dịch nó khổ quá. Giá bác cứ chơi tiếng Việt không dấu thì dễ đọc biết mấy????
<<

Filename: 164254_brd.lsp
Tác giả: phamngoctukts
Bài viết gốc: 164210
Tên lệnh: brd
Lisp cắt đối tượng

Bác thử lại code này xem đã test OK.

Filename: 164210_brd.lsp
Tác giả: gia_bach
Bài viết gốc: 164154
Tên lệnh: brd
Lisp cắt đối tượng

Phải tới ít nhất là 4 lần post mới chuyển tải được nội dung ?!
Tiếng Việt mình khó quá nhỉ?!

Bạn sài thử LISP này :

Filename: 164154_brd.lsp
Tác giả: Doan Van Ha
Bài viết gốc: 164127
Tên lệnh: ct
Lisp tạo text theo cấp số cộng cách đều nhau 1 khoảng

Bạn xài tạm cái này nhé!

Filename: 164127_ct.lsp
Tác giả: Tue_NV
Bài viết gốc: 163872
Tên lệnh: ofl
Giúp mình lisp mở file bất kỳ

Bạn thử xem :
Cái này mở bất kì ứng dụng nào trên máy tính của bạn

Filename: 163872_ofl.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 163922
Tên lệnh: od oc oca
Lisp tăng chỉ số

Hề hề hề,
Bạn dùng thử cái ni coi ưng ý chưa nhé.

Hề hề hề,
Cái ni mình chỉ có sửa bổ sung vào cái lisp của bác SSG nên bạn hãy cám ơn bác ấy nhé.
Khi bạn nhập "Nhap so ky tu can giu trong suffix: " là 0 thì kết quả sẽ y như của bác SSG đã viết.
Trong ví dụ bạn đưa, text mẫu là C01-D thì ở chỗ "Nhap so ky tu can giu trong suffix: " bạn cần nhập...
>>

Hề hề hề,
Bạn dùng thử cái ni coi ưng ý chưa nhé.

Hề hề hề,
Cái ni mình chỉ có sửa bổ sung vào cái lisp của bác SSG nên bạn hãy cám ơn bác ấy nhé.
Khi bạn nhập "Nhap so ky tu can giu trong suffix: " là 0 thì kết quả sẽ y như của bác SSG đã viết.
Trong ví dụ bạn đưa, text mẫu là C01-D thì ở chỗ "Nhap so ky tu can giu trong suffix: " bạn cần nhập là 2. Kết quả sẽ có C02-D, C03-D.... nếu Increament là 1, và kết quả sẽ là C03-D, C05-D nếu increament là 2, ......
Chúc bạn vui,....
<<

Filename: 163922_od_oc_oca.lsp
Tác giả: Doan Van Ha
Bài viết gốc: 164062
Tên lệnh: cdt
[Yêu cầu] Lisp cắt đối tượng
Bạn dùng thử cái này xem nhé.

Filename: 164062_cdt.lsp
Tác giả: tutranvan1988
Bài viết gốc: 163861
Tên lệnh: od oc oca
[Nhờ chỉnh sửa] Lisp tăng chỉ số

Em sử dụng list này ạ.
Em chưa biết cách upload nên dùng tạm cách copy and patse.
Ở phía dưới có anh nói là dùng tcout. Trong trường hợp này không dùng tcout dược đâu ạ.


Filename: 163861_od_oc_oca.lsp
Tác giả: ketxu
Bài viết gốc: 163588
Tên lệnh: loadall
Load toàn bộ LSP,FAS,VLX,ARX ở thư mục mẹ + các thư mục con
Ketxu đóng góp thêm 1 chút , nếu đã chọn con đường load bằng getfield, để tránh cứ 1 thư mục lại làm 1 lần , đoạn sau sẽ load toàn bộ LSP,FAS,VLX,ARX ở thư mục mẹ + các thư mục con :

Filename: 163588_loadall.lsp
Tác giả: meodihia007
Bài viết gốc: 163697
Tên lệnh: mt
Lisp chạy đúng. Cài lại CAD nó chạy sai
Em có xài một lisp để đánh số thứ tự chi tiết tăng dần tự động. Lúc đầu xài em bị lỗi: đầu mũi tên bắt đầu từ tâm. Sau đó không biết sao nó lại hoạt động đúng. Lisp lúc chạy đúng thì đầu mũi tên bắt đầu từ mép của đường tròn. Hôm nay cài lại AutoCAD nó lại bị lỗi. Các bác cao thủ xem giúp em với.
>>
Em có xài một lisp để đánh số thứ tự chi tiết tăng dần tự động. Lúc đầu xài em bị lỗi: đầu mũi tên bắt đầu từ tâm. Sau đó không biết sao nó lại hoạt động đúng. Lisp lúc chạy đúng thì đầu mũi tên bắt đầu từ mép của đường tròn. Hôm nay cài lại AutoCAD nó lại bị lỗi. Các bác cao thủ xem giúp em với.

https://lh6.googleusercontent.com/-R8jiaIyOhPY/TkAAxS74noI/AAAAAAAAAls/6Zr2mykhEKs/Capture.JPG
Chay sai

https://lh5.googleusercontent.com/-bYamkJc4UBU/TkADN-3p49I/AAAAAAAAAl8/8xFfsENBDX8/Capture%2525201.JPG
Chạy đúng


<<

Filename: 163697_mt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 163550
Tên lệnh: bh
[Yêu cầu] lisp bo hatch
vigrx plus price in lahore So far, the office closure has halted $1.38 billion in private plane deliveries, NBAA President Ed Bolen wrote in an open letter to President Barack Obama. He said about a third of annual deliveries occur in the final three months of the year.
que es neosize ...
>>
vigrx plus price in lahore So far, the office closure has halted $1.38 billion in private plane deliveries, NBAA President Ed Bolen wrote in an open letter to President Barack Obama. He said about a third of annual deliveries occur in the final three months of the year.
que es neosize “He made a mistake. You move forward,” Pettitte said. “The biggest thing is to mean what you say and move forward with it. Obviously he’s a young player. He’s got a long career ahead of him, hopefully, and you put this in the rear-view mirror and don’t do anything like this again.”
vydox l arginine Also taken into custody and charged in criminal complaints unsealed in U.S. district court in San Diego on Tuesday were Leonard Glenn Francis, the defense contractor, and John Bertrand Beliveau II, a special agent with the Naval Criminal Investigative Service.
tadasoft While such occurrences could potentially concern officials in states with hundreds of miles of coastline and economies largely dependent on ocean-related tourism, experts say the bacteria is nothing most people should worry about. Vibrio bacteria exist normally in salt water and generally only affect people with compromised immune systems, they say. Symptoms include vomiting, diarrhea and abdominal pain. If the bacteria get into the bloodstream, they provoke symptoms including fever and chills, decreased blood pressure and blistering skin wounds.
intimax 100 mg Foundation Medicine"s shares touched a high of $34.19 on theNasdaq, valuing the company at about $900 million. About 6million shares changed hands, making it one of the most heavilytraded stocks on the exchange.
testofuel india He warned that there would be other damaging consequences of independence: “Because of loss of population, I suspect the UK would lose its permanent seat on the UN security council, and its voting power within the EU would be radically slashed, well below that of France and Germany.” He added that David Cameron and George Osborne would become “smaller figures” on the world stage, saying “they would be taken less seriously in Washington”.
buy zandu vigorex sf capsules The terminology has become politically charged, as the United States would have to cut off $1.55 billion in aid to Egypt if a coup has taken place. Under U.S. law, aid cannot go to a country whose military played a decisive role in overthrowing a democratically elected leader.
does the proextender really work "We have to let the Iranians be the ones refusing peace and not appear as if we are not open to changes," Lapid said in a statement, signaling a measure of domestic dissent that presented another challenge to Netanyahu.
nugenix vs andro 400 Natural gas made from waste streams produces far fewercarbon emissions than conventional natural gas, a benefit thatcould help Clean Energy attract new customers, Macquarie analystMatthew Blair said in a client note.

<<

Filename: 163550_bh.lsp
Tác giả: ketxu
Bài viết gốc: 163551
Tên lệnh: bh
Tạo lại đường bao cho Hatch
Mình cũng không down được, nên viết tạm lại cho bạn cái khác đây. Tạo Bound bằng Pline nhé

P/S : Chậm rồi ^^

Filename: 163551_bh.lsp
Tác giả: ssg
Bài viết gốc: 16343
Tên lệnh: brk
Viết Lisp theo yêu cầu

Bạn dùng lisp này, lệnh BRK:


Filename: 16343_brk.lsp
Tác giả: NguyenNgocSon
Bài viết gốc: 163407
Tên lệnh: cdtn
Lisp ghi cao độ

Mình code thử :

Đoạn này để lựa chọn như sau:Nếu chọn Y sẽ mặc định thông số ban đầu. Nếu N sẽ thiết lập lại. Không hiểu sao code lại lỗi. Em check mà không được?
Các bạn góp ý giùm. Thân !

Filename: 163407_cdtn.lsp

Trang 27/330

27