Nhờ viết lisp copy, move, rotate đối tượng theo 1 giá trị cho trước

[eakarphan 0]

Nhờ các cao thủ viết giúp em lisp này với. Em có một đối tượng cần copy( hoặc move) 1 khoảng là 50( có lúc là 100, 150) vậy có lisp nào mà  chỉ cần nhập lệnh mà không cần nhập khoảng cách mà vẫn copy(move) 1 khoảng theo giá trị đã gán sẵn trong lisp không ạ

Nói cho đễ hiểu là em chỉ cần nhập c1 thì tự hiểu luôn là copy 1 khoảng bằng 50

Tương tự thì c2->copy 100

C3->copy 150

M1-> move 50

M2-> move 100

M3->move 150

R1- rotate 1 góc 270

Vì  em phải thực hiện thao tác này rất nhiều lần và nhiều vị trí khác nhau nên nếu nhập khoảng cách hoặc góc xoay nữa thì mỏi tay lắm. Nhờ các cao thủ giúp đở. :unsure:

[quansla 259]

Thiếu giữ kiện bạn ạ, gửi file lên đi,

1. Move đi đâu, thẳng đưgns, nằm ngang, bất kỳ,
2. Xoay lấy tâm ở đâu (block lấy điểm chèn à, tẽxt lấy điểm chèn, polyline lấy cái mô)
3. Trả biết còn gì ko, k0 có file chắc chưa có ai liều giúp bạn đâu.

[eakarphan 0]

Cảm ơn a đã quan tâm,

Ý em là nó giống lệnh copy, move, rotate thôi nhưng không cần nhập giá trị nữa mà tự hiểu theo 1 giá trị gắn sẵn trong lisp rồi.

1. move(copy) 1 đối tượng theo phương bất kỳ ( phương thì mình chọn giống như lệnh offset vậy)

2. xoay thì mình tự chọn tâm

 

File cad: https://copy.com/dJ07SfEOHYOB

File nặng nên mở hơi lâu nha.

[Doan Van Ha 3.191]

Qua topic này tải về dùng nhé bạn.

http://www.cadviet.com/forum/topic/69748-yeu-cau-offset-chuyen-cu-voi-yeu-cau-moi/page-3