Chuyển đến nội dung
Diễn đàn CADViet

dovananh.xd

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    185

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi dovananh.xd

  4. Đã đăng · Trả lời báo cáo

    Mình nhớ cái lisp đổi màu mà bạn yêu cầu đã có rồi bạn ah.Hoặc trên cơ sở lisp của bác duy đã viết bạn thay các dòng sau:

    "Defun c:1 or 2,3,....225";tên lệnh bạn muốn gán

    Xóa dòng sau:(princ "\nChon mau muon doi :")(setq m (acad_colordlg 7))

    Và thay đổi dòng này nữa:(command "change" ss "" "P" "c" m "") thành (command "change" ss "" "P" "c" 1 ""); 1 này chính là màu bạn muốn đổi

    Không được rồi bác ơi, em đã chuyển đổi như hướng dẫn nhưng không được.

    Ở dòng Defun c: 1 or 2,3,...225... đấy, bây h em muốn click đối tượng trước sau đó bấm phím 1 thì màu đối tượng đó sẽ là màu 1...tương tự 225 thì màu đối tượng là 225?

    Em sửa lisp như trên nhưng không được. Bác xem lại hộ em phát!

  5. Đã đăng · Trả lời báo cáo

    Mình nhớ cái lisp đổi màu mà bạn yêu cầu đã có rồi bạn ah.Hoặc trên cơ sở lisp của bác duy đã viết bạn thay các dòng sau:

    "Defun c:1 or 2,3,....225";tên lệnh bạn muốn gán

    Xóa dòng sau:(princ "\nChon mau muon doi :")(setq m (acad_colordlg 7))

    Và thay đổi dòng này nữa:(command "change" ss "" "P" "c" m "") thành (command "change" ss "" "P" "c" 1 ""); 1 này chính là màu bạn muốn đổi

    Cả 2 đều hay! hí

    Có lớp nào dạy viết lisp không các bác?

  7. Đã đăng · Trả lời báo cáo

    -Lisp trên chỉ thay đổi màu của layer chứa đối tượng bạn chọn chứ ko phải "hết tất cả layer về cùng một màu".

    -Bạn muốn "những đối tượng mình chọn mới thay đổi thành màu khác" nghĩa là thay màu của đối tượng ko còn là bylayer nửa phải ko?

    *Nếu vậy thì dùng này:

    (defun c:dm (/ m ss)
(command "undo" "be")
 (princ "\nChon doi tuong muon doi mau:")
 (setq ss (ssget))
 (princ "\nChon mau muon doi :")(setq m (acad_colordlg 7))
(command "change" ss "" "P" "c" m "")
(command "undo" "end")
(setvar "MODEMACRO" "**KTS_DUY**")
(princ)
)

     

    Tôi đã xoá các bài của kexu và thanhdatkts đề nghị tập trung vào chuyên môn.

    @thanhdatkts: đề nghị chồng cho tôi 1 dấu + nếu không tôi chồng cho bạn 1 dấu trừ đấy! tongue.gif

    Lisp này dùng rất là hay và tiện dùng.

    Bác có thể phát triên lisp này thành một cái tiện hơn nữa. Ví dụ như chỉ cần load lisp này lên sau đó chọn đối tượng=>bấm phím 1, màu đối tượng đó là màu 1...255.

    Chắc chắn là bác làm được!

    P/S: Sửa lại một chút: sau khi gõ lệnh đổi màu (VD: dm) sau đó chọn đối tượng và bấm phím 1...225 là đối tượng đó đổi màu theo chứ không cần hiện lên cái bảng chọn màu như trong lisp đó nữa.

  14. Đã đăng · Trả lời báo cáo

    nếu cái khung bên model của bạn là một rectang thì bạn có thể xài lisp này. Sau khi bạn gõ lệnh zs bạn chọn cái khung là lisp làm việc!!

    (defun c:zs(/ dt)
(command "Mspace")
 (setq dt (car(entsel))
)
 (command "zoom" (vlax-curve-getPointatParam dt 1) (vlax-curve-getPointatParam dt 3))
(command "pspace")
(princ)
 )

    Thanks pro nhiều lắm!

    Dùng thế này cũng đã tiện hơn rất nhiều rồi.

  17. Đã đăng · Trả lời báo cáo

     

    Express -> layout tools -> align space

     

     

    Command: <Switching to: Layout1>

    Regenerating layout.

    Regenerating model - caching viewports.

    Command:

    Command:

    Command: alignspace

    FIRST alignment point in MODEL space:

    SECOND point in MODEL space or <Return> for none:

    FIRST alignment point in PAPER space:

    SECOND alignment point in PAPER space:

    Paper space = Model space

    ..........

    Thanks!

    Bác ơi, nhưng làm trong trường hợp nhiều khung giống nhau bên model và bên layout cũng có nhiều khung MV như thế thì làm cách nào cho nhanh ạ?

  19. Đã đăng · Trả lời báo cáo

    Em xin trình bày rõ hơn về yêu cầu của mình:

    Bên model có một khung REC tỷ lệ với một khung MV bên layout, làm thế nào để đưa khung REC bên model trùng khít với khung MV bên layout? Với câu hỏi trên thì làm theo cách sau:" Z enter\ shift + chuột phải chọn Endpoint\ click điểm 1\ shift + chuột phải chọn Endpoint\ click điểm 2 " . Và vấn đề đặt ra ở đây là bên model có nhiều khung REC chứa nhiều nội dung khác nhau trong đó cần đưa sang bên layout tương tự nhau. Nhờ các pro viết dùm em cái lisp này với ạ. Thanks rất nhiều!

  25. Đã đăng · Trả lời báo cáo

     

    Nếu ý bạn là như hình chụp thì làm như sau:

    Z enter\ shift + chuột phải chọn Endpoint\ click điểm 1\ shift + chuột phải chọn Endpoint\ click điểm 2

     

    ah.png

     

     

    Cái này hay đấy, đúng ý rồi. Bây h bác phát triển cái này thành lisp đi để anh em cùng tham khảo và sử dụng trong trường hợp có nhiều Rec. Thanks bác rất nhiều!

×