em xin lisp chỉnh sửa đường nét nhiều block cùng 1 lúc

[nguyencanh160890 1]

Em chào Anh Chị!

em có 1 vấn đề nhờ Anh Chị giúp đỡ.

Em có một số block http://www.cadviet.com/upfiles/3/115868_nguyencanh.dwgnhư file đính kèm, bây giờ làm thế nào để cùng 1 lúc em chỉnh độ đậm của nét thành blayer thay vì phải kích chọn từng block một để sửa. (làm rất lâu), mong Anh Chị giúp đỡ, em cần gấp.

 

[nguyencanh160890 1]

chào cả nhà, em đã tìm được lisp để làm được bài theo yêu cầu trên, nhưng còn 1 thắc mắc nữa đó là lisp em sử dụng không chuyển màu block cùng với màu bylayer được.

lisp em tham khảo có nội dung như sau ạ

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/72965-lam-sao-de-chuyen-line-weight-trong-block-thanh-bylayer/
(defun C:DLW()
  (vl-load-com)
  (command "UNDO" "BE")
  (vlax-for for-item (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for item for-item
      (vla-put-Lineweight item -1)
      )
    )
  (command "UNDO" "END")
  (princ)
  )
 

Nhờ Anh Chị hỗ trợ giúp đỡ tiếp.

[sgcq 726]

:D :D :D

lụi cái này vô thử xem bạn:

VLA-PUT-COLOR

 

http://www.cadviet.com/upfiles/3/110802_2lua_suu_tam.txt

:D :D :D

[nguyencanh160890 1]

Em không hiểu Anh muốn nói gì??? lisp gì mà dài thế ạ?

[sgcq 726]

:D :D :D

Ý 2 lúa là bạn lụi thử phương án bên dưới. Chứ chờ cao thủ thì hơi lâu. Công việc của cao thủ vẫn có chứ. :D

Còn cái lisp của 2 lúa sưu tầm là tập hơp một số lệnh của lisp.

 

 

(defun C:DLW()
  (vl-load-com)
  (command "UNDO" "BE")
  (vlax-for for-item (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for item for-item
      (vla-put-Lineweight item -1)

      (VLA-PUT-COLOR item -1)

      )
    )
  (command "UNDO" "END")
  (princ)
  )

[KangKung 250]

(VLA-PUT-COLOR item 256)

[sgcq 726]

:D :D :D

Vỗ tay.....................

:D :D :D

[nguyencanh160890 1]

em vẫn không hiểu (VLA-PUT-COLOR) là cái gì? tác dụng nó là gì mặc dù đã tìm hiểu trên mạng.

(VLA-PUT-COLOR item 256)

Em đã tìm trên cadviet nhưng đa phần các lisp đều chuyển các đối tượng kể các block về bylayer, nhưng đôi khi còn 1 số block khi em đúp và sửa  trực tiếp bên trong thì quan sát thấy màu và độ dày đường không theo bylayer. Mà em vẫn phải tiếp tục thao tác quét toàn bộ block rồi cho màu và độ dày theo bylayer.

 

Nếu 10 block thì không vấn đề, đằng này có tới 200. 300 block.... em chỉnh sửa lâu quá....

[nguyencanh160890 1]

Em đã làm xong rồi, cảm ơn mọi người quan tâm. hihi

Đặc biệt cảm ơn hai Anh

sgcq, KangKung

 

:D :D
  :D :D
  :D