Rated 5/5 based on 240179 internet user reviews

Jump to content


Change Photo
- - - - -

[Đă xong] Chia sẻ Bộ Lisp rất hay: ”Kho báu của Minh”


  • Please log in to reply
29 replies to this topic

#1 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 02 August 2011 - 10:01 AM

Sau một thời gian dài, cuối cùng Minh cũng sưu tầm xong bộ lisp của mình ^_^ . Bộ lisp này rất hữu ích cho những ai sử dụng acad, nó làm cho công việc trở nên nhanh chóng một cách lạ thường (đặc biệt là dân thiết kế giao thông, vì Minh là dân giao thông mà, nhưng những ngành khác cũng xài bộ lisp này được đấy)

Cảm ơn các anh chị em trong diễn đàn đã giúp đỡ lẫn nhau rất nhiệt tình
Cảm ơn bác nào đã sáng lập ra diễn đàn rất hữu ích này
Cadviet muôn năm! :)

Download: http://www.mediafire.com/?x6xq01snfsgh63c

Cách load bộ lisp (sau khi tham khảo 2 bài viết của bác duy782006, em vẫn chẳng hiểu gì nên xin đưa ra cách load lisp của mình, các anh em chịu khó 1 tí nhé :D ):
- Load thư mục "Tong bo Lisp": trong acad bạn gõ "op" -> chọn thẻ Files -> click đúp vào Support File Search Path -> bấm nút Add -> Browse -> chọn đường dẫn đến thư mục "Tong bo Lisp" -> ok
Qua bên thẻ System -> click vào mục Load acad.lsp with every drawing trong mục General Options -> tắt acad và bật lên lại là xong
- Load những thứ còn lại: trong acad gõ lệnh "ap" -> click nút Contents trong mục Startup suite (có ký hiệu hình chiếc cặp) -> Add tất cả những lisp còn lại vào -> close

Lưu ý: một số lệnh sau bị trùng lệnh, các bạn sửa lại lệnh bằng cách: trong acad chọn menu Tools -> Customize -> Edit Program Parameters (acad.pgp) rồi chỉnh lại các lệnh tắt của acad -> tắt acad và bật lại
các lệnh trùng:
lệnh trim lúc này là "t" nên bạn phải sửa lại lệnh viết text "t" -> ví dụ "t1"
"b" tạo block -> sửa lại ví dụ "bl"
"h" tạo hatch -> sửa lại ví dụ "bh" hay "h1"...

Danh sách các lisp trong bộ lisp này (khá dài):
1. Bộ lisp phục vụ cho công tác giải phóng mặt bằng:
 Chèn cọc GPMB và MLG (nhớ đặt layer riêng cho cọc để sau này tính tọa độ GPMBT, GPMBP, MLGT, MLGP): CG-chen block theo giao diem.Lsp
 Xoay cọc GPMB và MLG theo hướng tuyến: LISP QUAY HOGA THEO HUONG DUONG CONG HOAC THANG.lsp
 Điền tên cọc GPMB và MLG (layer TEXT GPMB): mabl.lsp
 Vẽ đường ranh GPMB và MLG: mabl.lsp
 Xuất tọa độ các cọc GPMB và MLG ra bảng (tạo layer riêng để sau này xóa số của lisp): vc.lsp
 Chỉnh sửa bảng tọa độ: themtext-bottext.lsp
