Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
28 replies to this topic

#1 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 10:57 AM

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!


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 15 September 2013 - 11:02 AM

Đề toán hơi khó hiểu bạn ơi? Có thể mô tả bằng file Cad?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 11:28 AM

Đề toán hơi khó hiểu bạn ơi? Có thể mô tả bằng file Cad?

Cảm ơn Bạn Hà đã quan tâm

Có file đính kèm đây!http://www.cadviet.c...7907ng_move.dwg


  • 0

#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 15 September 2013 - 11:34 AM

Nó báo lỗi: Không tìm thấy file trên server! >> không down được


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#5 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 02:17 PM

Nó báo lỗi: Không tìm thấy file trên server! >> không down được

http://www.cadviet.c...7907ng_move.dwg


  • 0

#6 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 02:19 PM

Nó báo lỗi: Không tìm thấy file trên server! >> không down được

http://www.cadviet.c...7907ng_move.dwg


  • 0

#7 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 02:21 PM

Nó báo lỗi: Không tìm thấy file trên server! >> không down được

http://www.cadviet.c...907ng_move1.dwg


  • 0

#8 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 15 September 2013 - 02:27 PM

http://www.cadviet.c...907ng_move1.dwg

 

 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/


  • 0

#9 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 02:37 PM

 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...tượng_move1.dwg


  • 0

#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 15 September 2013 - 02:47 PM

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ì?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#11 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 02:56 PM

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à


  • 0

#12 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 15 September 2013 - 03:42 PM

botay.com


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#13 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 03:46 PM

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


  • 0

#14 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 15 September 2013 - 03:57 PM

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?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#15 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 04:02 PM

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à


  • 0

#16 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 15 September 2013 - 04:10 PM

Vậy chăng?

(setq ss (ssget))

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

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

(command "move" ss "" p1 p2)


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#17 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 04:20 PM

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?


  • 0

#18 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 15 September 2013 - 04:48 PM

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 ư?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#19 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 04:55 PM

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ổ)


  • 0

#20 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 15 September 2013 - 04:57 PM

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


  • 0