Đến nội dung


Hình ảnh
- - - - -

Để AutoCAD tự động thực thi 1 lisp


  • Please log in to reply
6 replies to this topic

#1 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

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

Đã gửi 20 November 2007 - 12:01 PM

Xin mọi người chỉ giáo!

Hiện nay, tôi chỉ biết có 2 cách:
1. Cho vào file acad.lsp
2. Cho vào Startup suite

Còn một số cách ngầm khác thì chịu. Ví dụ ở đây:
Hình đã gửi
Không hiểu khai báo ở đâu thì ACAD sẽ load các file này?
  • 0

#2 lamtecco2

lamtecco2

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 715 Bài viết
Điểm đánh giá: 856 (rất tốt)

Đã gửi 20 November 2007 - 01:31 PM

Xin mọi người chỉ giáo!

Hiện nay, tôi chỉ biết có 2 cách:
1. Cho vào file acad.lsp
2. Cho vào Startup suite

Còn một số cách ngầm khác thì chịu. Ví dụ ở đây:
Hình đã gửi
Không hiểu khai báo ở đâu thì ACAD sẽ load các file này?

Mình thì hay dùng Acad.mnl, bổ xung 1 chút vào phần cuối tệp :
Ví dụ :
...
(defun c:vlisp ()
(if (/= nil c:vlide) (c:vlide))
)
(setvar "menuecho" 1)
(load "c:/program files/autocad 2002/support/acad1")
(load "c:/program files/autocad 2002/support/DDMODIFY")
(load "c:/program files/autocad 2002/support/BLOCKU")
(load "c:/program files/autocad 2002/support/BURCRA")
(load "c:/program files/autocad 2002/support/CRAME10")
(princ "loaded.")

(princ)
  • 0

#3 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

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

Đã gửi 11 March 2008 - 12:27 AM

A có thể nói rõ hơn đc không?
  • 0

#4 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 11 March 2008 - 07:32 AM

A có thể nói rõ hơn đc không?

Các file trên được AutoCAD cấp cho "đặc quyền" autoload, bạn có thể lợi dụng để "ăn theo" mọi biểu thức lisp bạn muốn. Ví dụ, bạn thêm vào sau file acad.mnl biểu thức: (princ "\nWELCOME TO CADVIET"). Khi khởi động Cad, Open hoặc New, bạn sẽ thấy dòng chữ trên xuất hiện trong TextWindow (nếu không thấy, bấm F2 sẽ thấy)
Các file acad.mnl, acaddoc.lsp (hoặc dạng acadxxxxdoc.lsp - xxxx là số phiên bản Cad) có sẵn trong thư mục "...\Support". Còn acad.lsp do người dùng tự tạo và có thể đặt ở bất cứ chỗ nào đã được thiết lập Support File Search Path.
Toàn bộ vấn đề chỉ có vậy. Điều quan trọng là những cái "ăn theo" của bạn phải đúng cú pháp lsp!
Còn Startup Suite đã được đề cập nhiều lần, chắc không cần nói thêm?
  • 0

#5 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

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

Đã gửi 11 March 2008 - 08:00 AM

Xin mọi người chỉ giáo!

Hiện nay, tôi chỉ biết có 2 cách:
1. Cho vào file acad.lsp
2. Cho vào Startup suite

Còn một số cách ngầm khác thì chịu. Ví dụ ở đây:
Hình đã gửi
Không hiểu khai báo ở đâu thì ACAD sẽ load các file này?

theo em thì nên tạo 1 đuờng Support File Search Path. thì hay hơn chỉ đến 1 Folder có chưa file lisp dạng sau:
(vmon)
(Defun s::startup ()
(setvar "cmdecho" 1)
(setvar "cmdecho" 1)
(load "MHPRO.VLX")
(load "MH-inertia.lsp")
(princ)
)
Tiện lợ ở chỗ
1-không làm ảnh hwởng tới các *.MNL của cad
2-Khi khôngmuốn có thể "gỡ" nó đi không hề hấn gì
3-Có thể gói gọn chuơng trình riêng của mình
(cách này là cách mà cái ông EXPRESS của cad dùng)
Thực tế có thể dùng VBA gì gì đó (em đã từng thấy ở các phần mền như TKXD 2.0 trên Kêtcấu.com, ), có bác nào có mã nguồn khoản này xin chỉ giáo!
  • 1
Hãy ước cho trọn 1 ước mơ!

#6 nguyenbakien

nguyenbakien

    biết lệnh scale

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

Đã gửi 12 March 2008 - 04:43 AM

theo em thì nên tạo 1 đuờng Support File Search Path. thì hay hơn chỉ đến 1 Folder có chưa file lisp dạng sau:

(vmon)
(Defun s::startup ()
(setvar "cmdecho" 1)
(setvar "cmdecho" 1)
(load "MHPRO.VLX")
(load "MH-inertia.lsp")
(princ)
)
Tiện lợ ở chỗ
1-không làm ảnh hwởng tới các *.MNL của cad
2-Khi khôngmuốn có thể "gỡ" nó đi không hề hấn gì
3-Có thể gói gọn chuơng trình riêng của mình
(cách này là cách mà cái ông EXPRESS của cad dùng)
Thực tế có thể dùng VBA gì gì đó (em đã từng thấy ở các phần mền như TKXD 2.0 trên Kêtcấu.com, ), có bác nào có mã nguồn khoản này xin chỉ giáo!

Vậy khi dùng file lệnh tắt này khi AP EXPRESS vào Cad thi lênh tắt và mở layer là lệnh gì.
Đối với ATD 2002 thi dung 11-dể tắt ; còn 22-để mở.
Nhưng với ATD 2008 thì bất lưc. E dùng 11 thì nó lock tất cả các Layer lại phải vào LA mới mở nó ra được
http://www.cadviet.c...pfiles/acad.pgp
  • 0

#7 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

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

Đã gửi 12 March 2008 - 08:00 AM

Vậy khi dùng file lệnh tắt này khi AP EXPRESS vào Cad thi lênh tắt và mở layer là lệnh gì.
Đối với ATD 2002 thi dung 11-dể tắt ; còn 22-để mở.
Nhưng với ATD 2008 thì bất lưc. E dùng 11 thì nó lock tất cả các Layer lại phải vào LA mới mở nó ra được
http://www.cadviet.com/upfiles/acad.pgp


Tôi ít dùng cái express tôi hay dùng cái này(qua điểm cổ) các lệnh II, BM, FM
http://www.cadviet.c...iles/MHPro6.lsp
  • 1
Hãy ước cho trọn 1 ước mơ!