2. Cộng trừ nhân chia số trong text: cong_tru_nhan_chia.lsp
3. Copy nội dung text này dán sang text khác y chang: mat.lsp
4. Đánh số thứ tự bằng tay: num.lsp
5. Đánh số thứ tự tự động: dsbv_1.vlx
6. Diệt virus acad.lsp: gõ “ap” sau đó add lisp cvav_1_04.lsp vào mục content
7. Hiển thị tọa độ có mũi tên: XTD.lsp, td.lsp
8. Rải đối tượng theo đường dẫn: raidtok.lsp
9. In tự động trong chế độ Model và Layout: INTUDONG folder
10. Lấy lại diện tích từ trắc ngang bị lỗi: Lay dien tich tu Trac ngang folder
11. Copy, xóa hay move tất cả đối tượng thuộc 1 layer: xoa,copy,move all doi tg thuoc 1 layer.lsp
12. Tính diện tích và điền số (dùng để sửa khối lượng trắc ngang và tính diện tích GPMB): TINH DIEN TICH VA GHI SO.lsp (lệnh ss)
13. Scale đối tượng theo 1 chiều: Scale 1 chieu.lsp
14. Nối các line rời rạc khép kín thành 1 polyline kín: NOI CAC LINE ROI RAC THANH 1 POLYLINE – NN.lsp
15. Đổi điểm chèn của block: DOI DIEM CHEN BLOCK – DBL.lsp (các block được copy ra cũng thay đổi theo)
16. Tổng cả bộ lisp:
 Đổi chữ hoa, chữ thường: lệnh: ca
 Chọn số chữ số lẻ của kích thước: acc
 Đo kích thước theo phương ngang: h
 Canh vị trí dim ngang: h1
 Canh vị trí đường dóng ngang (cắt dim): h2
 Đo kích thước theo phương đứng: v
 Canh vị trí dim đứng: v1
 Canh vị trí đường dóng đứng (cắt dim): v2
 Đặt tỉ lệ cho dim: tl
 Cập nhật tỉ lệ cho dim: up
 Chuyển các dim về layer 2: d2
 Chuyển các dim về layer tự đặt: dl
 Quay text của dim 180 độ: md
 Quay về như cũ: umd
 Vẽ ký hiệu cắt: cut
 Vẽ cốt thép với số lượng biết trước: st1
 Vẽ cốt thép với khoảng cách giữa 2 thanh cho trước (gần đúng): st
 Vẽ thép móc tròn: hk
 Copy siêu tốc: cc
 Thêm ký hiệu ± vào trước một số: da
 Quay nhiều text cùng 1 góc: rot
 Sắp xếp text rất pro: arr
 Tính chiều dài các đường thẳng: cl
 Vẽ ký hiệu đầu cờ tim đường: dx
 Dọn rác bản vẽ: pu
 Quay đối tượng kiểu pro: r
 Tách riêng 1 layer: ly
 Tắt 1 layer: lf
 Bật tất cả layer: lo
 Tính độ dốc: dd
 Chạy lại bộ lisp này: acad
 Chuyển font TCVN sang VNI: t2v → ct2 (font phải là vn_vni.shx)
17. Trim linh hoạt: trim dạng fence (hàng rào)
18. Xuất tọa độ hố ga trong acad 2007
19. Copy các block attribute với số thự tự tăng dần (dùng vẽ các hố ga): od_oc_oca.lsp
20. Sửa các block attribute với số thự tự tăng dần (dùng sửa các hố ga): chatt.lsp
21. Làm to các biểu tượng trong cad
22. Lệnh tắt thay thế và tìm kiếm: Alt+e+f
23. Các mẫu hatch siêu đẹp cho cad
24. Các linetype cho cad: LINETYPE.dwg
25. Tạo các linetype cho riêng mình: xem file hướng dẫn
26. Font kỹ thuật theo đúng TCVN 7284: copy 2 font vào C:\windows\fonts\
27. Phần mềm đổi đơn vị
28. Phần mềm nội suy 1 và 2 chiều
29. Phá password excel
30. Khắc phục dim nhảy lung tung: gõ “dimassoc” cho = 2
31. Cách gõ các ký tự đặc biệt trong cad
32. Chỉnh màn hình khởi động cad2007 dạng 3d thành 2d classic như cad2005: Options... Chọn thẻ Files, đến mục Template Settings nhấn vào mũi tên màu trắng cho nó xổ xuống, Chọn mục Default Template File Name for QNEW cho nó xổ xuống. Nhấn chọn dòng này nhấn Remove. Khởi động lại acad.
33. Chuyển bảng tính excel sang đối tượng acad: VBA project 1
34. Chuyển text acad sang đối tượng excel: TEXT ACAD SANG TEXT EXCEL - C2E.lsp
35. Phần mềm thống kê cốt thép: TipSetupUniCode

Hy vọng những công cụ này đem lại hữu ích cho các anh chị em thiết kế.
Chúc các anh chị em thiết kế nhà ta gặt hái được
nhiều thành công trong công việc và hạnh phúc trong gia đình.

