Đến nội dung


Hình ảnh
- - - - -

Nhờ Sửa Lisp Chuyển Nhanh Layer


  • Please log in to reply
3 replies to this topic

#1 txquychk51

txquychk51

    biết vẽ ellipse

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

Đã gửi 28 May 2016 - 09:06 AM

e có tham khảo được 2 lisp này, sử dụng bình thường, giờ muốn nhờ mọi người ghép hộ e thành 1 lisp. yêu cầu lisp sau khi ghép: nếu chọn các đối tượng, dùng lệnh (đã được gán lệnh từ 01-->16 cho các layer) thì các đối tượng được chọn sẽ chuyển về layer mình đã gán (màu đối tượng là by layer); nếu không chọn đối tượng nào, nhập lệnh (đã được gán lệnh từ 01-->16 cho các layer) thì layer đó sẽ là layer hiện hành.http://www.cadviet.c...o_doi_tuong.lsp

http://www.cadviet.c...r_hien_hanh.lsp

 


  • 0

#2 phongtran86

phongtran86

    biết lệnh offset

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

Đã gửi 28 May 2016 - 10:04 AM

e có tham khảo được 2 lisp này, sử dụng bình thường, giờ muốn nhờ mọi người ghép hộ e thành 1 lisp. yêu cầu lisp sau khi ghép: nếu chọn các đối tượng, dùng lệnh (đã được gán lệnh từ 01-->16 cho các layer) thì các đối tượng được chọn sẽ chuyển về layer mình đã gán (màu đối tượng là by layer); nếu không chọn đối tượng nào, nhập lệnh (đã được gán lệnh từ 01-->16 cho các layer) thì layer đó sẽ là layer hiện hành.http://www.cadviet.c...o_doi_tuong.lsp

http://www.cadviet.c...r_hien_hanh.lsp

(vl-load-com) ;;them vao dầu lisp thôi
(defun c:01() 
  (prompt "_.change ")
  (princ "\n thay doi layer sang layer netlien")
  (setq sset (ssget))
  (if (null sset)
	(progn
  	(princ "\nChuyen layer hien hanh")
(vl-cmdf "clayer" "01.Outline1") ;;;them dong nay nhe
  	(exit)
	) )
(command "_.change" sset "" "P" "la" "01.Outline1" "") ;muon doi layer khac thi ban doi ten layer netlien nhe
(princ))

sửa cho bạn 1 layer làm mẫu thôi. Thêm cái (vl-cmdf "clayer" "tên layer cần hiện hành") vào trc exit là dc


  • 1

#3 txquychk51

txquychk51

    biết vẽ ellipse

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

Đã gửi 28 May 2016 - 10:14 AM

dạ vâng, e cảm ơn bác. e thử đã rồi e phản hồi sau nhé


  • 0

#4 txquychk51

txquychk51

    biết vẽ ellipse

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

Đã gửi 28 May 2016 - 10:46 AM

e đã thử và oki r bác ơi. cảm ơn ạ


  • 0