Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
hhhhgggg

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

Các bài được khuyến nghị

hhhhgggg    30

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.377
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hhhhgggg    30
Đâ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 đó !!!!!!!!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
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)
)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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ỉ?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.377
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!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×