Đến nội dung


Hình ảnh
* - - - - 1 Bình chọn

[Yêu Cầu]Lisp chuyển Layer về thành Bylayer


  • Please log in to reply
32 replies to this topic

#1 hugo007

hugo007

    biết lệnh erase

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

Đã gửi 19 August 2011 - 07:12 PM

Nhờ các bác viết giùm lisp khi đánh lệnh tất cả layer bị đổi màu sẽ trở về bylayer giùm e.Vì e không bao giờ đổi màu kiểu này khi nhận bản vẽ người khác đưa rất khó chịu.Thanks.
  • -2

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 19 August 2011 - 07:38 PM

Bạn viết tên tiêu đề và giải thích tối nghĩa quá. Bản thân Layer mang màu của nó chứ nó làm gì có màu "ByLayer" nữa ... Ngoài ra, topic bạn lập trùng nội dung, bạn có thể nhìn thấy ngay bên dưới bài bạn những bài có nội dung tương tự đã được lập
  • 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


#3 hugo007

hugo007

    biết lệnh erase

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

Đã gửi 19 August 2011 - 07:58 PM

Cảm ơn các bác,mình đã tìm được lisp đúng theo ý mình rồi.Cảm ơn diễn đàn.
  • 1

#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 19 August 2011 - 09:12 PM

... Bản thân Layer mang màu của nó chứ nó làm gì có màu "ByLayer" nữa ..."

Hình như Ket hiểu nhầm ý bạn ấy rồi. Thầy bói: bạn ấy đang muốn mỗi lớp có mỗi màu theo bylayer, nghĩa là khi khi thay đổi màu của bylayer thì màu của layer đó cũng thay đổi theo.
Với lại: khi nào xuất hiện trên truyền hình thì cứ cho hiện tên (màu xanh), chứ đừng hidden chán lắm.
Thân thương!
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#5 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 19 August 2011 - 09:17 PM

Ket theo dõi bài viết của bạn ấy từ đầu nên hiểu vấn đề chứ : mục đích của bạn ấy là : Chuyển những đối tượng đã bị đổi màu về màu của Layer đối tượng đó, hay nói cách khác, chuyển màu của tất cả các đối tượng về ByLayer! Không thể có khái niệm Chuyển Layer về ByLayer được :)
P/S : quan trọng gì đèn đâu bác, chủ yếu là vẫn cố gắng theo dõi thôi :blush:
  • 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


#6 cd2k44

cd2k44

    Edu level: li5

  • Members
  • PipPipPipPipPipPipPip
  • 648 Bài viết
Điểm đánh giá: 121 (tàm tạm)

Đã gửi 19 August 2011 - 10:16 PM

Nhờ các bác viết giùm lisp khi đánh lệnh tất cả layer bị đổi màu sẽ trở về bylayer giùm e.Vì e không bao giờ đổi màu kiểu này khi nhận bản vẽ người khác đưa rất khó chịu.Thanks.

Mình không rành nhiều về lisp nên chỉ biết viết cho bạn cái lệnh này,bạn dùng thử xem có được không

(defun c:dmla ()
(command "undo" "begin")
(command "change" "all" "" "p" "c" "bylayer" "LT" "bylayer" "LW" "bylayer" "" "")
(command "undo" "end")
(princ)
)

  • 3

#7 dinhvietvan

dinhvietvan

    biết zoom

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

Đã gửi 06 December 2011 - 03:12 PM

dùng qselect, chọn multiple, chọn not equal, chọn by layer xong hehe, quá đơn giản cấn gì lisp phức tạp
  • 0

#8 cd2k44

cd2k44

    Edu level: li5

  • Members
  • PipPipPipPipPipPipPip
  • 648 Bài viết
Điểm đánh giá: 121 (tàm tạm)

Đã gửi 07 December 2011 - 07:53 AM

dùng qselect, chọn multiple, chọn not equal, chọn by layer xong hehe, quá đơn giản cấn gì lisp phức tạp

