Jump to content
InfoFile
Tác giả: Tue_NV
Bài viết gốc: 82060
Tên lệnh: sxt
Viết lisp theo yêu cầu [phần 2]

Út sử dụng code này nhé :

Út có thể thiết lập khoảng cách giữa các text bằng cách pick 2 điểm trên màn hình. Lúc đó khoảng cách giữa 2 điểm mà Út vừa Pick đó là khoảng cách Text
Chúc vui vẻ

Filename: 82060_sxt.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 82067
Tên lệnh: ctc
Viết lisp theo yêu cầu [phần 2]

Chào bạn Cadviet.MTV,
Bạn xài thử lisp này xem có vừa ý không nhé.

Chúc bạn vui.

Filename: 82067_ctc.lsp
Tác giả: Phiphi-
Bài viết gốc: 82408
Tên lệnh: td
Viết lisp theo yêu cầu [phần 2]

Thank you Bác, thôi thì Bác viết giúp em 1 cái Lisp mới vậy.
Merry Christmas and Happy New Year!

Lisp này có thể sửa lại để select các Circles và Line rồi ghi text như bản vẽ đã upload.

Filename: 82408_td.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 82519
Tên lệnh: tabc
Viết lisp theo yêu cầu [phần 2]

Hề hề hề,
Đúng là viết mới nhanh hơn sửa cái bác gửi bác phiphi ạ.
Nó đây nè. Bác coi xem đã ưng ý chưa nhé. Ở bảng BEND LINE POINTS có dư một cột NOTES. Ấy là do mình lười không muốn căn lại cái bảng. Nếu bác muốn bỏ nó đi thì nên căn lại cái bảng cho nó đèm đẹp là được bác ạ.

Chúc bác Giáng sinh vui vẻ. Hề hề hề.

Filename: 82519_tabc.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 82664
Tên lệnh: tabc
Viết lisp theo yêu cầu [phần 2]

Chào bác Phiphi-,
Hề hề hề,
Hy vọng cái lisp này sẽ làm bác có được Giáng sinh xôm trò. Nó giải quyết được cả việc bác có nhiều BEND LINES. Tuy nhiên bác phải nhớ rằng các BEND LINES này dứt khoát phải là các LINE bác nhé. Bác mà xài BEND LINE bằng LWPOLYLINE hay POLYLINE là hỏng hết bánh kẹo đó nha. Nó cũng sẽ đưa hệ trục tọa độ về cái điểm chuẩn mà bác đã chọn.
>>

Chào bác Phiphi-,
Hề hề hề,
Hy vọng cái lisp này sẽ làm bác có được Giáng sinh xôm trò. Nó giải quyết được cả việc bác có nhiều BEND LINES. Tuy nhiên bác phải nhớ rằng các BEND LINES này dứt khoát phải là các LINE bác nhé. Bác mà xài BEND LINE bằng LWPOLYLINE hay POLYLINE là hỏng hết bánh kẹo đó nha. Nó cũng sẽ đưa hệ trục tọa độ về cái điểm chuẩn mà bác đã chọn.
Khi lisp hỏi bác có muốn lập bảng tọa độ của BEND LINE thì bác trả lời "y", sau đó nó sẽ yêu cầu bác chọn tất cả các bend line bác có và nó sẽ cho ra bảng tọa độ mà bác muốn bác ạ.
Bác xài thử coi nhé.

Chúc bác một năm mới thành công. Hề hề hề.....
<<

Filename: 82664_tabc.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 82780
Tên lệnh: tabc
Viết lisp theo yêu cầu [phần 2]


Hề hề hề, bác Phiphi- ơi, có phải bác muốn món quà này không nhỉ???
Mình loay hoay mất một chút mới làm được cái món quà này, hy vọng bác sẽ hài lòng.


Có điều khi xài món quà này bác nhớ rằng cái plate contour của bác chắc chắn phải là một LWPOLYLINE bác nhé. Nếu không là bác tự chịu trách nhiệm đó chớ mình hổng có chịu đâu. Tại vì cái bản vẽ bác gửi thì...
>>

Hề hề hề, bác Phiphi- ơi, có phải bác muốn món quà này không nhỉ???
Mình loay hoay mất một chút mới làm được cái món quà này, hy vọng bác sẽ hài lòng.


Có điều khi xài món quà này bác nhớ rằng cái plate contour của bác chắc chắn phải là một LWPOLYLINE bác nhé. Nếu không là bác tự chịu trách nhiệm đó chớ mình hổng có chịu đâu. Tại vì cái bản vẽ bác gửi thì biên dạng tấm là một LWPOLYLINE. Hề hề hề.
Chúc bác luôn khỏe và vui.
Còn cái lisp bác gửi mình chưa gặm xong bác ạ, xem ra cũng nhiều xơ ra phết. Với cái vồn lisp hơi ngắn của mình, gặm nó hơi vất vả một tí bác ạ. Mong bác thông cảm cho mình nhé. Cái lisp này xài nhiều hàm quá mới mẻ đối với mình nên đành phải gặm từ từ thôi bác ạ, không có nó lại giắt răng vào đúng dịp Noel với lị tết Tây tết ta tùm lum thế này thì thiệt thòi lắm lắm. Hề hề hề......
<<

Filename: 82780_tabc.lsp
Tác giả: thiep
Bài viết gốc: 82839
Tên lệnh: repstring
Viết lisp theo yêu cầu [phần 2]

Bác ba dùng đoạn lisp Thiep sưu tầm dùng để tìm và lập lại tất cả các kiểu Text này xem:

Filename: 82839_repstring.lsp
Tác giả: Phiphi-
Bài viết gốc: 82845
Tên lệnh: ordy
Viết lisp theo yêu cầu [phần 2]


Chào bác phamthanhbinh.
Để hoàn thiện sản phẩm do bác viết và để mọi người sử dụng biết về nguồn gốc của LISP, PP đề nghị như sau:
+ Phần đầu có giới thiệu sơ qua mục đích của Lisp, disclaim và copyright của Bác.
+ Cuối Lisp có đoạn code để nhắc lại Lệnh của Lisp để User nhớ sử dụng.
Bác tham khảo 1 Lisp dưới đây để hiểu thêm ý của PP.

Góp ý...
>>

Chào bác phamthanhbinh.
Để hoàn thiện sản phẩm do bác viết và để mọi người sử dụng biết về nguồn gốc của LISP, PP đề nghị như sau:
+ Phần đầu có giới thiệu sơ qua mục đích của Lisp, disclaim và copyright của Bác.
+ Cuối Lisp có đoạn code để nhắc lại Lệnh của Lisp để User nhớ sử dụng.
Bác tham khảo 1 Lisp dưới đây để hiểu thêm ý của PP.

Góp ý thêm về Lisp trên Bác đã viết:
+ Bảng PLATE CONTOUR được lập ngay từ đầu, khỏi cần phải hỏi gì cả.
+ Kế tiếp là lập bảng HOLES LOCATION sau khi OK với bảng PLATE CONTOUR
+ Vị trí bảng HOLES LOCATION tự động đặt dưới bảng PLATE CONTOUR với khoảng cách 2 x text height.
+ Nếu cần lập bảng BEND LINE POINTS thì cũng tự động đặt dưới bảng HOLES LOCATION với khoảng cách 2 x text height.
+ Nếu được thì nên dùng chiều cao text trong Dim style đang dùng lúc đó để khỏi phải nhập chiều cao text.
Cám ơn Bác nhé. PP.

Lisp tham khảo:

<<

Filename: 82845_ordy.lsp
Tác giả: thiep
Bài viết gốc: 82931
Tên lệnh: scl
Viết lisp theo yêu cầu [phần 2]

Chào bác SSG, Thiep xin góp 1 lisp khác theo hướng sử dụng hàm acet-geom-intersectwith trong expresstool

Tip: nếu có 1 pline giao với n pline khác, nó sẽ bị scale n lần. Chương trình không kiểm tra việc đó, bạn phải tự chịu trách nhiệm lấy. SSG

Filename: 82931_scl.lsp
Tác giả: Doan Van Ha
Bài viết gốc: 184395
Tên lệnh: ha
Lisp vẽ spline qua các điểm.



