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ề.....

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ề......

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:

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ỉ ?!

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:

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.

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é: