Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
hawking312

[Yêu cầu] Nhờ các bác giúp giùm lisp rotate theo góc có sẵn

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

Chào các bác, em viết bài nhờ các bác giúp giùm em 1 lisp, giống như lisp đang dùng trong speedcad.
Đó là R90, R-90, R45, R-45, ....
do em đang cần thêm R0 hay R30, 25 gì đó nữa.

Mong nhờ các bác giúp đỡ em lisp này nhé. Em cảm ơn nhiều.

  • Vote giảm 2

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
Vào lúc 28/2/2022 tại 11:51, quocmanh04tt đã nói:

Bạn dùng thử lisp này (sau khi load, dưới dòng command có hướng dẫn sử dụng).

 

Rxxx.rar

cảm ơn bác đã giúp đỡ, nhưng chưa phải ý của mình, nó như thế này. Nó là 1 lisp trong bộ cài Speedcad, lệnh R90 để rotate 90 độ, R-90 để rotate ngược lại 90 độ, ... Mong muốn nhờ mọi người giúp viết lại thành lisp để có thể thêm lệnh R0, Nhờ bác giúp ạ, cảm ơn bác
https://files.fm/f/2h7t6bc95
 

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
16 phút trước, hawking312 đã nói:

Video_2022-03-04_091421.gif


Bạn tự chỉnh tên lệnh và số đo góc ở phần có số 45 :
(defun c:r45()(command "rotate" (ssget) "" pause 45))


(defun c:r45()(command "rotate" (ssget) "" pause 45))

 

 

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
6 giờ trước, ketxu đã nói:

 

bác cho hỏi, lệnh đây đã đúng như ý muốn cho các góc xoay. Nhưng còn muốn lệnh r0 để xoay về góc 0 độ ban đầu thì thế nào bác. cảm ơn bác

4 giờ trước, cuongtk2 đã nói:

Xét về thao tác thì lệnh này chỉ hơn  lệnh tắt 1 lần Enter.

em dùng thấy tiện và thoải mái hơn, tiết kiệm thao tác hơn cho nhiều đối tượng đó ạ

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
9 giờ trước, hawking312 đã nói:

cảm ơn bác đã giúp đỡ, nhưng chưa phải ý của mình, nó như thế này. Nó là 1 lisp trong bộ cài Speedcad, lệnh R90 để rotate 90 độ, R-90 để rotate ngược lại 90 độ, ... Mong muốn nhờ mọi người giúp viết lại thành lisp để có thể thêm lệnh R0, Nhờ bác giúp ạ, cảm ơn bác
https://files.fm/f/2h7t6bc95
 

- Ố ố ... Lisp của mình đáp ứng được mà! Bạn gõ lệnh R90 hay R91, R92, R-93 ... R130... đều được (số bất kỳ nằm sau R là được).

- Còn cái R0 bạn nói thì may ra làm được với *Text, Block (các đối tượng có thông tin về góc xoay), với nhóm đối tượng bất kỳ thì khó mà khả thi.

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
Vào lúc 4/3/2022 tại 18:45, quocmanh04tt đã nói:

- Ố ố ... Lisp của mình đáp ứng được mà! Bạn gõ lệnh R90 hay R91, R92, R-93 ... R130... đều được (số bất kỳ nằm sau R là được).

- Còn cái R0 bạn nói thì may ra làm được với *Text, Block (các đối tượng có thông tin về góc xoay), với nhóm đối tượng bất kỳ thì khó mà khả thi.

xin lỗi bác, đúng như toàn bộ quote của bác, mình ẩu quá chưa làm đúng theo như lisp bác và cũng xịn thật luôn, còn vụ R0 thì mình thấy nó cũng khá cần thiết đối với cá nhân, cũg như làm việc thoải mái hơn, dù sao cũng cảm ơn bác nhiều vì lisp xịn xò ạ

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
Đăng nhập để thực hiện theo  

×