Đây bạn!

Filename: 184395_ha.lsp
Tác giả: gia_bach
Bài viết gốc: 83172
Tên lệnh: pid
Viết lisp theo yêu cầu [phần 2]

Cám ơn các lời nhận xét của bác trinhvqh. (do chủ quan của nguời viết nên 1 số chi tiết chưa hoàn chỉnh)

Gửi bác Lisp đã cập nhật theo các yêu cầu ở trên.

về ý kiến : khoảng cách Text trong Table so với đường ngang bên dưới (hơi sát quá)
- tương tự Text và dimension, CAD cung cấp TABLE STYLE để quản lý các đối tuợng Table. Do đó khoảng cách Text trong Table (do LISP...
>>

Cám ơn các lời nhận xét của bác trinhvqh. (do chủ quan của nguời viết nên 1 số chi tiết chưa hoàn chỉnh)

Gửi bác Lisp đã cập nhật theo các yêu cầu ở trên.

về ý kiến : khoảng cách Text trong Table so với đường ngang bên dưới (hơi sát quá)
- tương tự Text và dimension, CAD cung cấp TABLE STYLE để quản lý các đối tuợng Table. Do đó khoảng cách Text trong Table (do LISP tạo ra) chỉ là tạm thời, tùy theo chủ quan và quy định mỗi nguời (cty) sẽ tự tạo TABLE STYLE theo ý mình.

Quản lý đối tuợng CAD theo các xì-tin (Style) cũng đuợc xem là một "PRỒ" chứ nhỉ ?! :(

<<

Filename: 83172_pid.lsp
Tác giả: thiep
Bài viết gốc: 83267
Tên lệnh: addleader
Viết lisp theo yêu cầu [phần 2]

Chào KTS dlong, yêu cầu này hình như bạn đã đăng 1 lần rồi thì phải, nó là đối tượng leader torence, chứ không phải block reference. dlong dùng lisp này thử, Thiep viết gần được 98%, lisp yêu cầu người dùng chọn gia số, số đầu tiên, Suffix , chiều cao text, người dùng pick 3 điểm để tạo 1 leader với text là torence. 2% còn lại chưa được là hình ảnh leader khi pick 3 điểm không hiện cùng...
>>

Chào KTS dlong, yêu cầu này hình như bạn đã đăng 1 lần rồi thì phải, nó là đối tượng leader torence, chứ không phải block reference. dlong dùng lisp này thử, Thiep viết gần được 98%, lisp yêu cầu người dùng chọn gia số, số đầu tiên, Suffix , chiều cao text, người dùng pick 3 điểm để tạo 1 leader với text là torence. 2% còn lại chưa được là hình ảnh leader khi pick 3 điểm không hiện cùng thời khi pick. Lisp nó đây:

<<

Filename: 83267_addleader.lsp
Tác giả: gia_bach
Bài viết gốc: 83276
Tên lệnh: rot
Viết lisp theo yêu cầu [phần 2]

Hình như bác phamthanhbinh nhầm với yêu cầu của bạn khác ?!
Trên CadViet chưa có Lisp : quay tất cả các text bên trong vòng tròn 1 góc nào đó, với tâm quay là tâm của vòng tròn đó.
(không cần quay vòng tròn - vòng tròn quay đều quay mãi ... vẫn là .... vòng tròn)
Bạn thử Lisp này :

Filename: 83276_rot.lsp
Tác giả: gia_bach
Bài viết gốc: 83298
Tên lệnh: rot
Viết lisp theo yêu cầu [phần 2]

Gửi bạn Lisp quay tất cả đối tuợng trong đuờng tròn.
(Tui e rằng mai mốt bạn lại yêu cầu quay thêm arc hay dimension ... )
Nhắc bạn : tại sao bạn không Upload file CAD (với file CAD mọi chuyện sẽ rõ ràng hơn).
nguời sử dụng CAD lại dùng File Word (document) để thể hiện hình ảnh (image)

Filename: 83298_rot.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 83311
Tên lệnh: mulro
Viết lisp theo yêu cầu [phần 2]

Chào bạn nqt266,
Dựa vào gợi ý của bác Gia bach, mình làm thử cái lisp này theo nguyên tắc giống như cái lisp gửi bạn muoild (để move nhiều đối tượng theo nhiều khoảng cách khác nhau). Cái lisp này sẽ cho bạn rotate nhiều nhóm đối tượng trong các vòng tròn lựa chọn mà mỗi nhóm quay theo một góc khác nhau. Nhưng bạn phải nhớ cái trật tự khi lựa chọn các vòng tròn và trật tự góc quay...
>>

Chào bạn nqt266,
Dựa vào gợi ý của bác Gia bach, mình làm thử cái lisp này theo nguyên tắc giống như cái lisp gửi bạn muoild (để move nhiều đối tượng theo nhiều khoảng cách khác nhau). Cái lisp này sẽ cho bạn rotate nhiều nhóm đối tượng trong các vòng tròn lựa chọn mà mỗi nhóm quay theo một góc khác nhau. Nhưng bạn phải nhớ cái trật tự khi lựa chọn các vòng tròn và trật tự góc quay khi nhập.
Bạn hãy thử xem nhé.

Chúc bạn vui.
<<

Filename: 83311_mulro.lsp
Tác giả: Tue_NV
Bài viết gốc: 83386
Tên lệnh: mulro
Viết lisp theo yêu cầu [phần 2]

Chào Phiphi.
Lisp của anh gia_bach, anh PhamThanhBinh và của Tue_NV viết theo yêu cầu của bạn nqt266 và chỉ có thể Rotate các đối tượng nằm trong CIRCLE, chứ chưa làm với đối tượng Block có vòng tròn.

Nếu bạn muốn sử dụng thêm Block thì sử dụng Lisp này của Tue_NV mới viết thêm. Mình chưa đáp ứng được yêu cầu của bạn là chọn Line thay vì phải nhập góc muốn quay vì dạo...
>>

Chào Phiphi.
Lisp của anh gia_bach, anh PhamThanhBinh và của Tue_NV viết theo yêu cầu của bạn nqt266 và chỉ có thể Rotate các đối tượng nằm trong CIRCLE, chứ chưa làm với đối tượng Block có vòng tròn.

Nếu bạn muốn sử dụng thêm Block thì sử dụng Lisp này của Tue_NV mới viết thêm. Mình chưa đáp ứng được yêu cầu của bạn là chọn Line thay vì phải nhập góc muốn quay vì dạo này Tue_NV cũng khá bận vì công việc. KHi nào rãnh thì Tue_NV mới viết thêm cho PP được. Thông cảm nhé
Bất kể điểm chèn Block nằm ở đâu thì Lisp chỉ quay tại tâm đường tròn đó mà thôi.
Lisp chấp nhận cả CIRCLE và Block
Bạn sử dụng Lisp này thử và cho ý kiến nhé:


<<

Filename: 83386_mulro.lsp
Tác giả: gia_bach
Bài viết gốc: 83387
Tên lệnh: rob
Viết lisp theo yêu cầu [phần 2]

Gửi bác Lisp quay Block thuộc tính tại điểm chèn.
góc có thể nhập trực tiếp hoặc Pick 2 điểm.

Filename: 83387_rob.lsp
Tác giả: Phiphi-
Bài viết gốc: 83709
Tên lệnh: swap
Viết lisp theo yêu cầu [phần 2]

Dùng lệnh SWAP để đổi text lẫn nhau

Filename: 83709_swap.lsp
Tác giả: Tue_NV
Bài viết gốc: 85033
Tên lệnh: scc
Viết lisp theo yêu cầu [phần 2]

+Thứ nhất : Truongthanh thử đoạn code này thử nhé :

+ Thứ hai : lệnh Scaletext sẽ giúp cho truongthanh
Truongthanh có thể đọc lệnh scaletext ở đây :

http://www.cadviet.com/forum/index.php?sho...amp;#entry51051

Filename: 85033_scc.lsp
Tác giả: Doan Van Ha
Bài viết gốc: 184409
Tên lệnh: ha
Lisp vẽ spline qua các điểm.


Đây bạn!

Filename: 184409_ha.lsp

Trang 65/308

65