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

Tue_NV viết đoạn Code này theo yêu cầu của bạn. Hy vọng bạn hài lòng

Chú ý : Code trên sử dụng với trường hợp 2 đường vạt góc vuông góc với nhau
và 2 đường vát góc là 2 đối tượng riêng biệt

Filename: 69398_gktvg.lsp
Tác giả: ssg
Bài viết gốc: 6940
Tên lệnh: od oc
Đánh số thứ tự tăng dần

Bạn dùng thử chương trình sau. Có 2 lệnh:
1) Lệnh OD: Ordinate number with any format. Đánh số thứ tự với bất kỳ định dạng nào: số, chữ, chữ và số. Ví dụ:
Command: od
Begin at <1>: HTT-01-03. Nếu không nhập số, bấm Enter sẽ mặc định từ 1
Increment <1>: 3. Nếu không nhập số, bấm Enter sẽ lấy mặc định là 1
Base point <exit>: chỉ điểm -> HTT-01-03
>>

Bạn dùng thử chương trình sau. Có 2 lệnh:
1) Lệnh OD: Ordinate number with any format. Đánh số thứ tự với bất kỳ định dạng nào: số, chữ, chữ và số. Ví dụ:
Command: od
Begin at <1>: HTT-01-03. Nếu không nhập số, bấm Enter sẽ mặc định từ 1
Increment <1>: 3. Nếu không nhập số, bấm Enter sẽ lấy mặc định là 1
Base point <exit>: chỉ điểm -> HTT-01-03
Base point <exit>: chỉ điểm -> HTT-01-06
Base point <exit>: chỉ điểm -> HTT-01-09
.........
Đến khi... chán thì:
Base point <exit>: Enter -> Thoát

2) Lệnh OC: Ordinate number, Copy from template. Đánh số thứ tự bằng cách copy mẫu có sẵn. Hoạt động giống như trên, nhưng thay vì "Begin at" thì chọn một mẫu có sẵn và 1 điểm tham chiếu làm chuẩn (tương tự như trình của bạn Lê Huy Hà nhưng có thêm tính năng tùy chọn Increment theo ý bạn).
Các bạn dùng nếu thấy có gì bất ổn thì phản hồi để mình sửa.


<<

Filename: 6940_od_oc.lsp
Tác giả: Tue_NV
Bài viết gốc: 69543
Tên lệnh: gktvg
Viết Lisp theo yêu cầu

Bạn thử test Code này xem sao. Test cả trường hợp LINE và cả POLYLINE luôn bạn nhé :

Filename: 69543_gktvg.lsp
Tác giả: Tue_NV
Bài viết gốc: 69251
Tên lệnh: scdo
Hỏi về chỉnh kích thước hình tròn vẽ bằng lệnh donut
góp ý với 790312 : Bạn không nên post bài của bạn vào 2 chủ đề khác nhau
Đây là code Tue_NV đã chỉnh lại. Hy vọng bạn hài lòng.
Bạn sử dụng thử và cho ý kiến nhé :

Filename: 69251_scdo.lsp
Tác giả: gia_bach
Bài viết gốc: 69163
Tên lệnh: cth
Viết Lisp theo yêu cầu

Lisp đưa tất cả các text về đúng chiều cao trong style của text đó. (Trừ truờng hợp chiều cao của text khai báo trong TextStyle =0)
Lisp chưa tối ưu về thời gian nhưng kết quả chấp nhận đuợc. :s_dead:

Filename: 69163_cth.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 6922
Tên lệnh: ac
Viết Lisp theo yêu cầu

lệnh AC dưới đây làm theo cái bạn cần. AC là Array giống Copy Multi


Filename: 6922_ac.lsp
Tác giả: Tue_NV
Bài viết gốc: 68863
Tên lệnh: scdo
Hỏi về chỉnh kích thước hình tròn vẽ bằng lệnh donut


Điều này là đúng nhưng có rất nhiều donut thì điều này khi làm thì rất mất thời gian . Do đó nên có sự trợ giúp của Auto Lisp
Bạn 790312 sử dụng Lisp này Tue_nv Mới viết xem sao :

Filename: 68863_scdo.lsp
Tác giả: Tue_NV
Bài viết gốc: 68910
Tên lệnh: scdo
Hỏi về chỉnh kích thước hình tròn vẽ bằng lệnh donut

Tue_NV đã chỉnh lại.
Bạn thử Code này xem :

Filename: 68910_scdo.lsp
Tác giả: q288
Bài viết gốc: 68728
Tên lệnh: dth
tim list tính diện tích theo 2 tỷ lệ X Y khác nhau



Vậy bạn xài cái này.

Filename: 68728_dth.lsp
Tác giả: philipdn
Bài viết gốc: 68732
Tên lệnh: tdx
Vẽ đường trục đối xứng cho đường tròn.

Lisp thực hiện chức năng vẽ 2 đường trục đối xứng thẳng đứng và nằm ngang tại tâm đường tròn được chọn.


Filename: 68732_tdx.lsp
Tác giả: Thaistreetz
Bài viết gốc: 68610
Tên lệnh: tn
Nhờ diễn đàn sửa lisp ghi khoảng cách, cao độ trên cắt ngang


