[Đã xong] Nhờ viết lisp chọn nhanh layer và move!

[dragontalon0802 4]

Mình cần 1 lisp chọn nhanh layer bằng lệnh "4" enter và kích vào một đối tượng thuộc layer nào thì cad sẽ chuyển sang làm việc với layer đó.

Và một lisp có lệnh "m2" rồi chọn đối tượng, chỉ hướng di chuyển thì đối tượng sẽ move một khoảng 220. Do không viết được nên nhờ các bạn viết hộ nhé.

Cảm ơn các bạn nhiều.

Chúc một ngày vui vẻ.

[ketxu 2.984]

Của bạn :

(Defun c:m2 () (command ".move" (ssget) "" "D" (polar '(0.0 0.0 0.0) (getangle "\nGoc move :" ) 220))(princ)) 
(defun c:4() (command "_Laymcur"))

[hungcuongtx 1]

nhờ bạn Ketxu có thể cải tiến giúp mình cái lisp trên được không.

Mục đích của mình:

-chọn đối tượng

-nhấn lệnh xz

-chọn hướng di chuyển

+nếu nhấn "A" thì đối tượng sang trái 600

+nếu nhấn "S" thì đối tượng xuống đưới 600

+nếu nhấn "D" thì đối tượng sang phải 600

+nếu nhấn "W" thì đối tượng lên trên 600 (giống như chơi game vậy đó :P )

+sau khi nhấn phím di chuyển rồi thì có thể nhấn tiếp tục được, vd nhấn a di chuyển 600, nhấn tiếp a di chuyển 600 nữa,...

-thoát lệnh bằng Space.

File Cad

Cám ơn nhiều!

[ketxu 2.984]

Tạm thời thế này, di chuyển = phím + space, thoát bằng 1 phím khác nào đó :

(Defun c:xz ( / ss ans)
(prompt "\nCh\U+1ECDn \U+0111\U+1ED1i t\U+01B0\U+1EE3ng :")
(setq ss (ssget) pt '(0.0 0.0 0.0))
(while (and (setq ans (strcase (getstring "H\U+01B0\U+1EDBng di chuy\U+1EC3n (A S D W) :"))) (wcmatch ans "A,D,W,S"))
(cond 
	((= ans "A")(command ".move" ss "" "D" (polar pt pi 600)))
	((= ans "D")(command ".move" ss "" "D" (polar pt 0 600)))
	((= ans "W")(command ".move" ss "" "D" (polar pt (/ pi 2) 600)))
	((= ans "S")(command ".move" ss "" "D" (polar pt (/(* 3 pi) 2) 600)))				
)
)
)

 

P/S : 1 yêu cầu khá ngộ ^^

[dragontalon0802 4]

Của bạn :

(Defun c:m2 () (command ".move" (ssget) "" "D" (polar '(0.0 0.0 0.0) (getangle "\nGoc move :" ) 220))(princ)) 
(defun c:4() (command "_Laymcur"))

Lisp dùng hay lắm, Cảm ơn bạn nhiều nhé.

[pdle 126]

Lisp dùng hay lắm, Cảm ơn bạn nhiều nhé.

Em không hiểu là người yêu cầu cái lisp có lệnh 4 để làm gì khi mà nó chính là lệnh Laycur trong AutoCAD!

[ketxu 2.984]

Có khả năng là bạn ấy chưa biết laymcur, hoặc đơn giản muốn nó gọn hơn thôi :)

[ht.thichvobien 0]

e cũng nghĩ như bác ketxu