Lisp tạo layer DEMO và chuyển đối tượng trong boundary vào layer đó.

[proonline1202 0]

Chào mọi người
Mình cần viết Lisp chuyển các đối tượng nằm trong đường boundary thành đối tượng thuộc layer DEMO và freeze nó đi.

Ví dụ :  Mình có các đối tượng thuộc STRC-BUILDING nằm trong boundary mình sẽ tạo 1 layer STRC-BUILDING-DEMO sau đó chuyển toàn bộ đối tượng vào layer STRC-BUILDING-DEMO và frreeze nó.

Tương tự mình có các đối tượng thuộc layer STRC-BUILDING-HATCH nằm trong boundary, mình tạo layer STRC-BUILDING-HATCH-DEMO và chuyển đối tượng vào layer đó, sau đó freeze lại.

Mọi người viết giúp mình được không ạ|
Cảm ơn mọi người.

Mình đính kèm file cad dưới bài viết ạ.

 

[Danh Cong 422]

+ Đã có cách chọn đối tượng nằm trong hoặc giao cắt với 1 đường polynline. Có mấy thao tác thôi, lisp làm gì cho mệt?

[proonline1202 0]

3 giờ trước, Danh Cong đã nói:

+ Đã có cách chọn đối tượng nằm trong hoặc giao cắt với 1 đường polynline. Có mấy thao tác thôi, lisp làm gì cho mệt?