Cảm ơn anh Tue rất nhiều vì những góp ý rất bổ ích của anh. Đúng là em chưa biết về biến hệ thống ATTREQ này vì mặc định nó thường là 1.
về việc viết 3.1416 thay cho pi thì không ảnh hưởng gì lắm đến quá trình sử dụng lisp, nhưng đúng là đối với con mắt của nguời lập trình thì điều đó thật khó chấp nhận. cũng bởi vì truớc đây em mới chỉ học mỗi pascal trong...
>>


Cảm ơn anh Tue rất nhiều vì những góp ý rất bổ ích của anh. Đúng là em chưa biết về biến hệ thống ATTREQ này vì mặc định nó thường là 1.
về việc viết 3.1416 thay cho pi thì không ảnh hưởng gì lắm đến quá trình sử dụng lisp, nhưng đúng là đối với con mắt của nguời lập trình thì điều đó thật khó chấp nhận. cũng bởi vì truớc đây em mới chỉ học mỗi pascal trong truờng đại học, nên không nghĩ là các ngôn ngữ lập trình khác như autolisp cũng chấp nhận giá trị của Pi.

@Toại: để tính toán ứng với giá trị tỷ lệ của bản vẽ điều đó không khó, nhưng thực tế lisp này ta sử dụng chủ yếu trên trắc ngang (tỷ lệ là 1:1) vì thế mình không muốn đưa giá trị tỷ lệ khác của bản vẽ vào. sẽ rườm rà khi nhập số liệu trong khi ứng dụng cho nó hầu như rất ít.
Code mình đã sửa lại đây:

<<

Filename: 68610_tn.lsp
Tác giả: Thaistreetz
Bài viết gốc: 68615
Tên lệnh: tnx
Nhờ diễn đàn sửa lisp ghi khoảng cách, cao độ trên cắt ngang


theo tỷ lệ bản vẽ như nhu cầu của bạn. dùng cái nao tuỳ bạn nhé.

Filename: 68615_tnx.lsp
Tác giả: TRUNGNGAMY
Bài viết gốc: 67734
Tên lệnh: xoatexttrung
Viết Lisp theo yêu cầu

Bạn dùng tạm cái này

Filename: 67734_xoatexttrung.lsp
Tác giả: TRUNGNGAMY
Bài viết gốc: 67737
Tên lệnh: xoatexttrung
Viết Lisp theo yêu cầu

Cái file của bạn với những text trùng sau nhưng tọa độ lệch 1, 2 số cuối làm cho lệnh của cad tìm kg ra. Bạn chỉ nên dùng tạm líp sau chứ kg nên dùng cho nhiều file khác
Bạn dùng tạm cái này

Filename: 67737_xoatexttrung.lsp
Tác giả: Tue_NV
Bài viết gốc: 67256
Tên lệnh: coa
Xin lisp copy align

Code đây : rất ngắn gọn

Filename: 67256_coa.lsp
Tác giả: Tue_NV
Bài viết gốc: 67352
Tên lệnh: gdt
Viết Lisp theo yêu cầu

Bạn sử dụng đoạn code này xem sao :

Lisp tính được cả trong trường hợp n hình khoét lỗ và không khoét lỗ

Filename: 67352_gdt.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 67525
Tên lệnh: tab
Load file arx

Bạn thử thế này xem sao:

Filename: 67525_tab.lsp
Tác giả: Tue_NV
Bài viết gốc: 67240
Tên lệnh: coa
Xin lisp copy align

Bạn thử đoạn code này xem :

Specify first source point :
Specify first destination point:
Specify Second source point :
Specify Second destination point: giống như lệnh Align

Mong bạn làm được :s_big:

Filename: 67240_coa.lsp
Tác giả: Tue_NV
Bài viết gốc: 66867
Tên lệnh: ttoa
Viết Lisp theo yêu cầu

Chào bạn Phiphi, xuantran, truongthanh

Lisp sau Tue_NV đã cải tiến theo ý của bạn Xuantran, truongthanh
Khi chạy Lisp hỏi
1. Chọn các text để chuyển các Text thành Attribute
2. Chon cac doi tuong khac de tao thanh BLOCK ATTRIBUTE

Nếu ở bước 2 nếu bạn không chọn đối tượng thì chỉ có các Text chuyển thành Attribute
Nếu ở bước 2 nếu bạn chọn đối tượng thì các Text...
>>

Chào bạn Phiphi, xuantran, truongthanh

Lisp sau Tue_NV đã cải tiến theo ý của bạn Xuantran, truongthanh
Khi chạy Lisp hỏi
1. Chọn các text để chuyển các Text thành Attribute
2. Chon cac doi tuong khac de tao thanh BLOCK ATTRIBUTE

Nếu ở bước 2 nếu bạn không chọn đối tượng thì chỉ có các Text chuyển thành Attribute
Nếu ở bước 2 nếu bạn chọn đối tượng thì các Text và các đối tượng được chọn ở bước 2 chuyển thành Attribute

Đây là Lisp hoàn thiện

:s_big:
<<

Filename: 66867_ttoa.lsp
Tác giả: Tue_NV
Bài viết gốc: 66990
Tên lệnh: gct
Viết Lisp theo yêu cầu

Bạn thử Code này xem :

Filename: 66990_gct.lsp

Trang 8/330

8