Đến nội dung


Hình ảnh
- - - - -

Lisp chuyển hatch về 1 màu


  • Please log in to reply
8 replies to this topic

#1 mrsmart

mrsmart

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 21 December 2010 - 10:22 AM

Nhờ mọi người viết lisp cho e một lisp chuyển toàn bộ hatch trong bản vẽ về 1 màu ví dụ 250 để em dễ quản lý khi in. Ở trên diễn đàn em search có chuyển toàn bộ hatch về 1 layer nhưng em nghĩ chỉ cần chuyển toàn bộ các hatch về 1 màu là đủ không cần phải 1 layer vì mỗi người quản lý một kiểu riêng.
Thanks mọi người đã quan tâm.
  • 0

#2 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 21 December 2010 - 01:55 PM

Nhờ mọi người viết lisp cho e một lisp chuyển toàn bộ hatch trong bản vẽ về 1 màu ví dụ 250 để em dễ quản lý khi in. Ở trên diễn đàn em search có chuyển toàn bộ hatch về 1 layer nhưng em nghĩ chỉ cần chuyển toàn bộ các hatch về 1 màu là đủ không cần phải 1 layer vì mỗi người quản lý một kiểu riêng.
Thanks mọi người đã quan tâm.

Viết thì đc nhưng mình nghỉ bạn ko nên vẽ theo màu thế là ko chuyên nghiệp.

(Defun C:cvl ( )

(Princ "\nHay chon vung :")
(setq xx (ssget '((0 . "hatch"))))

(if (Null xx)
(princ "\nKhong tim thay doi tuong nao")
)
(IF (/= NIL xx) (PROGN

(princ "\nDang thuc hien ...............................")
(command "change" xx "" "Properties" "c" "250" "")
)
)
(princ "\nChuyen doi xong")
(Princ)
)

  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#3 mrsmart

mrsmart

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 21 December 2010 - 02:34 PM

Cảm ơn bác Duy, nhưng cái bản vẽ kiến trúc cái bọn em cần in là bản vẽ thiết kế về M&E nên phần hatch của xây dựng bọn em chỉ muốn nó mờ đi để thể hiện được bản vẽ M&E thôi mà. Nếu có kinh nghiem góp ý gì bác cứ nói e sẽ tiếp thu, hj!
  • 0

#4 mrsmart

mrsmart

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 21 December 2010 - 02:37 PM

Ah cho em hỏi ở đây đã chọn được như tất cả các hatch nhưng em thấy có hatch đã bị block thì nó chưa chọn được, bác xem lại hộ em chút !
Thanks
  • 0

#5 mrsmart

mrsmart

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 22 December 2010 - 09:22 AM

Hix ae giúp mình cái nào :undecided:
  • 0

#6 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 22 December 2010 - 11:40 AM

Mình nhớ đã có bài yêu cầu change color hatch trong block ở 4room rồi, và code của nó rất chi là.... khủng.Bạn tìm thử xem sao ^^
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#7 mrsmart

mrsmart

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 22 December 2010 - 12:22 PM

ok để mình search coi, cái chuyển toàn bộ màu của bản vẽ kiến trúc về 1 màu thì mình có nhưng vướng cái hatch khi in nó cứ đậm wa. Ngoài cách chuyển toàn bộ màu của hatch về 250 thì có cách nào để in hatch ko bị đậm nữa không mọi người nhỉ :undecided:
  • 0

#8 18011985

18011985

    biết lệnh properties

  • Members
  • PipPipPipPip
  • 255 Bài viết
Điểm đánh giá: 61 (tàm tạm)

Đã gửi 22 December 2010 - 12:33 PM

Mía ơi sao phải dùng lsp nhỉ dùng filter một nhát và sau đó 1 dùng Properties 2 là dùng change chuyển màu (các newbie cũng đã viết lsp ấn số chuyển màu roài) thế là xong mà.
Trong filter chỉ cần để lại mỗi: Object - Hatch sau đó apply rồi all rồi đổi màu thía là xong. :undecided:
  • 0
Trăng 16 trăng tròn
Em 16 bụng ... như trăng

Hướng dẫn sử dụng diễn đàn:
Để cảm ơn hay bài viết có ích: Ấn dấu + cuối bài.
Không vừa lòng hay bài spam: Ấn dấu - cuối bài.

#9 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 22 December 2010 - 01:38 PM

Vấn đề là hatch trong Block bác ơi ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC