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

[phamngoctukts 714]

xin chào các thành viên trên diễn đàn CadViet

mình tham gia diễn đàn cũng đã lâu chưa đóng gớp được gì cho diễn đàn mà chỉ toàn dùng lisp các

ban đã viết sẵn.

Sau khi tham khảo trên diễn đàn mình thấy có nhiều lisp rất hay. Mình đã sưu tầm và biên soạn

thành 1 bộ lisp cho riêng mình.

Trong bộ lisp của mình được biên soạn từ các bộ lisp sau:

TKXD30 của Nguyễn Lam

Lispduy: của Phạm Quốc Duy

fastcad: hỗ trợ vẽ kết câu (không rõ tác giả)

và một số lisp hay sưu tầm trên diễn đàn và mình có sửa đôi chút cho hợp công việc của mình.Mình đã

sửa một số code về tác giả để mình dùng mong các tác giả bỏ qua cho.

Sau đây là đôi chút giới thiệu về chương trình:

Lisp chạy trên cad2007 vì mình dùng trên laptop nên không cài version cad cao hơn.Nếu các bạn

dùng version khác thì mở file acad2007doc.lsp chép đoạn code load lệnh sang acadXXXdoc.lsp là

được.

file Setup có dung lượng 20mb khi không muốn dùng có thể gỡ bỏ.

Pass cài đặt: anhvu

sau khi cài đặt một số lệnh sẽ bị khóa. Để mỏ khóa các bạn đánh lệnh "mo" còn pass mo khoa các bạn tự

tìm trong dữ liệu đã cài đặt. Bác Duy có mấy bài viết trên diễn đàn về cách khóa lệnh các bạn tự

tìm hiểu.

command:setup nhập serial:19741979 để dăng ký.

Sau khi đăng ký khởi động lại cad để cập nhật

Linkdown: http://www.mediafire...amah8k2xbweayb3

Giao diện của chương trình

Chúc diễn đàn luôn luôn phát triển!!!!!

[phamngoctukts 714]

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

[mr.nguyen08ql 60]

bác ah.em thấy bác giới thiệu kai líp cũng hay nên download về dùng thử.nhưng sao e setup đươc oy nhưng không thấy hắn hiện kái giao diện như bác nói.em dung cad2008.bác giúp thi giúp cho chót hj.bác chỉ giùm em cài nó vào cad2008 đi.

thank bác nhìu ge!!!!

[phamngoctukts 714]

bác ah.em thấy bác giới thiệu kai líp cũng hay nên download về dùng thử.nhưng sao e setup đươc oy nhưng không thấy hắn hiện kái giao diện như bác nói.em dung cad2008.bác giúp thi giúp cho chót hj.bác chỉ giùm em cài nó vào cad2008 đi.

thank bác nhìu ge!!!!

Bạn nào không cài được hay cài trên phiên bản Cad khác thì liên hệ với mình qua Yahoo: phamngoctu_kts@yahoo.com

[mr.nguyen08ql 60]

bác ah.thế pm với bác hay gửi wa mail vậy ah. ah mà theo bác nói thi copy kái này fai ko http://www.cadviet.com/upfiles/3/acad2007doc.lsp sau đó paste vào thư mục acad2008doc.lisp ah.

[phamngoctukts 714]

bác ah.thế pm với bác hay gửi wa mail vậy ah. ah mà theo bác nói thi copy kái này fai ko http://www.cadviet.com/upfiles/3/acad2007doc.lsp sau đó paste vào thư mục acad2008doc.lisp ah.

không phải thế đâu bạn. Bạn mở file acacd2007doc.lsp bằng nodepat copy dòng cuối cùng rồi paste sang file acad2008doc.lsp vào dòng cuỗi cùng.

[phamngoctukts 714]

Bác Phamngoctu có thể up phần mềm đóng gói của bác được không? Em thấy hay quá hà. Thanks bác rất nhiều

Đợi mình vài hôm nữa thi xong sẽ up phần mềm đóng gói và hướng dẫn cụ thể. Mấy hôm nay bận ôn thi quá nên không theo dõi diên đàn liên tục được. Cám ơn các bạn đã quan tâm!!!

[Tue_NV 3.912]

Good! hoan nghênh tinh thần chia sẽ bạn.Tôi rất phê phán những ai tự viết hoặc sưu tầm được vài lisp lại đem vô thương mại bán bản quyền.Bản thân người đó cũng đã xài chùa rùi có anh nào mua bản quyền Autocad chưa? có anh nào mua bản quyền Window chưa? anh viết lisp bằng chương trình gì, chương trình viết đó của anh có bản quyền chưa?.

Chống vi phạm bản quyền là điều tốt nhưng dùng một cái vi phạm bản quyền để tạo ra sản phẩm có bản quyền liệu còn đúng chăng?

Không triệt để chống vi phạm bản quyền thì liệu còn có cái vi phạm bản quyền tạo ra sản phẩm có bản quyền không?

Nếu đã không triệt để chống thì việc bạn phê phán cũng bằng thừa vì nó đã theo quy luật rồi.

Hơn nữa, việc trả công cho các Nhà phát triển đã dày công tạo ra sản phẩm mới mang lại hiệu quả cao trong công việc thì cũng bình thường thôi.

Bạn nói mấy câu trên, bạn đã tự hỏi lại bản thân mình chưa? Bản thân bạn đã ngẫm đến mình chưa? Bản thân bạn đã sài chùa chưa? Bản thân bạn đã mua bản quyền Autocad chưa? Bạn đã mua bản quyền Window chưa?............

[Detailing 281]

