Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Updatelisp

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

Các bài được khuyến nghị

vndesperados    253

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í.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
bemove    1.308
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... =))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ghost8.3    162
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
-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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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í..)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Snowman    90
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: )

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web 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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hoquangvinh    5

-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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×