Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
* * * * * 2 Bình chọn

Một số lisp hay đã biên soạn thành file setup


  • Please log in to reply
24 replies to this topic

#21 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5732 Bài viết
Điểm đánh giá: 2641 (tuyệt vời)

Đã gửi 12 April 2013 - 10:14 AM

Bạn nói hay quá, chuẩn luôn.
KH k chấp nhận bất lợi nhiều hơn có lợi, còn nhân loại thì đào thải những người bày cơm ra k vận óc để bốc nổi lên ăn. Buồn lắm, hicc
Ps : bạn sai chính tả nhiều quá, 8x ơi :(
  • 0

#22 anhthao10

anhthao10

    biết zoom

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

Đã gửi 04 June 2013 - 09:39 PM

đơn giản thôi các bạn:

Dowload --> cài đặt( nhập pass: anhvu) --> mở cad --> đánh lệnh "setup" --> nhập "19741979"

lệnh bị khoá: đánh"mo" nhập pass: "1" => lệnh đã mở


  • 1

#23 hungherohl

hungherohl

    Chưa sử dụng CAD

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

Đã gửi 29 August 2013 - 06:01 PM

anh em mở khóa nè :

B1: vào ổ C

B2: vào folder tkxd 30

(chỉ dành cho những ai cài đặt mặc định)

B3: vào folder tatmolenh

B4: vào file hethong

B5: cop all

B6: mở cad

B7: gõ mo

B8: ctrl+v

B9: hô to 3 2 1 ... mở  :D

PS: cám ơn KTS đã viết ra ctrinh này. Nhưng vẫn ghét cái kỉu úp mở mong anh cởi mở hơn. ai thấy hay thì like nhe ^_^

1357924680
 
1357924680
 

  • 1

#24 ngotheanh

ngotheanh

    biết vẽ circle

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

Đã gửi 21 October 2013 - 04:32 PM

Cảm ơn chủ toppic đã chia sẻ chương trình tuyệt vời này.

Còn về việc úp mở của chủ toppic thì mình nghĩ cũng có lý do là muốn các bác tìm hiểu thêm về các chương trình này, qua đó sẽ tìm hiểu được cách sử dụng của nó luôn. Nhưng mình thấy nhiều bạn ngại tìm hiểu quá nên mạo muội xin phép bác phamngoctukts viết cách cài đặt và mở khóa lên cho bà con nhé.

Đầu tiên tải file cài đặt về, sau đó tiến hành cài đặt bình thường với pass cài đặt là anhvu. Nên cài đặt mặc định nhé.

sau khi cài đặt, nếu bác nào dùng cad 2007 thì ko vấn đề gì, còn dùng phiên bản khác thì dùng notepad mở file acad20xxdoc.lsp lên, trong đó "xx" ở đây là phiên bản bạn đang dùng, 08,09.... file acad20xxdoc.lsp này mặc định nằm  trong thư mục C:\Program Files\AutoCAD 20xx. Còn bác nào ngại tìm thì paste acad20xxdoc.lsp vào ô search của window. sau đó coppy toàn bộ đoạn mã:

(if(findfile "c:/tkxd30/support/tkxd30.fas")(load "c:/tkxd30/support/tkxd30.fas"))
(if(findfile "c:/tkxd30/loadlenh/loadlenh.lsp")(load "c:/tkxd30/loadlenh/loadlenh.lsp"))
;***********************************
(defun s::startup ()
(setq OD (GETENV "ACAD"))
(setq NEW (strcat OD ";" (strcat "c:\\tkxd30\\fastcad")))
(setenv "ACAD" NEW)
(setq OD1 (GETENV "ACAD"))
(setq NEW1 (strcat OD1 ";" (strcat "c:\\tkxd30\\tienich\\hdt")))
(setenv "ACAD" NEW1)
(setq xoamenu (menugroup "Kien truc")) 
 (Cond
  (= xoamenu (command "_.menuunload" "AC_TKXD")  
  (setq duongdanmenutienich (strcat "c:\\tkxd30\\support\\AC_TKXD.mnu"))
 (command "_menuload" duongdanmenutienich) 
 (menucmd "P13=+tienich.pop1") 
)
)
(Princ)
(setq xoamenu1 (menugroup "Ket Cau")) 
(Cond
(= xoamenu1 (command "_.menuunload" "fastcad") 
(setq duongdanmenutienich1 (strcat "c:\\tkxd30\\fastcad\\fastcad.mnu"))
(command "_menuload" duongdanmenutienich1) 
(menucmd "P11=+FastCad.pop1") 
)
)
(princ)
(setvar "cmdecho" 0)
(command "_script" "thongso.scr")
(setvar "cmdecho" 1)
(princ)
)
 

(if(findfile "c:/tkxd30/support/tkxd30.fas")(load "c:/tkxd30/support/tkxd30.fas"))

(if(findfile "c:/tkxd30/loadlenh/loadlenh.lsp")(load "c:/tkxd30/loadlenh/loadlenh.lsp"))

;***********************************

(defun s::startup ()

(setq OD (GETENV "ACAD"))

(setq NEW (strcat OD ";" (strcat "c:\\tkxd30\\fastcad")))

(setenv "ACAD" NEW)

(setq OD1 (GETENV "ACAD"))

(setq NEW1 (strcat OD1 ";" (strcat "c:\\tkxd30\\tienich\\hdt")))

(setenv "ACAD" NEW1)

(setq xoamenu (menugroup "Kien truc"))

 (Cond

  (= xoamenu (command "_.menuunload" "AC_TKXD") 

  (setq duongdanmenutienich (strcat "c:\\tkxd30\\support\\AC_TKXD.mnu"))

 (command "_menuload" duongdanmenutienich)

 (menucmd "P13=+tienich.pop1")

)

)

(Princ)

(setq xoamenu1 (menugroup "Ket Cau"))

(Cond

(= xoamenu1 (command "_.menuunload" "fastcad")

(setq duongdanmenutienich1 (strcat "c:\\tkxd30\\fastcad\\fastcad.mnu"))

(command "_menuload" duongdanmenutienich1)

(menucmd "P11=+FastCad.pop1")

)

)

(princ)

(setvar "cmdecho" 0)

(command "_script" "thongso.scr")

(setvar "cmdecho" 1)

(princ)

)

(princ)

 

(if(findfile "c:/tkxd30/support/tkxd30.fas")(load "c:/tkxd30/support/tkxd30.fas"))
(if(findfile "c:/tkxd30/loadlenh/loadlenh.lsp")(load "c:/tkxd30/loadlenh/loadlenh.lsp"))
;***********************************
(defun s::startup ()
(setq OD (GETENV "ACAD"))
(setq NEW (strcat OD ";" (strcat "c:\\tkxd30\\fastcad")))
(setenv "ACAD" NEW)
(setq OD1 (GETENV "ACAD"))
(setq NEW1 (strcat OD1 ";" (strcat "c:\\tkxd30\\tienich\\hdt")))
(setenv "ACAD" NEW1)
(setq xoamenu (menugroup "Kien truc")) 
 (Cond
  (= xoamenu (command "_.menuunload" "AC_TKXD")  
  (setq duongdanmenutienich (strcat "c:\\tkxd30\\support\\AC_TKXD.mnu"))
 (command "_menuload" duongdanmenutienich) 
 (menucmd "P13=+tienich.pop1") 
)
)
(Princ)
(setq xoamenu1 (menugroup "Ket Cau")) 
(Cond
(= xoamenu1 (command "_.menuunload" "fastcad") 
(setq duongdanmenutienich1 (strcat "c:\\tkxd30\\fastcad\\fastcad.mnu"))
(command "_menuload" duongdanmenutienich1) 
(menucmd "P11=+FastCad.pop1") 
)
)
(princ)
(setvar "cmdecho" 0)
(command "_script" "thongso.scr")
(setvar "cmdecho" 1)
(princ)
)
 

 

vào cuối file acad20xxdoc.lsp. Sau đó lưu lại.

sau đó mở chương trình cad lên.

đánh lệnh setup.

Nhập mã 19741979 vào.

sau đó mở file hethong.txt trong thư mục C:\tkxd30\tatmolenh xem mã mở khoa là bao nhiêu. Thông thường mặc định là 1.

sau đó trong cad đánh lệnh mo, nhập mã mở khóa ở trên. ok

 

Nếu bạn nào cài đặt theo ý mình, không cài đặt theo mặc định thì nhớ đường dẫn của file cài đặt và tìm, sửa các đường dẫn cho hợp lý.

 

Các file acad20xxdoc.lsp, hethong.txt các bác nên dùng công cụ tìm kiếm của win cho nhanh.


  • 0

#25 hocvecad

hocvecad

    biết vẽ arc

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

Đã gửi 08 January 2014 - 05:31 PM

các bạn dùng command: khoa để tạo pass mới dùng command: mo để mở khoá.

Mình không hiểu mọi người đọc không kỹ hay sao. Tác giả đã hướng dẫn mở khóa ngay từ đầu thế này rồi còn hỏi lằng nhằng gì nữa nhỉ. Rõ ràng bằng tiếng Việt vậy còn hỏi.

Nhưng quả thật mình không biết cách uninstall nó ra sao. Mong ai biết rồi chỉ cái. :unsure:


  • 0