Thân chào.
Minh.
  • 15

#2 hakhoailang

hakhoailang

    biết lệnh rotate

  • Members
  • PipPipPip
  • 131 posts
Danh tiếng: 2 (b́nh thường)

Gửi vào 05 August 2011 - 04:33 PM

em cũng là dân giao thông nhưng khó hiểut lắm
file nào sử dụng như thế nào load như thế nào vào đau để load .
có như thế th́ gà như bọn em mới hiểu dc chứ .
em nghiên cứu 1 buổi rồi mà vẫn bằng không
  • 1

#3 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1,107 posts
Danh tiếng: 687 (tốt)

Gửi vào 06 August 2011 - 12:42 AM

Sau một thời gian dài, cuối cùng Minh cũng hoàn thành xong bộ lisp của ḿnh ^_^ . Bộ lisp này rất hữu ích cho những ai sử dụng acad, nó làm cho công việc trở nên nhanh chóng một cách lạ thường (đặc biệt là dân thiết kế giao thông, v́ Minh là dân giao thông mà, nhưng những ngành khác cũng xài bộ lisp này được đấy)

Trong bộ này có file pdf hướng dẫn sơ sơ cách sử dụng lisp, do nhiều quá nên Minh không viết chi tiết ra được, bác nào không hiểu chỗ nào cứ hỏi, Minh sẽ trả lời.

Cảm ơn các anh chị em trong diễn đàn đă giúp đỡ lẫn nhau rất nhiệt t́nh
Cảm ơn bác nào đă sáng lập ra diễn đàn rất hữu ích này
Cadviet muôn năm! :)

Download: http://www.mediafire...ism9z6aapuudd3s

Đây đúng là kho báu của 40 tên cướp rồi. Phải chăng bạn là Alibaba???
  • 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 Posted Image!

#4 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 06 August 2011 - 03:41 PM

Đây đúng là kho báu của 40 tên cướp rồi. Phải chăng bạn là Alibaba???

Ḿnh là Bin laden. Bạn có muốn gia nhập tổ chức của ḿnh không? :ph34r:
  • 0

#5 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 06 August 2011 - 03:50 PM

em cũng là dân giao thông nhưng khó hiểut lắm
file nào sử dụng như thế nào load như thế nào vào đau để load .
có như thế th́ gà như bọn em mới hiểu dc chứ .
em nghiên cứu 1 buổi rồi mà vẫn bằng không

h́nh như bác chưa đi làm nhỉ?
file mà có đuôi".lsp" chính là file lisp
cách load: trong acad gơ "ap"
cách 1: rồi chọn đến file lisp đó rồi bấm nút Load - cách này chỉ có hiệu lực một lần, lần sau bác phải làm lại y như vậy
cách 2: click vào nút content -> add -> chọn tất cả các file lisp - cách này chỉ cần làm một lần, những lần sau lisp sẽ tự động chạy mỗi khi khởi động acad
bác lên google xem thêm về cách sử dụng lisp nhé. :)
  • 1

#6 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2,034 posts
Danh tiếng: 1297 (rất tốt)

Gửi vào 06 August 2011 - 11:28 PM

h́nh như bác chưa đi làm nhỉ?
file mà có đuôi".lsp" chính là file lisp
cách load: trong acad gơ "ap"
cách 1: rồi chọn đến file lisp đó rồi bấm nút Load - cách này chỉ có hiệu lực một lần, lần sau bác phải làm lại y như vậy
cách 2: click vào nút content -> add -> chọn tất cả các file lisp - cách này chỉ cần làm một lần, những lần sau lisp sẽ tự động chạy mỗi khi khởi động acad
bác lên google xem thêm về cách sử dụng lisp nhé. :)

-Đă gọi là bộ lisp th́ bạn nên có 1 file dùng load cái "các file lisp" để người dùng load phát ăn ngay cho nó đỡ lôm côm bạn ạ.
-Khi khoe th́ nên đưa riêng giới thiệu cho bà con ḍm ngó và ném đá chứ load tất về mới xem đc th́ la9m1 người lười như ḿnh lắm.
*vài lời thế hy vọng bạn ko giận.
  • -1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#7 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2,202 posts
Danh tiếng: 722 (tốt)

Gửi vào 06 August 2011 - 11:41 PM

Em cũng nghĩ là nên quảng cáo lisp A có tác dụng ǵ, Lisp B sử dụng vào công việc ǵ để mọi người được biết
ai thấy cái nào cần cho công việc th́ Downloat về dùng đỡ mất thời gian hơn. Xin cảm ơn anh đă chia sẻ!
  • 0

Đức hạnh lớn nhất mà bên cạnh đó, mọi đức hạnh khác đều mờ nhạt đi, đó là không làm hại ai và tùy sức mà giúp đỡ mọi người "
Em nóđây:http://www.cadviet.c...40----------------------------------------Không nên đi đường tắt, hãy chọn một còn đường thẳng thắn!


#8 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 4,544 posts
Danh tiếng: 2161 (tuyệt vời)

Gửi vào 07 August 2011 - 08:40 AM

Dauquangminh:
Sau một thời gian dài, cuối cùng Minh cũng hoàn thành xong bộ lisp của ḿnh
Phamngoctukts:
Đây đúng là kho báu của 40 tên cướp rồi. Phải chăng bạn là Alibaba???
Dauquangminh:
Ḿnh là Bin laden. Bạn có muốn gia nhập tổ chức của ḿnh không?
duy782006:
-Đă gọi là bộ lisp th́ bạn nên có 1 file dùng load cái "các file lisp" để người dùng load phát ăn ngay cho nó đỡ lôm côm bạn ạ.
-Khi khoe th́ nên đưa riêng giới thiệu cho bà con ḍm ngó và ném đá chứ load tất về mới xem đc th́ la9m1 người lười như ḿnh lắm.

Cái ǵ của ḿnh th́ nói của ḿnh, cái ǵ không phải của ḿnh th́ nói không phải của ḿnh. Khi đó cái của ḿnh mới chính là của ḿnh, và cái của người ta cũng là của ḿnh luôn!
Tôi mới đọc 1 lsp của bạn nhưng thấy có duy782006 trong đó nên không biết Dauquangminh=duy782006?
  • 1

#9 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5,218 posts
Danh tiếng: 2373 (tuyệt vời)

Gửi vào 07 August 2011 - 08:57 AM

:lol: dauquangminh có thể ghi chú rơ hơn đây là bộ lisp sưu tập, v́ xem sơ qua th́ kha khá lsp được sinh ra từ CV :lol: .
"Hoàn thành xong bộ lisp của ḿnh" chắc ư ở đây là tổng hợp xong ? V́ nhiều người viết ra lisp nào đó trong bộ lisp bạn post sẽ phật ḷng lắm và dễ hiểu lầm ư bạn là "bạn viết".
Vậy hăy cố gắng giữ các thông tin về tác giả trong mỗi lisp down được bạn nhé
Mong bạn phát huy tinh thần share đáng quư này :wub:
  • 1

Thành viên nhóm CadMagic.

Mời bạn ghé thăm facebook nhóm  :

CAD MAGIC


#10 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1,107 posts
Danh tiếng: 687 (tốt)

Gửi vào 07 August 2011 - 09:37 AM

:lol: dauquangminh có thể ghi chú rơ hơn đây là bộ lisp sưu tập, v́ xem sơ qua th́ kha khá lsp được sinh ra từ CV :lol: .
"Hoàn thành xong bộ lisp của ḿnh" chắc ư ở đây là tổng hợp xong ? V́ nhiều người viết ra lisp nào đó trong bộ lisp bạn post sẽ phật ḷng lắm và dễ hiểu lầm ư bạn là "bạn viết".
Vậy hăy cố gắng giữ các thông tin về tác giả trong mỗi lisp down được bạn nhé
Mong bạn phát huy tinh thần share đáng quư này :wub:

Thế th́ anh mới nói đây là kho báu của 40 tên cưóp c̣n chủ topic chỉ là Alibaba thôi :lol:
  • 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 Posted Image!

#11 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 08 August 2011 - 08:05 AM

