Đế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

#1 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 31 July 2010 - 04:04 PM

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
Hình đã gửi
Hình đã gửi
Chúc diễn đàn luôn luôn phát triển!!!!!
  • 33
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#2 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 09 August 2010 - 10:37 PM

các bạn dùng command: khoa để tạo pass mới dùng command: mo để mở khoá.
  • 4
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#3 mr.nguyen08ql

mr.nguyen08ql

    biết lệnh text

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

Đã gửi 15 October 2010 - 12:58 AM

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!!!!
  • 1

#4 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 15 October 2010 - 09:02 AM

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
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#5 mr.nguyen08ql

mr.nguyen08ql

    biết lệnh text

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

Đã gửi 15 October 2010 - 10:57 PM

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.c...acad2007doc.lsp sau đó paste vào thư mục acad2008doc.lisp ah.
  • 0

#6 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 16 October 2010 - 05:04 PM

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.c...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.
  • 2
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#7 mr.nguyen08ql

mr.nguyen08ql

    biết lệnh text

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

Đã gửi 17 October 2010 - 12:56 AM

[dạ thì em mở bằng kái đó mà.nhưng dong cuối nó chỉ là máy câu lệnh trong lisp thui mà.hay dong này ah :
Loads the indicated ARX app if it isn't already loaded
;; returns nil if no load was necessary, else returns the
;; app name if a load occurred.
(defun verify_arxapp_loaded (app)
(if (not (loadedp app (arx)))
(arxload app f)
[/b]
  • 0

#8 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 06 January 2011 - 05:14 PM

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!!!
  • 2
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#9 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4326 Bài viết
Điểm đánh giá: 3827 (đỉnh cao)

Đã gửi 20 December 2011 - 08:42 AM

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?............
  • 1

#10 Detailing

Detailing

    biết lệnh imageclip

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

Đã gửi 20 December 2011 - 08:58 AM

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

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#11 nguyentruonghan

nguyentruonghan

    Chưa sử dụng CAD

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

Đã gửi 28 December 2011 - 02:21 PM

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?
  • 2

#12 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 16 January 2012 - 12:44 AM

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.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#13 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 16 January 2012 - 12:45 AM

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??
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#14 onfuture

onfuture

    biết vẽ rectang

  • Members
  • PipPip
  • 88 Bài viết
Điểm đánh giá: 13 (tàm tạm)

Đã gửi 06 July 2012 - 01:57 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.
  • 2

#15 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 July 2012 - 02:05 PM

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

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#16 onfuture

onfuture

    biết vẽ rectang

  • Members
  • PipPip
  • 88 Bài viết
Điểm đánh giá: 13 (tàm tạm)

Đã gửi 06 July 2012 - 02:14 PM

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?
  • 1

#17 mote_rangrua00

mote_rangrua00

    biết pan

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

Đã gửi 18 August 2012 - 05:13 PM

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

#18 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 708 (tốt)

Đã gửi 18 August 2012 - 10:46 PM

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.
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#19 khanhanh2312

khanhanh2312

    Chưa sử dụng CAD

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

Đã gửi 21 November 2012 - 04:10 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.

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

#20 vipvui

vipvui

    Chưa sử dụng CAD

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

Đã gửi 21 December 2012 - 01:17 PM

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