PDA

View Full Version : Thêm chức năng Zoom và Pan cho Nova 4.0 và Cad 14


hitman
03-30-2011, 09:51 AM
Tải file tại đây: [Only registered and activated users can see links]
Dùng nova R14 có ưu điểm là ổn định và ít lỗi,nhưng khi zoom và pan trong nova R14 thì cực kỳ ức chế.Hôm nay mình xin hướng dẫn các bạn cách zoom và pan trong nova 14.
1. Để Nova14 có thể tự load tool trên bạn làm như sau:
- Copy 2 file AcadImouse2.arx và aim2.ini vào thư mục cài đặt nova. (mặc định là C:\Harmony CAD_Group\NovaTDN 4.0\)
- Mở file Acad.lsp cũng trong thư mục đó ra và thêm đoạn code dưới vào sau hàm Progn đầu tiên bạn nhìn thấy. (dòng thứ 4 của file này)
...(progn
(if (not (member "AcadImouse2.arx" (arx)))
(arxload "AcadImouse2.arx")
)
(if
...
Phần in đậm là đoạn code bạn cần thêm.
Chú ý, đây chỉ là thiết lập riêng cho nova14, nếu bạn muốn thiết lập cho cả cad14 nữa thì bạn có thể làm tương tự các bước trên.

2. Thiết lập chức năng Pan: việc gõ lệnh Pan trên bàn fím có một chút bất tiện do thói quen dùng cad đời cao hơn. sau đây mình hướng dẫn các bạn thiết lập lệnh Pan vào nút chuột giữa.
- trong nova14 sau khi đã được load tool, bạn gõ aim2 -> setting -> chọn None cho mục Panmode -> OK
- mở file acad.mnu trong thu mục support của cad14 (mặc định là C:\Program Files\AutoCAD R14\SUPPORT)
- tìm đoạn code:

***AUX1
// Simple button
// if a grip is hot bring up the Grips Cursor Menu (POP 17), else send a carriage return
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,5),GRIP _),$P0=ACAD.GRIPS $P0=*);
$P0=SNAP $p0=*
^C^C
^B
^O
^G
^D
^E
^T

Trong đoạn code trên phần bôi đậm là các thiết lập lệnh cho nút chuột giữa. thay vì thay đoạn code này bằng ^Z như hướng dẫn của tác giả bạn thay nó bằng lệnh Pan như sau:

***AUX1
// Simple button
// if a grip is hot bring up the Grips Cursor Menu (POP 17), else send a carriage return
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,5),GRIP _),$P0=ACAD.GRIPS $P0=*);
'Pan

- trong cad14 bạn load lại file menu.
gõ lệnh Pr -> files -> Menu, help, log.... -> Menu files -> load lại file acad.mnu -> OK
Kết hợp 2 lệnh pan của cad và của tool trên bạn có 1 cách Pan theo mình là tuyệt vời. Nhất là với những bản vẽ lớn (vài chục hoặc vài trăm trắc ngang) thì dùng cách pan của Tool trên để duyệt trắc ngang đỡ mỏi tay dê chuột rất nhiều
(Sưu tầm: [Only registered and activated users can see links] )

Nguyễn Ngọc
03-30-2011, 10:52 AM
Xài Cad_2005 + NovaTDN_16 bác ơi =))

hitman
03-30-2011, 02:59 PM
với người không cài được cad 2005 và nova 16 thì đây là cad 14 là sự lựa chọn hàng đầu,thêm chức năng này vào thì cad 14 chả khác nào cad 2005 đâu bác.dùng cad 14 có vẻ chạy nova ổn định hơn thì phải...

nguyentuanhung888
03-25-2012, 05:52 PM
Các bác cho e hỏi ^^
Em đã làm theo hướng dẫn trên nhưng hình như vẫn k được
Chỉ có Zoom thì ngon lành...còn lệnh Pan thì sao k được. Hiện tại e vẫn phải Pan bằng lệnh P
K hiểu tại sao? Các bác giúp e với!

D.M.A
03-25-2012, 06:01 PM
Các bác cho e hỏi ^^
Em đã làm theo hướng dẫn trên nhưng hình như vẫn k được
Chỉ có Zoom thì ngon lành...còn lệnh Pan thì sao k được. Hiện tại e vẫn phải Pan bằng lệnh P
K hiểu tại sao? Các bác giúp e với!

Ai từng dùng cái này vào giúp em nó cái nhỉ? Mình hầu như chưa bao giờ dùng Nova r14 nên ko biết, hi.

yournhoc
03-25-2012, 06:24 PM
nova r14 ko có chức năng zoom, pan. muốn dùng mỗi lần mở bản vẽ, bạn ap lisp acadImouses2 vào và dùng là ok.
dùng lệnh ap sau đó dẫn đường link vào file lisp - >> ok

yournhoc
03-25-2012, 06:26 PM
acadImouse: [Only registered and activated users can see links]
và aim2 : [Only registered and activated users can see links]
link down lisp acadImouse của bạn đây.
down về, để 2 cái vào 1 forder vào ap vào mà dùng.

Xuân Hòa
03-25-2012, 11:25 PM
Ô,nova 4.0 dùng được cả pan bằng chuột giữa à? lâu nay mình không biết,chỉ biết có mỗi cái lisp zoom.

madangnhap
05-26-2012, 05:55 PM
Em là người bắt đầu làm quen với nova 4.0 và cad14
[Only registered and activated users can see links]

dan_38
11-19-2012, 08:25 AM
nào bạn ơi hướng dận lải cái PAN xem sao không được bạn ak ^^