Good! hoan nghênh tinh thần chia sẽ bạn.Tôi rất phê phán những ai tự viết hoặc sưu tầm được vài lisp lại đem vô thương mại bán bản quyền.Bản thân người đó cũng đã xài chùa rùi có anh nào mua bản quyền Autocad chưa? ko phải ai cùng xài "Chùa" đâu bạn

có anh nào mua bản quyền Window chưa? win bản quyền theo lap top chắc ko phải chùa

anh viết lisp bằng chương trình gì, chương trình viết đó của anh có bản quyền chưa?.xài notepad

Chống vi phạm bản quyền là điều tốt nhưng dùng một cái vi phạm bản quyền để tạo ra sản phẩm có bản quyền liệu còn đúng chăng?

Bạn làm nghề gì?

Kỹ sư? kiến trúc sư? hay họa viên?

Bạn dùng CAD "chùa", Etab "chùa", office "chùa" thậm chí window cũng "chùa" vậy bạn có lấy tiền từ bản vẽ bạn vẽ ra ko?

Trả lời các câu hỏi trên xong thì chúng mình cùng bàn tiếp về vấn đề bản quyền :D

Vài dòng thư giãn :D

[nguyentruonghan 2]

Anh phamngoctukts ơi! Cho em hỏi , em cài đặt được rồi nhưng khi thể hiện lệnh thì vẫn thực thi nhưng Cad báo không thấy layer thì làm thế nào vậy anh?

[phamngoctukts 714]

Anh phamngoctukts ơi! Cho em hỏi , em cài đặt được rồi nhưng khi thể hiện lệnh thì vẫn thực thi nhưng Cad báo không thấy layer thì làm thế nào vậy anh?

Bạn gõ lệnh "tao" thì sẽ tạo ra các layer cần thiết cho các lisp có thể chạy được.

[phamngoctukts 714]

Good! hoan nghênh tinh thần chia sẽ bạn.Tôi rất phê phán những ai tự viết hoặc sưu tầm được vài lisp lại đem vô thương mại bán bản quyền.Bản thân người đó cũng đã xài chùa rùi có anh nào mua bản quyền Autocad chưa? có anh nào mua bản quyền Window chưa? anh viết lisp bằng chương trình gì, chương trình viết đó của anh có bản quyền chưa?.

Chống vi phạm bản quyền là điều tốt nhưng dùng một cái vi phạm bản quyền để tạo ra sản phẩm có bản quyền liệu còn đúng chăng?

Mình trả hiểu bạn nói gì?!!! Ở đây cái gì có bản quyền và cái gì không có bản quyền??

[onfuture 13]

Pác phamngoctukts tạo ra bộ này hay thiệt, có rất nhiều ứng dụng hữu ích. Em trị được cái pass 19741979 rùi. Pác nào thực sự có nhu cầu thì em mail cho cách trị theo kiểu nông dân của e.

[ketxu 2.984]

Mình đã ẩn 2 bài bạn reddevil88 trình bày cách un-lock. Tất nhiên ý của bạn muốn share là rất tốt, tuy nhiên, hãy nhớ, đừng bao giờ viết trên topic của các tác giả, nếu không thì bài chia sẻ của các bạn không còn chút ý nghĩa nào

[onfuture 13]

Mình đã ẩn 2 bài bạn reddevil88 trình bày cách un-lock. Tất nhiên ý của bạn muốn share là rất tốt, tuy nhiên, hãy nhớ, đừng bao giờ viết trên topic của các tác giả, nếu không thì bài chia sẻ của các bạn không còn chút ý nghĩa nào

 

Vậy e làm 1 topic mới để share cái thư viện của a phamngoctukts được ko a ketxu?

[mote_rangrua00 1]

bác phamngoctukts ơi,cho em và mọi người trên diễn đàn xin cai pass và hướng dẫn sử dụng nhé

chứ kiểu này thì mọi người khốn khổ lắm

cứ mày mò mãi cũng không ra gì

đã mất công làm thì làm rồi thì mất công thêm tý nữa chắc la không sao

bác giúp em với nhé

email: phuctranxd.2011@gmail.com

cảm ơn bác nhiều

[phamngoctukts 714]

Mình đã ẩn 2 bài bạn reddevil88 trình bày cách un-lock. Tất nhiên ý của bạn muốn share là rất tốt, tuy nhiên, hãy nhớ, đừng bao giờ viết trên topic của các tác giả, nếu không thì bài chia sẻ của các bạn không còn chút ý nghĩa nào

Tùng ơi không cần phải ẩn các bài viết về cách mở khóa đâu. Anh làm cái khóa đó chỉ với mục đích là cho người dùng phải tự mầy mò tới lisp để có thể tự mở khóa thôi ngoài ra không có mục đích gì khác. Với lại anh cũng không có thời gian trả lời các câu hỏi của mem.

[khanhanh2312 0]

Pác phamngoctukts tạo ra bộ này hay thiệt, có rất nhiều ứng dụng hữu ích. Em trị được cái pass 19741979 rùi. Pác nào thực sự có nhu cầu thì em mail cho cách trị theo kiểu nông dân của e.

anh chỉ e cách mở lệnh của anh với!

[vipvui 1]

vâng, xin chào tất cả ae trên diễn đàn, xin cảm ơn anh tú, mình là thành viên mới của cadviet, sau một buổi tối mình đã tìm ra pass, ae thử pass là 1 nhé :) nếu đúng ae like hộ mình cái nha

[ketxu 2.984]

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 :(

[anhthao10 1]

đơ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ở

[hungherohl 1]

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

 

[ngotheanh 6]

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.

[hocvecad 2]

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: