Command : _.PSELECT

Bạn chọn tất cả các đối tượng LINE, POLYLINE, LWPOLYLINE, ARC cần chuyển về 1 mặt phẳng

Nếu quá nhiều dối ttượng khác nhau thì sủ dụng bộ lọc

Trên hộp thoại chuyển toàn bộ hệ tọa độ Z của đối tượng về 0

>>

Command : _.PSELECT

Bạn chọn tất cả các đối tượng LINE, POLYLINE, LWPOLYLINE, ARC cần chuyển về 1 mặt phẳng

Nếu quá nhiều dối ttượng khác nhau thì sủ dụng bộ lọc

Trên hộp thoại chuyển toàn bộ hệ tọa độ Z của đối tượng về 0

Sau đó sủ dụng lệnh lisp này xem thử (nếu điểm đầu cà cuối của 2 đối tượng trùng nhau)

Sau một hồi vọc vạch, mình làm ra cái này. Quả là trâu chậm uống nước đục, mình lọ mọ ra được cái ni tưởng đã oai mà so với các bác khác còn kém quá.

Tuy nó chưa hẳn đã đúng ý bạn, song nó cũng có thể thỏa mãn phần nào cái ý tưởng của bạn.

Mình sử dụng file text...

Sau một hồi vọc vạch, mình làm ra cái này. Quả là trâu chậm uống nước đục, mình lọ mọ ra được cái ni tưởng đã oai mà so với các bác khác còn kém quá.

Tuy nó chưa hẳn đã đúng ý bạn, song nó cũng có thể thỏa mãn phần nào cái ý tưởng của bạn.

Mình sử dụng file text của bạn và file DCL của bạn, tuy nhiên có chỉnh sửa tí chút:

1/- bỏ cái dòng trắng trong file text để khi đọc file khỏi bị lỗi.

2/- Bỏ bới thằng Selection trong cái líst của tile \\\\\\\"W\\\\\\\" vì thấy nó thừa không cần thiết.



File lisp dùng lệnh ai như bạn muốn, song khi chọn xong trong tile \\\\\\\"W\\\\\\\" cái tile \\\\\\\"Wx\\\\\\\" không thay đổi chi cả mà nó vẫn giữ cái danh sách cũ. (ở đây mình cho nhập cái list là (\\\\\\\"1\\\\\\\" \\\\\\\"2\\\\\\\" \\\\\\\"3\\\\\\\" \\\\\\\"4\\\\\\\") theo đúng số lượng các thành phần có trong các W?x? của file text bạn gửi. Như vậy tùy trường hợp bạn có thể bổ sung hay thu hẹp cái list này cho phù hợp.

Từ đó việc lấy text ra màn hình bạn có thể kiểm tra trên cả 4 tile của hộp thoại ( chứ không phải chỉ có 3 tile như bạn muốn)

Sở dĩ mình làm vầy là do cái trình độ về DCL còn chuối lắm, chưa biết có cách nào để đổi cái danh sách trong menu xổ xuống của DCL cả. Đọc tài liệu và thử mò mẫm thì thấy rằng việc nhập danh sách cho các tile chứa menu xổ xuống phải nhập trước khi gọi (action_tile .....). Mà muốn có thằng danh sách của tile \\\\\\\"Wx\\\\\\\" lại phải chạy (action_tile \\\\\\\"W\\\\\\\" .......) Thế là loay hoay hoài không ra nên mình làm kiểu chuối này cũng thấy dùng được. Bạn hãy test thử xem nhé.

Lấy các giá trị từ file *.txt nhập vào các tile trong hộp thoại AISC được tạo trước. File AISC.dcl có kèm theo trong file lisp này.





Chú ý là mình chưa khử biến đâu nhé. Hãy cẩn thận kẻo có xung đột với các lisp khác. Tốt nhất bạn nên load và chạy riêng một mình nó thôi đã. Việc khử biến chắc chẳng quá khó với bạn đâu, nhưng mình hơi vội nên chưa làm thôi.

Chúc bạn vui.

@Bác ketxu, Tue_NV, npham: các bác có võ gì để đổi được cái danh sách trong menu xổ xuống của các tile trong hộp thoại sau khi đã tải nó lên tile rồi thì bày cho mình với. Tức quá làm hoài không ra??????

- Có 12 bản vẽ chẳng hạn
- Đánh số thứ tự bản vẽ như sau: 1/12, 2/12,...,12/12
- Mỗi chữ text 1/12, 2/12,...,12/12 cách đều nhau 1 khoảng là 420
H e muốn làm như sau:
+ Nhập số bản vẽ: 12
+ Nhập khoảng cách đều giữa các text: 420
+ Pick điểm lựa chọn và xuất hiện...

- Có 12 bản vẽ chẳng hạn
- Đánh số thứ tự bản vẽ như sau: 1/12, 2/12,...,12/12
- Mỗi chữ text 1/12, 2/12,...,12/12 cách đều nhau 1 khoảng là 420
H e muốn làm như sau:
+ Nhập số bản vẽ: 12
+ Nhập khoảng cách đều giữa các text: 420
+ Pick điểm lựa chọn và xuất hiện 12 text như đã nói ở trên cùng nằm trên 1 hàng cách nhau 420

Một bản vẽ mới được thiết lập. Vẫn những layer đó, vẫn những kiểu text đó, vẫn những kiểu dim đó...Bạn không cần thiết phải làm lại từ đầu vì quá mất thời gian. Vậy làm thế nào???