-Đă gọi là bộ lisp th́ bạn nên có 1 file dùng load cái "các file lisp" để người dùng load phát ăn ngay cho nó đỡ lôm côm bạn ạ.
-Khi khoe th́ nên đưa riêng giới thiệu cho bà con ḍm ngó và ném đá chứ load tất về mới xem đc th́ la9m1 người lười như ḿnh lắm.
*vài lời thế hy vọng bạn ko giận.

Em không giận bác ǵ đâu. :D
Em không biết cách tạo một file để load các file lisp để load phát ăn ngay như thế nào. hix. các bác thông cảm, bác nào biết th́ chỉ em cũng được.
C̣n về giới thiệu các lisp th́ thú thật với bác là nhiều lisp lắm nên em chẳng biết giới thiệu cái nào, mà có giới thiệu cũng chỉ vài lisp thôi, v́ nếu giới thiệu hết th́ nó ngốn hết 3 trang A4 đấy bác ạ.
  • 0

#12 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 08 August 2011 - 08:09 AM

Em cũng nghĩ là nên quảng cáo lisp A có tác dụng ǵ, Lisp B sử dụng vào công việc ǵ để mọi người được biết
ai thấy cái nào cần cho công việc th́ Downloat về dùng đỡ mất thời gian hơn. Xin cảm ơn anh đă chia sẻ!

bạn thông cảm. Nếu ḿnh giới thiệu hết tất cả các lisp th́ sợ không đủ diện tích viết bài, v́ bài liệt kê các lisp đă dài 3 trang A4 rồi, nếu chèn thêm các lisp vào th́ không biết nó sẽ dài đến đâu nữa. :wacko:
  • 0

#13 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 08 August 2011 - 08:15 AM

Cái ǵ của ḿnh th́ nói của ḿnh, cái ǵ không phải của ḿnh th́ nói không phải của ḿnh. Khi đó cái của ḿnh mới chính là của ḿnh, và cái của người ta cũng là của ḿnh luôn!
Tôi mới đọc 1 lsp của bạn nhưng thấy có duy782006 trong đó nên không biết Dauquangminh=duy782006?

ôi, ngại quá. Ư ḿnh nói "hoàn thành xong" tức là "sưu tầm xong" ấy, chứ ḿnh có biết viết lisp ǵ đâu. Bộ lisp này được tổng hợp từ các trang web trên internet (có cả cadviet nữa), bác nào là tác giả xin niệm t́nh bỏ qua cho em, em cũng chỉ muốn chia sẻ cho anh em thôi mà. :unsure:
  • 0

#14 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 08 August 2011 - 08:17 AM

:lol: dauquangminh có thể ghi chú rơ hơn đây là bộ lisp sưu tập, v́ xem sơ qua th́ kha khá lsp được sinh ra từ CV :lol: .
"Hoàn thành xong bộ lisp của ḿnh" chắc ư ở đây là tổng hợp xong ? V́ nhiều người viết ra lisp nào đó trong bộ lisp bạn post sẽ phật ḷng lắm và dễ hiểu lầm ư bạn là "bạn viết".
Vậy hăy cố gắng giữ các thông tin về tác giả trong mỗi lisp down được bạn nhé
Mong bạn phát huy tinh thần share đáng quư này :wub:

Vâng. cảm ơn bác đă nhắc nhở. Em sẽ rút kinh nghiệm :P
  • 0

#15 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 08 August 2011 - 08:19 AM

Thế th́ anh mới nói đây là kho báu của 40 tên cưóp c̣n chủ topic chỉ là Alibaba thôi :lol:

