Đến nội dung


Hình ảnh
- - - - -

các bác đi trước bớt chút thời gian check cho em đoạn lisp này cái


  • Please log in to reply
6 replies to this topic

#1 Chutuyen

Chutuyen

    biết vẽ circle

  • Members
  • PipPip
  • 36 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 29 April 2015 - 11:31 AM

em mới học lisp tự làm cái lệnh Align mà k0 biet tại sao nó k0 chạy dk, nhờ các b xem tại sao cái...
(defun C:XO ()
(setq pt1 (getpoint "\nDiem dau : "))
(setq pt2 (getpoint "\nDiem cuoi : "))
(command "align" 'pt1 (0 0) pt2 (1 0))
(princ)
)
ý tưởng là vừa xoay vừa di chuyển đoạn thẳng pt1 pt2 // ox và pt1 về góc (0 0)


  • 0

#2 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 29 April 2015 - 02:10 PM

em mới học lisp tự làm cái lệnh Align mà k0 biet tại sao nó k0 chạy dk, nhờ các b xem tại sao cái...
(defun C:XO ()
(setq pt1 (getpoint "\nDiem dau : "))
(setq pt2 (getpoint "\nDiem cuoi : "))
(command "align" 'pt1 (0 0) pt2 (1 0))
(princ)
)
ý tưởng là vừa xoay vừa di chuyển đoạn thẳng pt1 pt2 // ox và pt1 về góc (0 0)

Hề hề hề,

 lisp  không hiểu cái hàm (0 0) và (1 0) là cái chi chi??? Vả lại align mà không chọn đối tượng thì nó biết align cái chi ???


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 Chutuyen

Chutuyen

    biết vẽ circle

  • Members
  • PipPip
  • 36 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 29 April 2015 - 02:51 PM

Hề hề hề,

 lisp  không hiểu cái hàm (0 0) và (1 0) là cái chi chi??? Vả lại align mà không chọn đối tượng thì nó biết align cái chi ???

ồ e tưởng (0 0) hay (1 0) là những điểm dk chọn và tọa độ pt1 và pt2 lấy ở trên theo thư tụ lệnh Align thì là thế mong b chỉ bảo thêm?


  • 0

#4 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 29 April 2015 - 03:49 PM

ồ e tưởng (0 0) hay (1 0) là những điểm dk chọn và tọa độ pt1 và pt2 lấy ở trên theo thư tụ lệnh Align thì là thế mong b chỉ bảo thêm?

Hề hề hề,

Để lisp hiểu cái (0 0) và cái (1 0) là danh sách tọa độ của các điểm bạn cần có dấu "quote" phía trước hoặc viết cụ thể là (list 0 0) (list 1 0)

Để hàm command align chạy được bạn cần phải chọn đối tượng rồi mới align nó chớ.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 02 May 2015 - 04:32 PM

Vừa Rotate vừa Move thì dùng lệnh MOROCO đi. Lisp làm những công việc nhỏ nhặt thế thì chỉ mất công viết và mất công sử dụng.


  • 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.


#6 Chutuyen

Chutuyen

    biết vẽ circle

  • Members
  • PipPip
  • 36 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 03 May 2015 - 10:04 PM

e đang học làm lisp ma bác xem e sai cho nào vậy.hic


  • 0

#7 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 05 May 2015 - 01:31 PM

e đang học làm lisp ma bác xem e sai cho nào vậy.hic

Hề hề hề,

Cái chỗ chưa đúng đã chỉ rồi mà. Bạn đã sửa chưa??? Sửa xong thì thấy nó ra giăng hay ra sao ???


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.