( Tất cả các LISP CODE bạn chỉ việc copy rồi save ra file cùng tên với...

Một bản vẽ mới được thiết lập. Vẫn những layer đó, vẫn những kiểu text đó, vẫn những kiểu dim đó...Bạn không cần thiết phải làm lại từ đầu vì quá mất thời gian. Vậy làm thế nào???

( Tất cả các LISP CODE bạn chỉ việc copy rồi save ra file cùng tên với lệnh lisp và có phần mở rộng la .LSP (ví dụ: TaoL.LSP) là ok /laugh.gif\' class=\'bbc_emoticon\' alt=\':lol:\' /> )



Bài 1: Tạo Layer







Với lisp này lệnh để tạo kiểu kích thước sẽ là TaoK.

Các thông số cần nhập

1. Tỷ lệ bản vẽ: (Thường là 1/1, cũng có thể là 1/2 tùy vào kiểu dim bạn muốn tạo)

2. Chiều cao chữ: (Tùy thuộc vào bản vẽ của bạn)

3. Tên kiểu dim mới: (Nên đặt theo chiều cao của chữ)

Trong quá trình bạn vẽ, bạn gặp phải 1 sự thay đổi. Bạn muốn save file lại để phòng sau này cần phải revert. Bạn làm gì?

Thông thường, chúng ta sẽ save as sang 1 file khác, đặt tên theo số. Ví dụ MBT3_1, MBT3_2,... Nhưng có 1 nhược điểm là khi bạn vẽ bản vẽ có sử dụng ánh xạ Xref,...

Trong quá trình bạn vẽ, bạn gặp phải 1 sự thay đổi. Bạn muốn save file lại để phòng sau này cần phải revert. Bạn làm gì?

Thông thường, chúng ta sẽ save as sang 1 file khác, đặt tên theo số. Ví dụ MBT3_1, MBT3_2,... Nhưng có 1 nhược điểm là khi bạn vẽ bản vẽ có sử dụng ánh xạ Xref, nếu tên file bị thay đổi, hệ thống ánh xạ theo tên sẽ gặp vấn đề.

Lisp dưới đây để giải quyết trường hợp trên. Lệnh OSAVE của nó sẽ Save As Copy file hiện hành vào thư mục có tên là OLD nằm cùng thư mục với bản vẽ hiện hành. Tên file sẽ là TENFILEGOCxxx, trong đó xxx là 3 số sẽ được tự động thêm vào sau mỗi lần dùng lệnh OSAVE. Bạn nhớ rằng lệnh OSAVE không hề thực hiện lệnh Save hay Save As bản vẽ hiện hành. Vì vậy khi tắt CAD, bạn cần phải save nếu không muốn mất dữ liệu (tất nhiên là nếu mất thì sẽ revert từ thư mục OLD được). Tên file gốc không hề thay đổi khi sử dụng lệnh OSAVE.

- Tất cả các ý của bạn đều có thể làm được tuy nhiên để làm được thì đòi hỏi phải đầu tư thêm time và rất phức tạp vì phải phân loại Scale, rotatay còn nếu chỉ so sánh với đối tượng mẫu thì chỉ cần...

- Tất cả các ý của bạn đều có thể làm được tuy nhiên để làm được thì đòi hỏi phải đầu tư thêm time và rất phức tạp vì phải phân loại Scale, rotatay còn nếu chỉ so sánh với đối tượng mẫu thì chỉ cần thêm vài đoạn mã nữa là ổn, tùy theo yêu cầu cụ thể của bạn bạn hãy chịu khó nghiên cứu và phát triển, code của tôi chưa chắc đã là hay, bạn hãy tìm tòi và tham khảo thêm.
- Lệnh SSGET trong code của tôi là lệnh cho phép bạn chọn theo vùng rồi đó, có phải là chọn tất cả đâu, nếu là tự động chọn tất cả câu lệnh sẽ là thế này:
(ssget "x" (list (cons 0 "INSERT") (cons 2 BlName)))
Còn đây là code so sánh với Block mẫu

Để in bản vẽ ở các tỷ lệ khác nhau, ta cần 3 loại đối tượng chính để hiệu chỉnh kích thước là: Dim, Text, Các ký hiệu.
Cách làm như sau: Để chuyển Dim, chúng ta chỉ việc tạo một Dim mới rồi dùng lệnh DimUpdate với toàn bộ Dim trong bản vẽ là xong. Để chuyển text từ...

Để in bản vẽ ở các tỷ lệ khác nhau, ta cần 3 loại đối tượng chính để hiệu chỉnh kích thước là: Dim, Text, Các ký hiệu.
Cách làm như sau: Để chuyển Dim, chúng ta chỉ việc tạo một Dim mới rồi dùng lệnh DimUpdate với toàn bộ Dim trong bản vẽ là xong. Để chuyển text từ tỷ lệ A sang tỷ lệ B (với tất cả các text), bạn hãy sử dụng lisp STE (Scale TExt) của cadviet. lệnh này có chức năng scale text như lệnh scale nhưng bạn không phải bắt điểm. Chương trình sẽ tự động detect điểm chèn của text và scale từng đối tượng text theo điểm này. Để chuyển các ký hiệu từ tỷ lệ A sang tỷ lệ B, hãy sử dụng lisp SB (Scale Block) của cadviet. Lệnh này giống như lệnh STE, scale từng block theo điểm chèn của nó.