Cần đưa lisp và menu tự tạo vào support

[vndesperados 254]

Tôi rất ngạc nhiên khi thấy các bác bỏ ra một chi phí thời gian rất lớn (từ 2/04/2008 - hôm nay) chỉ để giải quyết một vấn đề mà nếu làm bằng tay mất khỏang 5 min. Nếu như mà giải quyết xong vấn đề này thì nó tiết kiệm được cho các bác cái gì?

Tôi làm quản lý dự án nên cái gì cũng rạch ròi về chi phí.

[bemove 1.314]

Tôi làm quản lý dự án nên cái gì cũng rạch ròi về chi phí

 

Tôi làm giám đốc nên cũng... =))

[ghost8.3 163]

Tôi rất ngạc nhiên khi thấy các bác bỏ ra một chi phí thời gian rất lớn (từ 2/04/2008 - hôm nay) chỉ để giải quyết một vấn đề mà nếu làm bằng tay mất khỏang 5 min. Nếu như mà giải quyết xong vấn đề này thì nó tiết kiệm được cho các bác cái gì?

Tôi làm quản lý dự án nên cái gì cũng rạch ròi về chi phí.

Chả có ai bỏ phí cả bạn à! Đơn giản là khi nào tìm thấy cái gì mình cần thì dù thời gian có là bao cũng không bao giờ là phí cả. Mặc dù topic có từ 2/04/2008 (cho dù là 2/04/2006 đi nữa) nhưng nếu đến bây giờ bạn mới tìm ra đây là thứ bạn cần thì bạn có xem là phí không.

Cái gì cũng cần học hỏi và trao đổi lẫn nhau.

[nguoiotanphu 0]

-Bạn nói đúng rồi.

-Mình khôg biết làm sao để biết hiện có bao nhiêu menu cả.

-Bạn yên tâm nó không đè lên mà xen vào nghĩa là cái menucó sẵn sẻ lùi về 1 vị trí.

Xin chào bạn Duy782006

Cám ơn bạn đã giúp đỡ. Bạn có thể giúp mình thêm 1 hàm lisp xóa hoặc copy file không phải mã ASCII không?. Trong Lisp mình thấy chỉ hổ trợ write file ASCII thôi. Mình có dùng thử lệnh SHELL của Acad trong LISP nhưng vẫn chưa được.

Cám ơn nhiều

nguoiotanphu

[Nộ Thiên 133]

Tôi làm quản lý dự án nên . . .

 

Tôi làm giám đốc nên cũng... =))

 

Khà .. khà.. Bemove khéo đùa!

 

Chà toàn là PM với CEO cả. Chả bù với mình chỉ là ... CT-HĐQT( hí hí..)

[Snowman 92]

Xin chào bạn Duy782006

Cám ơn bạn đã giúp đỡ. Bạn có thể giúp mình thêm 1 hàm lisp xóa hoặc copy file không phải mã ASCII không?. Trong Lisp mình thấy chỉ hổ trợ write file ASCII thôi. Mình có dùng thử lệnh SHELL của Acad trong LISP nhưng vẫn chưa được.

Cám ơn nhiều

nguoiotanphu

Bạn dùng hàm này đi:

(vl-file-delete filename) : del file chứa trong biến filename (bất kỳ loại file gì - bạn có thể dùng hàm getfiled để chọn file muốn xoá)

(vl-file-copy source-file destination-file [append]) copy file với tuỳ chọn ghi đè hay ghi nối tiếp vào file đích

Để biết rõ hơn, bạn có thể đọc trong help.

(Bạn định làm gì với hàm delete file vậy? khủng bố ah? :s_big: )

[nguoiotanphu 0]

Bạn dùng hàm này đi:

(vl-file-delete filename) : del file chứa trong biến filename (bất kỳ loại file gì - bạn có thể dùng hàm getfiled để chọn file muốn xoá)

(vl-file-copy source-file destination-file [append]) copy file với tuỳ chọn ghi đè hay ghi nối tiếp vào file đích

Để biết rõ hơn, bạn có thể đọc trong help.

(Bạn định làm gì với hàm delete file vậy? khủng bố ah? :s_big: )

Cám ơn snowman chỉ giúp

Mình đang làm lisp tự động cập nhật các lệnh thường dùng vào acaddoc.lsp. Nếu muốn uninstall thì sẽ loại các lệnh này ra hoặc xoá file acaddoc.lsp để không ảnh hưởng acad trên máy người khác.

[HoangSon614 66]

Bộ cài bạn đownloa ở trên về mà dùng. mình sẽ post file register cho !

Bạn làm như trên đây để đc load menu và đường dẫn tự động !

Còn khi sử dụng chuơng trình. Bạn hãy download file ảnh của mình post đây và làm theo hướng dẫn :

Mở chương trình

Bước 1 : Chọn Tab File

Bước 2 : Bạn Add File mà bạn cần cài đặt vào ( Chọn Folder chứa file là đc)