Chọn xong là một chuyện, chuyển nó vào layer demo rồi freeze nó tốn thời gian lắm bác à. Làm một ít thì được chứ nhiều đối tượng là làm mệt nghỉ :(((

[Biet ve CAD 258]

6 giờ trước, proonline1202 đã nói:

Chọn xong là một chuyện, chuyển nó vào layer demo rồi freeze nó tốn thời gian lắm bác à. Làm một ít thì được chứ nhiều đối tượng là làm mệt nghỉ :(((

Bạn thử lisp này xem cvk.zip

[proonline1202 0]

15 giờ trước, Biet ve CAD đã nói:

Bạn thử lisp này xem cvk.zip

Cảm ơn bạn đã giúp đỡ, nhưng lisp này vẩn chưa thực hiện được như mình mong muốn.
Lisp của bạn khi chọn đường boundary nó chuyển toàn bộ đối tượng về layer hiện hành.
Mình cần chọn các đối tượng và tạo layers mới rồi đưa vào đó. 

Trong file cad mình có làm rồi bạn xem giúp mình với. 

Cảm ơn bạn

[Biet ve CAD 258]

40 phút trước, proonline1202 đã nói:

Cảm ơn bạn đã giúp đỡ, nhưng lisp này vẩn chưa thực hiện được như mình mong muốn.
Lisp của bạn khi chọn đường boundary nó chuyển toàn bộ đối tượng về layer hiện hành.
Mình cần chọn các đối tượng và tạo layers mới rồi đưa vào đó. 

Trong file cad mình có làm rồi bạn xem giúp mình với. 

Cảm ơn bạn

Lisp này sẽ đưa đối tượng trong pline vào layer của pline đó, bạn cho pline về đúng layer bạn tạo rồi dùng lisp 

[proonline1202 0]

4 phút trước, Biet ve CAD đã nói:

Lisp này sẽ đưa đối tượng trong pline vào layer của pline đó, bạn cho pline về đúng layer bạn tạo rồi dùng lisp 

Cảm ơn bạn, ý của mình là như thế này:
Trong cái pline đó có nhiều đối tượng thuộc nhiều layer khác nhau, mình cần lọc từng đối tượng thuộc từng layer rồi tạo một layer mới giống tên layer của đối tượng đó và thêm "-DEMO"vào phía sau, sau đó chuyển đối tượng đó vào layer vừa tạo sau đó Freeze nó đi.

[Biet ve CAD 258]

Bạn thử lại xem cvk.zip

Chọn pline bao trước, sau đó lần lượt pick chọn đối tượng cần freez

[proonline1202 0]

 

2 giờ trước, Biet ve CAD đã nói:

Bạn thử lại xem cvk.zip

Chọn pline bao trước, sau đó lần lượt pick chọn đối tượng cần freez

Cảm ơn bạn đã giúp. Mình thử làm nhưng nó bị lỗi này.
Bạn chỉnh giùm mình với

 

[Biet ve CAD 258]

11 phút trước, proonline1202 đã nói:

Cảm ơn bạn đã giúp. Mình thử làm nhưng nó bị lỗi này.
Bạn chỉnh giùm mình với

Giờ mới để ý bạn dùng cad civil, mình ko cài cad civil nên ko test được

vừa thử trên file cad bạn gửi bằng autocad 2018 vẫn chạy tốt

Chỉnh sửa Tháng 7 2, 2018 theo Biet ve CAD

[proonline1202 0]

Khi nó hỏi nếu chọn đối tượng giao cắt hay không, nếu chọn có thì nó bị lỗi vậy bạn à, còn khi chọn không thì dùng được.

À thêm 1 điều nữa là các layer nó bị đổi màu với style mất tiu :))

Cảm ơn bạn đã giúp đỡ

 

[Biet ve CAD 258]

Thử lại lần nữa xem cvk.zip

[proonline1202 0]

 

1 giờ} trướ}c, Biet ve CAD đã nói:

Thử lại lần nữa xem cvk.zip

Bạn giữ nguyên các thông số layers như linestyle, color... giùm mình được không bạn.
Lisp chạy ngon ơ rùi nhưng mà bị đổi mất mấy thông số của layer :((((

[Biet ve CAD 258]

mình có thay đổi gì đâu

nếu bạn tạo trước layer thì ko bị

còn không phải sửa lại lisp tự tạo layer demo mới theo tính chất layer cũ (cái này bạn ko nói từ đầu, chỉ nói là tạo layer mới thêm demo  thôi)

[proonline1202 0]

2 phút trước, Biet ve CAD đã nói:

mình có thay đổi gì đâu

nếu bạn tạo trước layer thì ko bị

còn không phải sửa lại lisp tự tạo layer demo mới theo tính chất layer cũ (cái này bạn ko nói từ đầu, chỉ nói là tạo layer mới thêm demo  thôi)

Bạn sửa được sửa giùm mình với. Cảm ơn bạn nhiều.

[Biet ve CAD 258]

1 phút trước, proonline1202 đã nói:

Bạn sửa được sửa giùm mình với. Cảm ơn bạn nhiều.

vấn đề nữa là trong cái vùng chọn kín đó có cả đối tượng thuộc layer demo, nên khi pick đt thì lại tạo ra cái layer demo của demo

mình sẽ sửa lại như sau:

- bạn đã tạo sẵn layer demo, nên lisp sẽ ko tạo mới nữa

- chỉ chuyển đối tượng về layer demo thôi nhé

[proonline1202 0]

6 phút trước, Biet ve CAD đã nói:

vấn đề nữa là trong cái vùng chọn kín đó có cả đối tượng thuộc layer demo, nên khi pick đt thì lại tạo ra cái layer demo của demo

mình sẽ sửa lại như sau:

- bạn đã tạo sẵn layer demo, nên lisp sẽ ko tạo mới nữa

- chỉ chuyển đối tượng về layer demo thôi nhé

Như vậy củng được bản, cảm ơn bạn nhiều

[Biet ve CAD 258]

39 phút trước, proonline1202 đã nói:

Như vậy củng được bản, cảm ơn bạn nhiều

quả này mà lỗi nữa thì .......-

- không có layer demo nó sẽ tự tạo layer demo giống layer ko demo (cho bạn đỡ mất công tạo )

- cho nên pick chọn thoải mái

cvk.zip

[proonline1202 0]

Vào lúc 2/7/2018 tại 14:19, Biet ve CAD đã nói:

quả này mà lỗi nữa thì .......-

- không có layer demo nó sẽ tự tạo layer demo giống layer ko demo (cho bạn đỡ mất công tạo )

- cho nên pick chọn thoải mái

cvk.zip

Perfect rồi bạn, cảm ơn bạn nhiều nhé. ^_^