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

(Yêu cầu) xin lisp copy, move đối tượng rồi xoay

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

Em vừa thử lisp của bác Tuệ, theo em thì lệnh MOCORO...SO vẫn là món ăn cổ truyền NGON BỔ $ RẺ hơn BR! :) :) :)

 

Cũng tuỳ thôi em, như bạn hiepttr cũng đã nói, tuỳ vào công việc lặp đi lặp lại nhiều lần hay không mà sử dụng thôi, với MOCORO thì mất thời gian phải nhập C hay R. Nếu việc cứ lặp đi lặp lại nhiều thì CR sẽ nhanh hơn

  • Vote tăng 1

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

Chào các bạn. Tôi kiếm được cái Lisp này. Nó cũng hay nhưng tôi muốn thêm chức năng mà không biết về lập trình. Bạn nào giúp tôi với. Cụ thể như sau:

1. Tôi muốn chon thêm đối tượng như: ellipse, spline, Mtext, hatch...càng chon nhiều đối tượng càng tôt.

2. Trong phần chon theo màu hoặc layer . Bạn có thể cho thêm chức năng Enter thì sẽ liệt kê màu tương ứng số mấy, và liệt kê danh sách các layer để chọn

3. Thêm các lựa chọn hiệu chỉnh: Mirror,...

 

Thanks các bạn nhiều.http://www.cadviet.com/upfiles/3/45198_editfilter.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

Chào các bạn. Tôi kiếm được cái Lisp này. Nó cũng hay nhưng tôi muốn thêm chức năng mà không biết về lập trình. Bạn nào giúp tôi với. Cụ thể như sau:

1. Tôi muốn chon thêm đối tượng như: ellipse, spline, Mtext, hatch...càng chon nhiều đối tượng càng tôt.

2. Trong phần chon theo màu hoặc layer . Bạn có thể cho thêm chức năng Enter thì sẽ liệt kê màu tương ứng số mấy, và liệt kê danh sách các layer để chọn

3. Thêm các lựa chọn hiệu chỉnh: Mirror,...

 

Thanks các bạn nhiều.http://www.cadviet.com/upfiles/3/45198_editfilter.lsp

Hề hề hề,

1/- Muốn cái chi thì thêm cái nớ vào trong các dòng code:

 (initget 1 "Arc Circle Line Polyline Text")

 (setq res (getkword "\nEdit<Arc/Circle/Line/Pline/Text>"))

và nhớ theo đúng mẫu người ta đã làm.

2/- Muốn làm thì phải có thêm các hộp thoại bạn mới có thể lựa chọn trên đó. Điều này cần có thời gian chứ không phải mì ăn liền.

3/- Như 1.

tất nhiên muốn thêm lệnh nào thì phải hiểu về cấu trúc và cách sử dụng của nó để mà thực hiện các bước tiếp theo của lệnh.

 

Hề hề hề,

Và đây là cái có lẽ bạn không cần nữa rồi. Tuy nhiên đã mất công ngịch ngợm thì mình cứ post lên cho .... vui. Và nếu ai đó muốn có thể tham khảo.

Lưu ý các file dcl sau khi tải về phải được xả vào trong một thư mục có trong đường dẫn tìm kiếm của CAD.

Bảng chọn màu mới chỉ có 7 màu cơ bản của CAd và nếu muốn mọi người có thể tự thêm nó vào trong danh sách mycol. Thực ra cũng có thể tạo một list lấy tấc cả các màu có trong các layer trên bản vẽ để nhét vào list này, cách làm tương tự như việc lấy danh sách các layer nhưng mình chả muốn làm nên để chơi vậy. Tất nhiên nếu làm như vậy thì trong lisp cũng phải sửa đổi chút chút và cũng chỉ dành cho những ai có đủ thấu hiểu về lisp như và hơn mình.

Ngoài ra cũng có thể lấy tòan bộ danh sách các màu có trên bản vẽ cũng được nhưng khá mất công.

Một lưu ý nữa là khi chọn layer thì cho phép người dùng có thể chọn nhiều layer bằng cách sử dụng lựa chọn cùng phím Ctrl. Còn khi lựa chọn màu thì chỉ cho phép chọn một màu duy nhất mà thôi.

Mọi người nếu muốn đều có thể chỉnh sửa lisp này theo ý muốn để thuận tiện cho việc sử dụng của mỗi cá nhân.

http://www.cadviet.com/upfiles/3/5194_45198_editfilter.lsp

http://www.cadviet.com/upfiles/3/5194_getlay.rar

http://www.cadviet.com/upfiles/3/5194_getcolor.rar

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


×