Bước 3 : Bôi đen File đó ( nếu bạn có nhiều File thì có thể bôi đen cùng 1 lúc )

Bước 4 : Chọn Tab Windown

Bước 5 : Chọn Other

Bước 6 : Paste đưòng dẫn mà tôi cho dưới đây

Chú Ý : các bước trùng với các số mà tôi đánh dấu trên file ảnh gửi kèm

 

Bạn Paste đường dấn sau vào ô số 6

Cad 2007

#UserDir#\Application Data\Autodesk\AutoCAD 2007\R17.0\enu\Support

Cad 2008

#UserDir#\Application Data\Autodesk\AutoCAD 2008\R17.1\enu\Support

Cad 2009

#UserDir#\Application Data\Autodesk\AutoCAD 2009\R17.2\enu\Support

FIle Ảnh hướng dẫn :

http://www.cadviet.com/upfiles/HuongDan.bmp

File bẻ khóa Install Creator Pro

http://www.cadviet.com/upfiles/RegCode.txt

Chúc bạn thành công !

Chào bạn Ar_Chanwoo! Mình cũng làm theo các bước như bạn hướng dẫn nhưng vẫn không cài đặt được (không load lisp được). Bạn có thể hướng dẫn cụ thể hơn không, cảm ơn bạn (mình thấy cái này pro hơn). Cố gắng giúp mình, mình đang rất cần.

[dovananh.xd 25]

Ý mình cũng giống một người trong topic này. Đó là mình có sắn các lisp rồi, bây h mình tạo một file.mns và trong file.mns này có chứa các lệnh tắt của các lisp đã có để tạo một menu mới thì làm như thế nào?

[hoquangvinh 7]

-Bạn nên viết các dữ liệu và menu (nói chung là mọi thứ) trong 1 thư mục nhất định nào đó không cần đưa vào thư mục support, như vậy giải quyết được vấn đề chép dữ liệu.

-Chỉ cần viết 1 file acaddoc.lsp để load các thứ của bạn. File này copy vào thư mục cài đặt cad là được rồi (gần như các máy thư mục này như nhau), giải quyết luôn được phần load tự động các lisp của bạn.

-Bạn tham khảo file acaddoc.lsp của mình về việc load menu, lisp và tạo đường dẩn cho tiện ích của bạn:

 

;----------------------------

(Defun C:run ( )

(setq OD (GETENV "ACAD"))

(setq NEW (strcat OD ";E:\\tienich\\dcl;E:\\tienich\\dwg;E:\\tienich\\hdt;E:\\tienich\\tvnd;E:\\tienich\\tvct"))

(setenv "ACAD" NEW)

;--------------------------

 

Tạo đường dẩn đến các thư mục cố định của bạn.

;---------------------------

(load"e:/tienich/lenh/thuvienndung")

(load"e:/tienich/lenh/thuvienchitiet")

(load"e:/tienich/lenh/tienichchonht")

(load"e:/tienich/lenh/thongke")

(load"e:/tienich/lenh/tienichdimht")

;---------------------------

 

Load các lisp của bạn.

 

;--------------

(defun S::STARTUP ()

(setq tinhtrangmenutienich (menugroup "tienich"))

(Cond

((= tinhtrangmenutienich nil)

(setq duongdanmenutienich (strcat odiachay "\\tienich\\filehethong\\tienich.mns"))

(command "_menuload" duongdanmenutienich)

(menucmd "P13=+tienich.pop1")

)

((/= tinhtrangmenutienich nil)

)

)

 

(Princ)

)

;-------------------

 

Load menu của bạn.

 

e muốn hỏi lại các bước này.

e chỉ muốn load 1 folder có chưa các file lisp thôi, cũng sửa lại giống như bác đã trình bày nhưng chưa có file .mns và .pop1 nữa thì lisp load các lệnh có chạy được ko

e sửa như sau các bác check hộ với

Paste các dòng lisp vào ko hiển thị được nên phải up file lên, nhờ các bác xem giúp

[ code];----------------------------

(Defun C:run ( )

(setq OD (GETENV "ACAD"))

(setq NEW (strcat OD ";E:\\Lisp_cad"))

(setenv "ACAD" NEW)

;--------------------------

 

T?o du?ng d?n d?n các thu m?c c? d?nh c?a b?n.

;---------------------------

(load"e:/Lisp_cad")

 

;---------------------------

 

Load các lisp c?a b?n.

 

;--------------

(defun S::STARTUP ()

(setq tinhtrangmenutienich (menugroup "Lisp_cad"))

(Cond

((= tinhtrangmenutienich nil)

(setq duongdanmenutienich (strcat odiachay "\\Lisp_cad\\Lisp_cad.mns"))

(command "_menuload" duongdanmenutienich)

(menucmd "P13=+Lisp_cad.pop1")

)

((/= tinhtrangmenutienich nil)

)

)

 

(Princ)

)

;-------------------

 

Load menu c?a b?n.[ /code]

 

 

http://www.cadviet.com/upfiles/5/50811_load_lisp.lsp