Không biết bạn có đọc kỹ yêu cầu của chủ topic không nhỉ
  • 0

#9 engineer0405

engineer0405

    biết vẽ polygon

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

Đã gửi 08 April 2012 - 10:55 AM

Mình không rành nhiều về lisp nên chỉ biết viết cho bạn cái lệnh này,bạn dùng thử xem có được không


(defun c:dmla ()
(command "undo" "begin")
(command "change" "all" "" "p" "c" "bylayer" "LT" "bylayer" "LW" "bylayer" "" "")
(command "undo" "end")
(princ)
)

em chào anh ạ
anh cho em nhờ tý ạ
với lisp trên nhưng mình chỉ chọn một vùng nào đó thôi thì thêm thế nào ạ
chứ không phải hết bản vẽ
em cảm ơn ạ
  • 0

#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 08 April 2012 - 11:03 AM

em chào anh ạ
anh cho em nhờ tý ạ
với lisp trên nhưng mình chỉ chọn một vùng nào đó thôi thì thêm thế nào ạ
chứ không phải hết bản vẽ
em cảm ơn ạ

Sửa lại:

(defun c:dmla ( / ss)
(command "undo" "begin")
(princ "\nChon cac doi tuong can thay doi...")
(setq ss (ssget))
(command "change" ss "" "p" "c" "bylayer" "LT" "bylayer" "LW" "bylayer" "" "")
(command "undo" "end")
(princ))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#11 dovananh.xd

dovananh.xd

    biết lệnh offset

  • Members
  • PipPipPip
  • 174 Bài viết
Điểm đánh giá: 25 (tàm tạm)

Đã gửi 08 April 2012 - 02:24 PM

Thầy bói: bạn ấy đang muốn mỗi lớp có mỗi màu theo bylayer, nghĩa là khi khi thay đổi màu của bylayer thì màu của layer đó cũng thay đổi theo.
Với lại: khi nào xuất hiện trên truyền hình thì cứ cho hiện tên (màu xanh), chứ đừng hidden chán lắm.
Thân thương!

Anh Hà làm cái lisp này đi, ý tưởng hay đó:)
  • 0

#12 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 April 2012 - 03:17 PM

Anh Hà làm cái lisp này đi, ý tưởng hay đó :)

=))
  • 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


#13 dovananh.xd

dovananh.xd

    biết lệnh offset

  • Members
  • PipPipPip
  • 174 Bài viết
Điểm đánh giá: 25 (tàm tạm)

Đã gửi 08 April 2012 - 03:55 PM

=))

Cười chi?:">
  • 0

#14 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 April 2012 - 08:48 PM

Khả năng của layer là như thế chứ còn lisp láp j nữa đây :D
  • 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


#15 dovananh.xd

dovananh.xd

    biết lệnh offset

  • Members
  • PipPipPip
  • 174 Bài viết
Điểm đánh giá: 25 (tàm tạm)

Đã gửi 09 April 2012 - 09:07 AM

Khả năng của layer là như thế chứ còn lisp láp j nữa đây :D

HEHE, anh Kẹt xu ơi, em đang dùng một lisp đổi màu đối tượng trên diễn đàn. Ví dụ muốn đối tượng màu 1 thì click vào đối tượng, gõ phím 1, rồi enter cái cạch phát là nó đổi màu. Và tất nhiên màu 1 đấy không phải là màu bylayer của layer vẽ đối tượng đó - Bylayer là màu trắng - (khi tạo mới layer mà chưa đặt màu cho layer thì màu mặc định là màu trắng). Ý của thầy bói là màu 1 thành màu bylayer của layer đó đấy chứ!
Hihi;)). Đây là lisp đổi màu đối tượng em tìm trên diễn đàn:
http://www.cadviet.c.../3/89140_dm.lsp
  • 0

#16 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 09 April 2012 - 09:30 AM

