Đến nội dung


Hình ảnh
- - - - -

lisp move đối tượng


  • Please log in to reply
2 replies to this topic

#1 soiconkthn

soiconkthn

    biết zoom

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

Đã gửi 19 April 2009 - 11:57 PM

e muốn viết một lisp như sau : di chuyển đối tượng mà mình vừa mới chọn xong (move>previous)mà mình thường dùng (m,p) thành lệnh :`q
cậu lệnh của e như sau :
(defun c:`q () (ssget) (command "move" "" "p"))
nhưng mà ko đc,mong các anh sửa giúp e, e cảm ơn các anh rất nhiều.
  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 20 April 2009 - 05:40 AM

e muốn viết một lisp như sau : di chuyển đối tượng mà mình vừa mới chọn xong (move>previous)mà mình thường dùng (m,p) thành lệnh :`q
cậu lệnh của e như sau :
(defun c:`q () (ssget) (command "move" "" "p"))
nhưng mà ko đc,mong các anh sửa giúp e, e cảm ơn các anh rất nhiều.

Lệnh move thì phải có điểm gốc move, điểm đến move. Trong Lisp của bạn thiếu cái này. Hơn nữa, lệnh CAD thực hiện move thế nào thì trong Lisp phải "tương tự" như thế đó.
Code của bạn được sửa lại như sau :
(defun c:`q ()
(setq bp (getpoint "\n Base point :"))
(setq Sp (getpoint bp "\n displacement point :"))
(command "move" "P" "" bp sp)
)
  • 1

#3 soiconkthn

soiconkthn

    biết zoom

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

Đã gửi 21 April 2009 - 08:45 AM

Lệnh move thì phải có điểm gốc move, điểm đến move. Trong Lisp của bạn thiếu cái này. Hơn nữa, lệnh CAD thực hiện move thế nào thì trong Lisp phải "tương tự" như thế đó.
Code của bạn được sửa lại như sau :
(defun c:`q ()
(setq bp (getpoint "\n Base point :"))
(setq Sp (getpoint bp "\n displacement point :"))
(command "move" "P" "" bp sp)
)

cảm ơn anh rất nhiều, e đã làm đc rồi.nhưng có một trục trặc nhỏ là lúc mình gõ lệnh thì đối tượng đc chọn ko di chuyển luôn mà phải sau khi gõ backspace mới di chuyển tức là mình hơi kho ước lượng đc khoảng di chuyển,e muốn sửa nó thì thêm lệnh gì hả a...
nhận tiên : anh ơi cho e hỏi ở HN có chỗ nào dạy lập trình autolisp vơi VB ko, e đang rất muốn đi học cho nó bài bản, lấy đấy làm cơ sở để tự học.thanks a rất nhiều, hy vọng đc anh chỉ bảo nhiều hơn..^__^
  • 0