Rated 5/5 based on 240179 internet user reviews

Đến nội dung


Hình ảnh
- - - - -

Lisp thêm chức năng Zoom và Pan cho Cad14 cho anh em đây


  • Please log in to reply
20 replies to this topic

#1 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 901 Bài viết
Điểm đánh giá: 499 (tốt)

Đã gửi 24 March 2009 - 09:50 PM

sau 2 ngày lần mò cuối cùng mình cũng xin được cái lisp hay ho này, chia xẻ cho ai vẫn fải cày cuốc bằng cad14 nè download here
cái này dùng để zoom thì khá ổn, nhưng pan thì hơi tệ, dù sao có cũng còn hơn không :cry:

Còn đây là hướng dẫn sử dụng:

1. Type AIM2 at the AutoCAD command line, press the settings button.

2. Select how you want pan to be activated.

a. if you select "None" then AUX1 needs to be referenced later (see below)

b. if you select "Shift" then AUX2 needs to be referenced.

c. if you select "Control" then AUX3 needs to be referenced.

3. The AUX entries above are groups in the ACAD.MNU file. Locate and
make a copy of ACAD.MNU, its usually in the support subdirectory
where AutoCAD is installed. If you use custom menus then you will
need to locate it and follow the instructions below.

4. After you've made a copy of ACAD.MNU open it for editing using
wordpad or some other text editor.