HEHE, anh Kẹt xu ơi, em đang dùng một lisp đổi màu đối tượng trên diễn đàn. Ví dụ muốn đối tượng màu 1 thì click vào đối tượng, gõ phím 1, rồi enter cái cạch phát là nó đổi màu. Và tất nhiên màu 1 đấy không phải là màu bylayer của layer vẽ đối tượng đó - Bylayer là màu trắng - (khi tạo mới layer mà chưa đặt màu cho layer thì màu mặc định là màu trắng). Ý của thầy bói là màu 1 thành màu bylayer của layer đó đấy chứ!
Hihi;)). Đây là lisp đổi màu đối tượng em tìm trên diễn đàn:
http://www.cadviet.c.../3/89140_dm.lsp

Lấy lisp của Ket hỏi ngay Ket: hên quá!
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#17 dovananh.xd

dovananh.xd

    biết lệnh offset

  • Members
  • PipPipPip
  • 174 Bài viết
Điểm đánh giá: 25 (tàm tạm)

Đã gửi 09 April 2012 - 09:40 AM

Lấy lisp của Ket hỏi ngay Ket: hên quá!

Hihi;)) Té ra là lisp của anh Ket, em không nhớ!
  • 0

#18 dinhdungnd86

dinhdungnd86

    Chưa sử dụng CAD

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

Đã gửi 09 April 2012 - 09:49 AM

Lấy lisp của Ket hỏi ngay Ket: hên quá!

cho em hỏi sử dụng list này như thế nào vậy.cảm ơn nhiều.
  • 0

#19 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 09 April 2012 - 09:53 AM

HEHE, anh Kẹt xu ơi, em đang dùng một lisp đổi màu đối tượng trên diễn đàn. Ví dụ muốn đối tượng màu 1 thì click vào đối tượng, gõ phím 1, rồi enter cái cạch phát là nó đổi màu. Và tất nhiên màu 1 đấy không phải là màu bylayer của layer vẽ đối tượng đó - Bylayer là màu trắng - (khi tạo mới layer mà chưa đặt màu cho layer thì màu mặc định là màu trắng). Ý của thầy bói là màu 1 thành màu bylayer của layer đó đấy chứ!
Hihi;)). Đây là lisp đổi màu đối tượng em tìm trên diễn đàn:
http://www.cadviet.c.../3/89140_dm.lsp

Nếu đổi màu thành ByLayer thì chọn đối tượng rồi chọn màu là Bylayer trên thanh công cụ là được.
Tue_NV thấy đơn giản mà.

Còn có thể là Tue_NV chưa hiểu ý của bạn. Nếu vậy, bạn vui lòng nói rõ.


cho em hỏi sử dụng lisp này như thế nào vậy.cảm ơn nhiều.

Bạn apload Lisp ->
-> gõ 1 vào Command -> Chọn đối tượng -> Lisp đổi màu đối tượng đó thành màu 1
-> gõ 2 vào Command -> Chọn đối tượng -> Lisp đổi màu đối tượng đó thành màu 2
-> gõ 3 vào Command -> Chọn đối tượng -> Lisp đổi màu đối tượng đó thành màu 3
......
.......
  • 0

#20 dovananh.xd

dovananh.xd

    biết lệnh offset

  • Members
  • PipPipPip
  • 174 Bài viết
Điểm đánh giá: 25 (tàm tạm)

Đã gửi 09 April 2012 - 10:12 AM

Nếu đổi màu thành ByLayer thì chọn đối tượng rồi chọn màu là Bylayer trên thanh công cụ là được.

Hihi;))
Em đưa ra bài toán cụ thể như sau:
1/ Mở CAD lên --> gõ lệnh LA enter --> New layer --> Đặt tên layer mới là Layer1, Color: Yellow, Linetype: Continuos...
2/ Apload lisp DM.lsp
3/ Vẽ line: L enter (Vẽ một đoạn thẳng bất kỳ)
4/ Gõ 1 enter, select objects: chọn vào đường line vừa vẽ. En tơ.
Yêu cầu: màu 1 thành màu bylayer của layer1.
Hy vọng anh hiểu!
P/s: Một ngày click Like this tối đa bao nhiêu lần các anh nhỉ?
  • 0