Đến nội dung


Hình ảnh
- - - - -

Nhờ Chỉnh Lisp


  • Please log in to reply
7 replies to this topic

#1 phucquangcda

phucquangcda

    biết pan

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

Đã gửi 01 September 2015 - 08:56 AM

Có những lúc cần đổi màu của các đối tượng cùng một layer về bylayer nên mình đã viết lisp này.

Tuy nhiên, nó chạy nặng nên hơi phiền. Nhờ anh em kiểm tra cho ý kiến.


  • 0

#2 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 01 September 2015 - 09:41 AM

Có những lúc cần đổi màu của các đối tượng cùng một layer về bylayer nên mình đã viết lisp này.

Tuy nhiên, nó chạy nặng nên hơi phiền. Nhờ anh em kiểm tra cho ý kiến.

Phiền là sao? cho ý kiến là sao?  :unsure: 


  • 0

#3 phucquangcda

phucquangcda

    biết pan

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

Đã gửi 01 September 2015 - 10:07 AM

chạy lâu thì thấy phiền. muốn cải tiến để chạy nhanh hơn đó bạn. mình hay làm bình đồ nhiều đối tượng lắm.


  • 0

#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 01 September 2015 - 10:15 AM

"Lisp này" là lisp nào? Dòm hoài không thấy.


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


#5 phucquangcda

phucquangcda

    biết pan

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

Đã gửi 01 September 2015 - 02:16 PM

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


  • 0

#6 phucquangcda

phucquangcda

    biết pan

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

Đã gửi 01 September 2015 - 02:29 PM

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

là cái này anh Doan Van Ha


  • -1

#7 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 01 September 2015 - 04:05 PM

Thử Lisp này xem :) :

(defun c:DML (/ doc elist1 laname1)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) 
(vla-StartUndoMark doc) (vl-load-com)
(setq elist1 (entget (car (entsel "\nChon doi tuong can doi mau ByLayer"))))
(setq laname1 (cdr (assoc 8 elist1))) 
(if (ssget "X" (list (cons 8  laname1))) 
(vlax-map-collection (vla-get-ActiveSelectionset doc)
(function (lambda (ob) (vla-put-color ob 256))))	)
(vla-EndUndoMark doc) (princ)) 


  • 1

#8 phucquangcda

phucquangcda

    biết pan

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

Đã gửi 01 September 2015 - 04:41 PM

thanks pphung183 !


  • 0