5. Find the line that reads ***AUXn (where n is based on your selection
in instruction 2.

6. Each line below the ***AUXn is assigned to a button on the mouse. The
lines that start with // are coments and are not assigned. The first assigned
line represents the right mouse button. The second assigned line is the
wheel button.

7. For the line assigned to the wheel change it to read:
^z

8. Save ACAD.MNU and restart AutoCAD if its not currently running.

9. At the AutoCAD command line type MENU.

10. A file dialog box will appear, change the file type selection to MNU.

11. Locate and select the modified ACAD.MNU file then press the
open button.

12. You may get a warning about loosing toolbar customization, this
can't be help and you will need to select the yes button to get the
customized menu.

13. Panning should now work without a menu poping up. If you do
get a pop up check that the AIM2 settings match the AUX settings
mentioned above.

-----------------------------------------------------------------------------------------------------------------------------------------------------------------

EDIT: UPDATE hướng dẫn thiết lập để Nova14 có thể tự động load Toolzoom và thiết lập lại chức năng Pan.
1. Để Nova14 có thể tự load tool trên bạn làm như sau:
- Copy 2 file AcadImouse2.arxaim2.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.
  • 5

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#2 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2038 Bài viết
Điểm đánh giá: 1304 (rất tốt)

Đã gửi 25 March 2009 - 09:29 AM

sau 2 ngày lần mò cuối cùng mình cũng xin được cái lisp hay ho này, chia xẻ cho ai vẫn fải cày cuốc bằng cad14 nè download here
cái này dùng để zoom thì khá ổn, nhưng pan thì hơi tệ, dù sao có cũng còn hơn không :cry:

Zoom thì giống phết còn pan thì hông được lun. <_<
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#3 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 901 Bài viết
Điểm đánh giá: 499 (tốt)

Đã gửi 25 March 2009 - 01:58 PM

Zoom thì giống phết còn pan thì hông được lun. <_<


Anh nên để Pan factor từ 3-5 thôi thì mới Pan đc, nhưng pan kiểu này đúng là hơi chóng mặt :cry: tốt nhất là dùng kết hợp với lệnh Pan của cad, em dùng quen rồi :cry:
  • 1

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#4 lyhai002

lyhai002

    biết zoom

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

Đã gửi 15 July 2009 - 08:36 PM

cảm ơn bạn về acadimouse2, nhưng phần mềm này chỉ zoom được trong model, còn trong layout thì không zoom được. Bạn có cách gì khắc phục không ?
Thanks !
  • 0

#5 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 901 Bài viết
Điểm đánh giá: 499 (tốt)

Đã gửi 24 July 2009 - 04:04 AM

cảm ơn bạn về acadimouse2, nhưng phần mềm này chỉ zoom được trong model, còn trong layout thì không zoom được. Bạn có cách gì khắc phục không ?
Thanks !


:s_dead: Tool này chỉ dùng cho cad 14. các bản đời cao hơn không cần đến nó nữa. Mà cad14 thì không hề có layout. Nếu bạn có bản cad14 hỗ trợ Layout thì cho mình xin :s_dead:
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#6 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2038 Bài viết
Điểm đánh giá: 1304 (rất tốt)

Đã gửi 24 July 2009 - 03:56 PM

:s_dead: Tool này chỉ dùng cho cad 14. các bản đời cao hơn không cần đến nó nữa. Mà cad14 thì không hề có layout. Nếu bạn có bản cad14 hỗ trợ Layout thì cho mình xin :s_dead:

Do bạn không để ý thôi chứ thực chất Layout có từ cad 12 lận.
Bạn vào menu: View => Paper Space chính là Layout đó bạn. :s_dead:
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#7 nvduct

nvduct

    Chưa sử dụng CAD

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

Đã gửi 07 October 2009 - 12:44 AM

Có hướng dẫn bằng tiếng Việt ko hả các bạn ? Mình đọc mà ko hiểu tí gì
  • 0

#8 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 901 Bài viết
Điểm đánh giá: 499 (tốt)

Đã gửi 07 October 2009 - 11:04 PM

Tool này dùng để zoom thì rất chuẩn rồi, nhưng Pan thì tệ.
Hướng dẫn trên là để điều chỉnh chế độ Pan bằng cách dùng chuột giữa. Mình đã thử làm theo hướng dẫn nhưng không thấy có hiệu quả. với lại cách Pan này cũng thực sự khó dùng (giống cách Pan trong word ý, lả lướt lắm :cheers: ) tốt hơn bạn sử dụng cách Pan của Cad thì hay hơn.
Bạn nên đổi lệnh Pan (sửa file acad.pgp) về một fím (hay tổ hợp fím) nào đó để thuận tay trái khi gõ, fím W chẳng hạn (fím này là lệnh write block nhưng rất ít dùng).
Đây là fiên bản cuối cùng của tool này, tác giả của nó viết ngay trước khi cad2000 fát hành nên ko có bản nâng cấp cách Pan, cũng may tác giả còn giữ tool này nên mình mới xin được, các bạn chịu khó dùng kết hợp với cách pan của cad thôi.
  • 2

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#9 tonglao09

tonglao09

    biết zoom

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

Đã gửi 05 December 2009 - 01:41 PM

:cheers:
  • 0

#10 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 901 Bài viết
Điểm đánh giá: 499 (tốt)

Đã gửi 04 February 2010 - 10:58 AM

Update cách thiết lập load toolzoom tự động và Pan cho chuột giữa
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#11 codered8x

codered8x

    biết lệnh copy

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

Đã gửi 23 February 2010 - 06:06 PM

1. Type AIM2 at the AutoCAD command line, press the settings button.
>>> Mình gõ lệnh AIM2 ở dòng lệnh của Cad thì chương trình báo là không có lệnh này?
  • 0

#12 metavn

metavn

    Edu level: li4

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

Đã gửi 02 March 2011 - 09:01 AM

1. Type AIM2 at the AutoCAD command line, press the settings button.
>>> Mình gõ lệnh AIM2 ở dòng lệnh của Cad thì chương trình báo là không có lệnh này?


Phải load file .arx truớc đã.
Mình dùng lisp này rồi, pan zoom đều ngon cả, thanks bác nhiều
Zoom chọn factor là 50 là vừa, pan thì chỉ cần ấn chuột giữa rồi dùng chuột trái kéo thôi, không cần gõ lệnh :)
  • 0

#13 VUVUZELA

VUVUZELA

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 201 Bài viết
Điểm đánh giá: 92 (tàm tạm)

Đã gửi 02 March 2011 - 09:34 AM

1. Type AIM2 at the AutoCAD command line, press the settings button.
>>> Mình gõ lệnh AIM2 ở dòng lệnh của Cad thì chương trình báo là không có lệnh này?


