Đến nội dung


Hình ảnh
- - - - -

Lisp chọn tất cả các đối tượng thuộc 1 layer !


  • Please log in to reply
22 replies to this topic

#21 Lê Chuột

Lê Chuột

    biết zoom

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

Đã gửi 27 May 2012 - 02:47 PM

Tại sao những việc đó bạn phải cần đến lisp vậy ^^ Các công cụ qselect, fi làm tốt mà. Còn nếu bạn cần thì đây ^^ Mình vídụ chọn layer 0

(defun c:chon()(sssetfirst nil (ssget "x" '((8 . "0")))))

Không biết lạ cad mình có vấn đề hay tại lisp, nhưng chỉ làm được 2 3 lần là lần sau có command mấy cũng trơ ra. :wacko:
  • 0

#22 mathan

mathan

    biết vẽ rectang

  • Members
  • PipPip
  • 83 Bài viết
Điểm đánh giá: 57 (tàm tạm)

Đã gửi 31 May 2012 - 09:47 AM

Các cao thủ lisp giúp em lisp này với
- Gõ lệnh ko
- Chọn đối tượng thì các đối tượng được chọn về layer defpoint
Thanks!

Thực ra bạn có thể chọn đối tượng rồi thay đổi layer trên thanh công cụ cũng là nhanh rồi
Nhưng nếu bạn muốn một LISP như vậy bạn dùng thử xem nhé
@ Mạn phép bác DOAN VAN HA chút nhé, đây chỉ là một cách khác

;;Free lisp code from CADViet.com
(defun c:ko ( / SS )
(prompt "\nChon cac doi tuong muon chuyen ve layer Defpoint: ")
(setq ss (ssget))
(command "CHANGE" "P" "" "PROPERTIES" "LAYER" "DEFPOINTS" "" )
(princ)
);;end defun

  • 0
-----------
Hình đã gửi Hãy chia sẻ để thấy có được nhiều hơn điều mình muốn!
Best regard,

#23 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 31 May 2012 - 04:23 PM

Thực ra bạn có thể chọn đối tượng rồi thay đổi layer trên thanh công cụ cũng là nhanh rồi
Nhưng nếu bạn muốn một LISP như vậy bạn dùng thử xem nhé
@ Mạn phép bác DOAN VAN HA chút nhé, đây chỉ là một cách khác

Vâng, dùng hàm command thì code ngắn hơn.
Tuy nhiên code của bạn thiếu 1 điều quan trọng: khi bản vẽ không có layer Defpoints thì lisp bị lỗi,
  • 0

* 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.