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

Nhờ viết lisp chọn các đối tượng để move

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

Nhờ viết lisp chọn các đối tượng để move

Em đang cần như thế này:

Em muốn chọn các đối tượng trong bản vẽ có nhiều đối tượng trên đó, ở các vị trí khác nhau

Đói tượng chon để di chuyển nằm trong cửa sổ mình cho tọa độ góc cửa sổ là giá trị biến

sau khi chọ được đối tượng thì move ra chỗ khác

Xin các bạn giúp đỡ!

Cảm ơn!

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ẫn báo lỗi Không tìm thấy file trên server! Bạn có thể up lên http://www.mediafire.com/

Cám ơn các bạn quan tâm nhé!

đây là file

http://www.mediafire.com/download/i1wiixbh76mf582/Ch%E1%BB%8Dn_%C4%91%E1%BB%91i_t%C6%B0%E1%BB%A3ng_move1.dwg

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

Lần này thì down được, nhưng nhìn bản vẽ thì lại tăng thêm phần... không hiểu.

Có cảm giác như bạn muốn copy ra nhiều lần?

Có cảm giác như là rất dễ nhưng rất khó vì không hiểu chi trơn.

Tóm lại: 

đầu vào: làm những gì?

đầu ra: đạt được gì?

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

Lần này thì down được, nhưng nhìn bản vẽ thì lại tăng thêm phần... không hiểu.

Có cảm giác như bạn muốn copy ra nhiều lần?

Có cảm giác như là rất dễ nhưng rất khó vì không hiểu chi trơn.

Tóm lại: 

đầu vào: làm những gì?

đầu ra: đạt được gì?

Mình cần chọn đối tượng ở trong hình tròn (có thể trong hình vuông, chữ nhật ) mầu trắng đó sau đó move đến vị trí khác mà

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

botay.com

Tức là nếu làm bình thường(dùng tay trên màn hình cad)

thì:

command: move   enter

  chọn đối tượng   enter

chọn điểm gốc để move

chọn điểm move đến

Thế mà bạn

Còn mình cần lisp để làm những việc trên

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ức là nếu làm bình thường(dùng tay trên màn hình cad)

thì:

command: move   enter

  chọn đối tượng   enter

chọn điểm gốc để move

chọn điểm move đến

Thế mà bạn

Còn mình cần lisp để làm những việc trên

Lisp thì bạn cũng phải làm 4 thao tác màu đỏ như cad. Vậy, có gì tiện hơn ở lisp?

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

Lisp thì bạn cũng phải làm 4 thao tác màu đỏ như cad. Vậy, có gì tiện hơn ở lisp?

Đây chỉ là đoạn lisp để mình ghép vào chương trình nó làm hàng trăm thao tác chọn đối tượng--> move

để tiết kiệm thời gian mà

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ậy chăng?

(setq ss (ssget))

(setq p1 (getpoint "\nDiem goc: "))

(setq p2 (getpoint p1 "\nDiem den: "))

(command "move" ss "" p1 p2)

Bạn ơi lệnh:

 

(setq ss (ssget))

có chọn được các đối tượng mình cần trên bản vẽ nhiều đối tượng k?

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

Bạn ơi lệnh:

 

(setq ss (ssget))

có chọn được các đối tượng mình cần trên bản vẽ nhiều đối tượng k?

Trong lệnh move bạn chọn như thế nào thì hắn chọn như thế đó. Có 1 việc là thử mà cũng không làm được ư?

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

Trong lệnh move bạn chọn như thế nào thì hắn chọn như thế đó. Có 1 việc là thử mà cũng không làm được ư?

Ý mình là không dùng tay để chọn các đối tượng này mà dùng cửa sổ để chọn(tọa độ các góc cửa sổ)

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

Trong lệnh move bạn chọn như thế nào thì hắn chọn như thế đó. Có 1 việc là thử mà cũng không làm được ư?

Ý mình là không dùng tay để chọn các đối tượng này mà dùng cửa sổ để chọn(tọa độ các góc cửa sổ)

Mà mình thử rồi k được như thế

Lisp move hàng trăm lần mà thế thì k ổn

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

Ý mình là không dùng tay để chọn các đối tượng này mà dùng cửa sổ để chọn(tọa độ các góc cửa sổ)

Mà mình thử rồi k được như thế

Lisp move hàng trăm lần mà thế thì k ổn

mọi người vẫn chưa hiểu là bạn muốn gì, khả năng diễn đạt của bạn cũng k được tốt, theo mình bạn nên cho một ví dụ thật cụ thể và điển hình để mọi người hiểu được ý đồ của bạn ở đây là gì???

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

mọi người vẫn chưa hiểu là bạn muốn gì, khả năng diễn đạt của bạn cũng k được tốt, theo mình bạn nên cho một ví dụ thật cụ thể và điển hình để mọi hiểu được ý đồ của bạn ở đây là gì???

Tức là nếu làm bình thường(dùng tay trên màn hình cad)

thì:

command: move   enter

  chọn đối tượng   enter

chọn điểm gốc để move

chọn điểm move đến

Thế mà bạn

Còn mình cần lisp để làm những việc trên

Trong đoạn bạn Hà gửi:

(setq ss (ssget))

 

(setq p1 (getpoint "\nDiem goc: "))

 

(setq p2 (getpoint p1 "\nDiem den: "))

 

(command "move" ss "" p1 p2)

Mình không biết lấy đối tượng chọn trên bản vẽ bằng lệnh: ssget cần những thông tin như thế nào sau

(setq ss (ssget.........?)) 

Các đối tượng đủ mầu, lớp khác nhau (đưa tọa độ cửa sổ chọn đối tượng như thế nào?)

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

Mình không biết lấy đối tượng chọn trên bản vẽ bằng lệnh: ssget cần những thông tin như thế nào sau

(setq ss (ssget.........?)) 

cách chọn đối tượng y chang như lệnh move bình thường, k có gì khác cả  :D  :D  :D

Tuy nhiên mọi người chưa hiểu bạn muốn lấy những đối tượng như thế nào đó mà  :lol:

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  

×