Nếu có thể bạn uninstal AutoCad R14 đi
Cài đặt AutoCad 2000 vô
Sau đó cài Nova-TDN 4.01 thì nó sẽ nhận diện được Nova chạy trên AutoCad 2000
Từ đó bạn zoom, pan ... thoải mái và nhẹ nhàng hơn
;)
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#14 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 901 Bài viết
Điểm đánh giá: 499 (tốt)

Đã gửi 03 March 2011 - 02:22 PM

nova 4.01 gồm 2 module. 1 dùng cho cad14 và 1 dùng cho cad2000 (vào thư mục cài đặt của nó sẽ thấy các module này đuợc đóng gói riêng biệt)
ai cũng biết như vậy nhưng chẳng ai muốn dùng module dành cho cad2000 thì cũng fải có nguyên nhân sâu xa cậu ạ. mình có cái khoá cứng màu tím tím danh cho module cad2000 đây. bạn nào thích mình cho không :lol:
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#15 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 694 (tốt)

Đã gửi 03 March 2011 - 02:27 PM

nova 4.01 gồm 2 module. 1 dùng cho cad14 và 1 dùng cho cad2000 (vào thư mục cài đặt của nó sẽ thấy các module này đuợc đóng gói riêng biệt)
ai cũng biết như vậy nhưng chẳng ai muốn dùng module dành cho cad2000 thì cũng fải có nguyên nhân sâu xa cậu ạ. mình có cái khoá cứng màu tím tím danh cho module cad2000 đây. bạn nào thích mình cho không :lol:

Bạn Thái cho mình hỏi là có nova chạy trên Cad2007 không. Mình chỉ có bản chạy trên CAD2005 nhưng do dùng Cad2005 mình không thích lắm.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#16 VUVUZELA

VUVUZELA

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 201 Bài viết
Điểm đánh giá: 92 (tàm tạm)

Đã gửi 03 March 2011 - 03:11 PM

nova 4.01 gồm 2 module. 1 dùng cho cad14 và 1 dùng cho cad2000 (vào thư mục cài đặt của nó sẽ thấy các module này đuợc đóng gói riêng biệt)
ai cũng biết như vậy nhưng chẳng ai muốn dùng module dành cho cad2000 thì cũng fải có nguyên nhân sâu xa cậu ạ. mình có cái khoá cứng màu tím tím danh cho module cad2000 đây. bạn nào thích mình cho không :lol:


Nguyên sâu xa là gì thế cậu
Nó hay bị lỗi à ?
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#17 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 901 Bài viết
Điểm đánh giá: 499 (tốt)

Đã gửi 04 March 2011 - 11:04 AM

Uh, lỗi tuơng tự như nova cho cad2002 luôn. bọn Hài Hoà cải lùi, có vẻ như thuật toán của nova dành cho bản cad2000 khác tuơng đối nhiều so với bản dành cho cad14.
@ngoctu: nova dành cho cad2005 là phiên bản cuối cùng rồi cậu ạ.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#18 rupsen

rupsen

    Chưa sử dụng CAD

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

Đã gửi 06 March 2012 - 09:13 AM

Ai giúp mình với! mình cài cad R14 mà mất tính năng Onsap! Giờ làm sao phục hồi lại
  • 0

#19 whatcholingon

whatcholingon

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 201 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 06 March 2012 - 02:26 PM

Ai giúp mình với! mình cài cad R14 mà mất tính năng Onsap! Giờ làm sao phục hồi lại


Chuyện nhỏ như con thỏ :D.
Bạn gỡ bỏ đi rùi cài lại là ok.
  • 0
Đừng chờ đợi những gì bạn muốn mà hãy đi tìm kiếm chúng.

Hình đã gửiHình đã gửiHình đã gửiHình đã gửiHình đã gửiWishing everyone happy and fun! ^_^

#20 thbinh89

thbinh89

    Chưa sử dụng CAD

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

Đã gửi 09 September 2012 - 05:37 PM

Cảm ơn bạn nhiều..Nút thanks ở đâu ấy nhỉ :)
  • 0