Lisp đổi kiểu nét thành Hidden2 và Line type scale = 0.2?

[hhhhgggg 29]

Bác Pro nào viết cho em cái lisp đổi kiểu nét thành Hidden2 và Line type scale = 0.2 đi ?

vì công việc này em hay phải làm nên muốn dùng Lisp hỗ trợ tốc độ. Cảm ơn các bác nhìu !!!!!!! Em xin cảm ơn và biếu các bác mấy chú gà Quay làm để hậu tạ......

[transu 19]

Bác Pro nào viết cho em cái lisp đổi kiểu nét thành Hidden2 và Line type scale = 0.2 đi ?

vì công việc này em hay phải làm nên muốn dùng Lisp hỗ trợ tốc độ. Cảm ơn các bác nhìu !!!!!!! Em xin cảm ơn và biếu các bác mấy chú gà Quay làm để hậu tạ......

mình có lisp đổi layer cấp tốc thôi

[duy782006 1.543]

Bác Pro nào viết cho em cái lisp đổi kiểu nét thành Hidden2 và Line type scale = 0.2 đi ?

vì công việc này em hay phải làm nên muốn dùng Lisp hỗ trợ tốc độ. Cảm ơn các bác nhìu !!!!!!! Em xin cảm ơn và biếu các bác mấy chú gà Quay làm để hậu tạ......

Đây bạn:

 

(Defun c:chuyen ( )

(Prompt "\nChon doi tuong muon chuyen ...")

(Setq chuyen (Ssget))

(command "chprop" chuyen "" "lt" "Hidden2" "s" "0.2" "")

(Princ)

)

 

Bạn có thể chỉnh dạng đường và tỉ lệ theo ý bạn (nếu cần cái khác nữa). Lưu ý dạng đường Hidden2 phải được load vào bản vẽ rồi.

[hhhhgggg 29]

Đây bạn:

 

(Defun c:chuyen ( )

(Prompt "\nChon doi tuong muon chuyen ...")

(Setq chuyen (Ssget))

(command "chprop" chuyen "" "lt" "Hidden2" "s" "0.2" "")

(Princ)

)

 

Bạn có thể chỉnh dạng đường và tỉ lệ theo ý bạn (nếu cần cái khác nữa). Lưu ý dạng đường Hidden2 phải được load vào bản vẽ rồi.

Cảm ơn bác Duy nhé. Lisp của bác OKK thật đó !!!!!!!!

[tuan_thietkedien 15]

Cảm ơn bác Duy nhé. Lisp của bác OKK thật đó !!!!!!!!

 

Xin chào

 

Bác Duy có thể bổ sung thêm là nếu mình muốn ( Color đỏ, Layer day dien, Linetype hidden2, Linetype Scale 0.8, Lineweight 0.2mm, Style standard, Width factory 0.8)

 

Xin bác Duy chỉ giáo thêm. :cheers:

[damletam 21]

Bác Pro nào viết cho em cái lisp đổi kiểu nét thành Hidden2 và Line type scale = 0.2 đi ?

vì công việc này em hay phải làm nên muốn dùng Lisp hỗ trợ tốc độ. Cảm ơn các bác nhìu !!!!!!! Em xin cảm ơn và biếu các bác mấy chú gà Quay làm để hậu tạ......

Bạn xem thử cái này nhé

http://www.cadviet.com/upfiles/TV1.lsp

http://www.cadviet.com/upfiles/TV.lsp

[Tue_NV 3.912]

Xin chào

 

Bác Duy có thể bổ sung thêm là nếu mình muốn ( Color đỏ, Layer day dien, Linetype hidden2, Linetype Scale 0.8, Lineweight 0.2mm, Style standard, Width factory 0.8)

 

Xin bác Duy chỉ giáo thêm. B)

Sao bạn đòi hỏi nhiều quá vây? :cheers:

 

(Defun c:chuyen ( ) 
(Prompt "\nChon doi tuong muon chuyen ...")
(Setq chuyen (Ssget))
(command "Layer" "m" "daydien" "C" "1" "" "")
(command "style" "Standard" "" "" "0.8" "" "" "" "")
(command "chprop" chuyen "" "LA" "daydien" "Color" "1" "lt" "HIDDEN2" "s" "0.8" "")
(Princ)
)

[tuan_thietkedien 15]

Sao bạn đòi hỏi nhiều quá vây? :cheers:

 

(Defun c:chuyen ( ) 
(Prompt "\nChon doi tuong muon chuyen ...")
(Setq chuyen (Ssget))
(command "Layer" "m" "daydien" "C" "1" "" "")
(command "style" "Standard" "" "" "0.8" "" "" "" "")
(command "chprop" chuyen "" "LA" "daydien" "Color" "1" "lt" "HIDDEN2" "s" "0.8" "")
(Princ)
)

 

Chào bạn

Tớ đang làm cho cty Nhật nên yêu cầu quản lý tiêu chuẩn khi thiết kế bản vẽ khắt khe lắm.

Cám ơn bạn nhiều nha.

Sau này mong được chỉ giáo thêm. B)

À, không biết mọi người trong diễn đàn có mở lớp dạy viết Lisp không nhỉ?

[duy782006 1.543]

Chào bạn

Tớ đang làm cho cty Nhật nên yêu cầu quản lý tiêu chuẩn khi thiết kế bản vẽ khắt khe lắm.

Cám ơn bạn nhiều nha.

Sau này mong được chỉ giáo thêm. :cheers:

À, không biết mọi người trong diễn đàn có mở lớp dạy viết Lisp không nhỉ?

Việc giới thiệu sang 1 diển đàn khác thì không hay lắm. Nhưng bạn hỏi thì mình giới thiệu các bài viết hướng dẩn của mình đây!

http://tailieukythuat.com/index.php?showto...entry2400

Nếu BQT thấy bài này không hợp lệ thì cứ del!