Đến nội dung


Hình ảnh

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


  • Please log in to reply
34 replies to this topic

#21 ghost8.3

ghost8.3

    biết dimdiameter

  • Members
  • PipPipPipPipPip
  • 335 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 01 August 2008 - 03:03 PM

Bạn download chuơng trình tạo file cài dặt về mà dùng! Mình đang dùng cái install creator pro ! Nó đơn giản và dễ dùng ! Bạn download về cài ra rồi có gì về sử dụng cứ hỏi mình!Mình sẽ giúp bạn cái đoạn mà bạn hỏi! Còn để chương trình tự load lisp lên, tự up menu vào cho bạn thì còn phải thêm mấy thủ thuật nũă về lisp!

Bạn Ar_ ơi, mình down install creator pro về cài bản có bẻ khoá. Sau khi Test thử đến đoạn cuối cùng thì có thêm phần quảng cáo của hãng nữa (nó giống với bản miễn phí vậy bạn). Nếu như thế thì bản bẻ khoá có khac gì bản free đâu? Bạn dùng rồi có gặp lỗi này không
  • 0

Hình đã gửi


#22 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 01 August 2008 - 09:42 PM

Bạn Ar_ ơi, mình down install creator pro về cài bản có bẻ khoá. Sau khi Test thử đến đoạn cuối cùng thì có thêm phần quảng cáo của hãng nữa (nó giống với bản miễn phí vậy bạn). Nếu như thế thì bản bẻ khoá có khac gì bản free đâu? Bạn dùng rồi có gặp lỗi này không

Mình dùng rồi và không gặp lỗi này! Bạn có chắc là đã bẻ khóa chưa >?
  • 0

#23 ghost8.3

ghost8.3

    biết dimdiameter

  • Members
  • PipPipPipPipPip
  • 335 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 04 August 2008 - 09:00 AM

Mình dùng rồi và không gặp lỗi này! Bạn có chắc là đã bẻ khóa chưa >?

Chắc chắn mà, mình cài bản register Version, bẻ khoá bằng Code bạn cho ở trên, vẫn cài được OK nhưng khi Text thử lại có phần quảng cáo như bản Unregister. Mình pó tay luôn. Bạn có thể up lại bản bạn đang dùng và Code bẻ khoá nữa được không? Mình cảm ơn bạn trước
  • 0

Hình đã gửi


#24 Arch_Cuong

Arch_Cuong

    biết pan

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

Đã gửi 04 August 2008 - 11:22 PM

Chắc chắn mà, mình cài bản register Version, bẻ khoá bằng Code bạn cho ở trên, vẫn cài được OK nhưng khi Text thử lại có phần quảng cáo như bản Unregister. Mình pó tay luôn. Bạn có thể up lại bản bạn đang dùng và Code bẻ khoá nữa được không? Mình cảm ơn bạn trước

http://www.cadviet.c...ator_Pro_20.rar
Của bạn đây! Về nghiên cứu đi nhá. Nhớ cài đặt cho đúng đó !
  • 0

#25 ghost8.3

ghost8.3

    biết dimdiameter

  • Members
  • PipPipPipPipPip
  • 335 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 05 August 2008 - 01:56 PM

http://www.cadviet.c...ator_Pro_20.rar
Của bạn đây! Về nghiên cứu đi nhá. Nhớ cài đặt cho đúng đó !

Cảm ơn bạn Cường nha, Bạn đổi account rồi a? Acc kia sao không dùng nữa?
  • 0

Hình đã gửi


#26 vndesperados

vndesperados

    biết lệnh xref

  • Members
  • PipPipPipPipPipPipPip
  • 547 Bài viết
Điểm đánh giá: 253 (khá)

Đã gửi 05 August 2008 - 02:47 PM

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

#27 bemove

bemove

    biết lệnh divide

  • Vip
  • PipPipPipPipPipPip
  • 446 Bài viết
Điểm đánh giá: 1308 (rất tốt)

Đã gửi 05 August 2008 - 03:56 PM

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... =))
  • 0

#28 ghost8.3

ghost8.3

    biết dimdiameter

  • Members
  • PipPipPipPipPip
  • 335 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 05 August 2008 - 04:23 PM

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.
  • 0

Hình đã gửi


#29 nguoiotanphu

nguoiotanphu

    Chưa sử dụng CAD

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

Đã gửi 24 August 2008 - 01:23 PM

-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
  • 0

#30 Nộ Thiên

Nộ Thiên

    biết lệnh ddedit

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

Đã gửi 24 August 2008 - 02:57 PM

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í..)
  • 0

#31 Snowman

Snowman

    biết lệnh mirror

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

Đã gửi 24 August 2008 - 03:10 PM

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: )
  • 1

. - ' * ' - .. - ... "Sống trong đời sống cần có một tấm lòng..." . - ' * ' - .. -
-----------------------------------------------------------------------------------

Hình đã gửi Hình đã gửi


#32 nguoiotanphu

nguoiotanphu

    Chưa sử dụng CAD

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

Đã gửi 26 August 2008 - 10:14 AM

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.
  • 0

#33 HoangSon614

HoangSon614

    biết lệnh properties

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

Đã gửi 03 June 2009 - 10:26 PM

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.c...es/HuongDan.bmp
File bẻ khóa Install Creator Pro
http://www.cadviet.c...les/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.
  • 0
-~-~-~-~-~-~-~-~-~-~-~-~-~-~
Hôm qua là sự học hỏi nhận được sau 1 ngày
Ngày mai là sự bí ẩn mà chúng ta sẽ khám phá


------------------------------------------
http://www.tailieukythuat.com

#34 dovananh.xd

dovananh.xd

    biết lệnh offset

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

Đã gửi 10 December 2011 - 10:53 AM

Ý 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?
  • 0

#35 hoquangvinh

hoquangvinh

    biết lệnh mirror

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

Đã gửi 20 January 2016 - 11:10 AM

-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.c...1_load_lisp.lsp


  • 0