Buồn quá. Hix :(
  • 0

#16 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2,034 posts
Danh tiếng: 1297 (rất tốt)

Gửi vào 08 August 2011 - 08:27 AM

Em không giận bác ǵ đâu. :D
Em không biết cách tạo một file để load các file lisp để load phát ăn ngay như thế nào. hix. các bác thông cảm, bác nào biết th́ chỉ em cũng được.
C̣n về giới thiệu các lisp th́ thú thật với bác là nhiều lisp lắm nên em chẳng biết giới thiệu cái nào, mà có giới thiệu cũng chỉ vài lisp thôi, v́ nếu giới thiệu hết th́ nó ngốn hết 3 trang A4 đấy bác ạ.

-Muốn bộ lisp ngó có tổ chức bạn tham khảo bài này của ḿnh:
My link
-Muốn soạn 1 menu cho bộ lisp bạn dùng lisp này của ḿnh.
My link
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#17 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1,107 posts
Danh tiếng: 687 (tốt)

Gửi vào 08 August 2011 - 09:19 AM

Buồn quá. Hix :(

Bạn sửa bài post như bây giờ th́ ai nói được bạn. Tại bạn nói bạn hoàn thành bộ lisp mà ḿnh thấy đa số là bạn lấy từ diễn đàn xuống nên mới nói thế. Mong bạn đừng giận dai :lol:
  • 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 Posted Image!

#18 dauquangminh

dauquangminh

    biết vẽ arc

  • Members
  • PipPip
  • 41 posts
Danh tiếng: 31 (tàm tạm)

Gửi vào 08 August 2011 - 09:47 AM

Bạn sửa bài post như bây giờ th́ ai nói được bạn. Tại bạn nói bạn hoàn thành bộ lisp mà ḿnh thấy đa số là bạn lấy từ diễn đàn xuống nên mới nói thế. Mong bạn đừng giận dai :lol:

chí phải, chí phải.
Bác chỉ được cái nói đúng :lol:
  • 0

#19 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2,202 posts
Danh tiếng: 722 (tốt)

Gửi vào 08 August 2011 - 10:44 AM

Cái gì của mình thì nói của mình, cái gì không phải của mình thì nói không phải của mình. Khi đó cái của mình mới chính là của mình, và cái của người ta cũng là của mình luôn!
Tôi mới đọc 1 lsp của bạn nhưng thấy có duy782006 trong đó nên không biết Dauquangminh=duy782006?

chí phải, chí phải.
Bác chỉ được cái nói đúng :lol:

Xin lỗi các bác cho em spam một cái cho vui!
"Cái gì của mình thì nói của mình, cái gì không phải của mình thì nói không phải của mình. Khi đó cái của mình mới chính là của mình, và cái của người ta cũng là của mình luôn!"
Chân lý trên luôn đúng trong mọi thời đại, cảm ơn anh Doan Van Ha về một câu nói hay, cảm ơn anh dauquangminh vì sự chia sẻ...! Em không thể nhấn dấu xanh + thêm được nữa vì sáng nay vừa nhấn 4 lần, đành nói lời cảm ơn suông mong các bác thông cảm
  • 0

Đức hạnh lớn nhất mà bên cạnh đó, mọi đức hạnh khác đều mờ nhạt đi, đó là không làm hại ai và tùy sức mà giúp đỡ mọi người "
Em nóđây:http://www.cadviet.c...40----------------------------------------Không nên đi đường tắt, hãy chọn một còn đường thẳng thắn!


#20 Tue_NV

Tue_NV

    KS Vơ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4,116 posts
Danh tiếng: 3636 (đỉnh cao)

Gửi vào 08 August 2011 - 11:02 AM

......
- Load những thứ còn lại: trong acad gõ lệnh "ap" -> click nút Contents trong mục Startup suite (có ký hiệu hình chiếc cặp) -> Add tất cả những lisp còn lại vào -> close
.......
.......

Chào bạn.
Lisp sau đây Load toàn bộ các LSP, VLX, FAS trong cùng thư mục
Bạn thử code này :
(defun c:LLP(/ duongdan)
;;;copyright by Tue_NV
(SETQ duongdan (vl-filename-directory (getfiled "Chon 1 file VLX,LSP,FAS bat ki trong thu muc" "" "LSP;VLX;FAS" 0)))
(mapcar 'LOAD
  (mapcar '(lambda (x) (strcat duongdan "\\" x))
     (apply 'append
	  (mapcar '(lambda(x y) (vl-directory-files x y))
			(list duongdan duongdan duongdan)
			'("*.VLX" "*.LSP" "*.FAS")
	  )
     )
   )
)
)
Như vậy, chỉ cần 1 Lisp này thôi là nó sẽ Load các LSP, VLX, FAS trong cùng thư mục với nó
  • 2