Đến nội dung


Hình ảnh
* * * * * 2 Bình chọn

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


  • Please log in to reply
84 replies to this topic

#61 phiyen137

phiyen137

    Chưa sử dụng CAD

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

Đã gửi 05 October 2013 - 11:01 AM

các anh cho em xin hướng dẫn sử dụng từng lisp nhé! 

em xin chân thành cảm ơn.

nick của em: tridung137@yahoo.com


  • -1

#62 xuanacker

xuanacker

    biết vẽ circle

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

Đã gửi 16 October 2013 - 09:39 AM

cảm ơn Bác rất nhiểu.bộ list rất hay.nhưng mà e chưa dùng lít nhiều nên không quen lắm.Bác có cái hướng dẫn nào trong file list bác gửi không chỉ em với để có thể sử dụng file list cho hiệu quả nhất.vì nhiều file quá cũng nên biết ứng dụng sẽ.nếu có thể bác gửi vào mail remix1705@gmail.com cho e nhé.Thaks bác trước


  • 0
xuanacker

#63 minhnhat042000

minhnhat042000

    biết pan

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

Đã gửi 21 October 2013 - 02:15 PM

Chương trình này đúng là hay thật, đầu tiên xin cảm ơn tác giả đã tạo và chia sẻ cùng mọi người. Nhưng thú thật, cài đặt xong, mở khóa xong, tuy nhiên không biết cách nào dùng được hết. Vẽ gì nó cũng bảo không tìm thấy DUONGBAO... , còn phần "kiến trúc" thì hầu như không cách nào sử dụng được hết. Nếu có thể xin tác giả chỉ giáo thêm vài đường vào mail hoặc chia sẻ trực tiếp trên diễn đàn để mọi người có thể học hỏi. Cảm ơn nhiều: minhnhat042000@gmail.com


  • 0

#64 minhnhat042000

minhnhat042000

    biết pan

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

Đã gửi 21 October 2013 - 02:16 PM

Chương trình này đúng là hay thật, đầu tiên xin cảm ơn tác giả đã tạo và chia sẻ cùng mọi người. Nhưng thú thật, cài đặt xong, mở khóa xong, tuy nhiên không biết cách nào dùng được hết. Vẽ gì nó cũng bảo không thấy DUONGBAO... nếu có thể xin tác giả chỉ giáo thêm vài đường vào mail hoặc chia sẻ trực tiếp trên diễn đàn để mọi người có thể học hỏi. Cảm ơn nhiều: minhnhat042000@gmail.com


  • 0

#65 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

#66 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

#67 kukoi1993pt

kukoi1993pt

    biết pan

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

Đã gửi 15 January 2014 - 05:09 PM

a phạm ngọc tú ui e dowload lisp cua bác về rùi mà ko có pass mong bác cho em xin được ko ak.thanks bác nhìu bác gửi qua địa chỉ này cho e xin với nhé kukoi1993pt@gmail.com


  • 0

#68 kukoi1993pt

kukoi1993pt

    biết pan

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

Đã gửi 17 January 2014 - 04:06 PM

các bác ui chẳng hỉu sao sau khi e cai sutup lispcad cua bac pham ngoc tu rùi nhưng bị khóa mấy lệnh kia lại ạ.voi lại các bác pít chỉ cho em cách sử dụng lisp cad đó với ak .thanks nhìu ak


  • 0

#69 kukoi1993pt

kukoi1993pt

    biết pan

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

Đã gửi 17 January 2014 - 04:45 PM

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.

pác chỉ cho e với ak e kũg đang thắc mắc quá s thanks pác nhìu


  • 0

#70 boyocc7

boyocc7

    Chưa sử dụng CAD

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

Đã gửi 11 March 2014 - 05:07 PM

các anh pro ơi . e cài đặt được rồi mà tìm mãi không có pass à. các anh giúp e với được không??


  • 0

#71 tathevu

tathevu

    Chưa sử dụng CAD

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

Đã gửi 11 March 2014 - 11:40 PM

pass mở khóa là gì vậy.làm ơn gửi huong dan cho mình với.gmail:thevu17051994@gmail.com


  • 0

#72 cadcadcadok

cadcadcadok

    Chưa sử dụng CAD

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

Đã gửi 21 March 2014 - 11:04 AM

Xin phép bác thớt nhưng em đã xóa folder tatmolenh rồi, chứ mỗi lần khởi động lại cad là phải mở khóa hơi bất tiện


  • 0

#73 94v0tjnh

94v0tjnh

    Chưa sử dụng CAD

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

Đã gửi 24 March 2014 - 06:13 PM

cac anh oi tai ve rui cai dat no doi mat khau ,mat khau la gi the giup e voi em dang can gap .


  • 0

#74 dovantrung992

dovantrung992

    Chưa sử dụng CAD

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

Đã gửi 27 March 2014 - 01:02 PM

Bác Phamngoctukts ui!
Bác cũng gửi cho em hướng dẫn đi, chứ em cài xong cũng chẳng bit gì cả, mà có mò dc một vai lệnh cũng ko bít làm sao.....
nick mail của mình là: dovantrung992@gmail.com


  • 0

#75 vanquyetctc1

vanquyetctc1

    Chưa sử dụng CAD

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

Đã gửi 02 April 2014 - 11:51 PM

anh ơi giúp em mở khóa với ạ. em tìm trong ổ C chỉ có thế này thôi ạ

 


  • 0

#76 vanquyetctc1

vanquyetctc1

    Chưa sử dụng CAD

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

Đã gửi 02 April 2014 - 11:53 PM

anh ơi giúp em mở khóa với ạ. em tìm trong ổ C chỉ có thế này thôi ạ


  • 0

#77 Sol Archi

Sol Archi

    Chưa sử dụng CAD

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

Đã gửi 22 May 2014 - 02:05 AM

mấy anh cho em hỏi, em down về rùi cài rồi, sau đó vào Cad (2007) nhấn setup như hướng dẫn nhưng "unknown command "SETUP", vậy phài làm sao vậy ?


  • 0

#78 rancua1501

rancua1501

    biết zoom

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

Đã gửi 22 July 2014 - 04:13 PM

a gửi cho e với dungtran1501@gmail.com


  • 0

#79 a6tammao

a6tammao

    Chưa sử dụng CAD

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

Đã gửi 14 August 2014 - 09:42 AM

Đánh 1 nó hiện ra: Dữ liệu không hợp lệ

Cách làm việc của chủ Thread rất giống mấy tên thương nhân xấu tính. Cho thì cho luôn, còn nếu muốn bán sản phẩm thì nói ra luôn đi

Ae cài xong mở khóa bằng cách 
khoa : pass ( vd : 123)
mo : 123 
ok mở khóa xong :D
lsau khởi động cad gõ : mo => enter : 123 mở khóa bth :D


  • 0

#80 daiphong

daiphong

    Chưa sử dụng CAD

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

Đã gửi 25 August 2014 - 10:30 PM

cảm ơn vì sự đóng góp của bạn. Mình chưa thể hiểu được cách sử dụng ntn. mong được bạn chia sẽ qua emal ks.vodaiphong@gmail.com


  • -1