Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
30 replies to this topic

#21 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 August 2011 - 01:45 PM

Ketxu đóng góp thêm 1 chút , nếu đã chọn con đường load bằng getfield, để tránh cứ 1 thư mục lại làm 1 lần , đoạn sau sẽ load toàn bộ LSP,FAS,VLX,ARX ở thư mục mẹ + các thư mục con :
(defun c:loadall (/ duongdan lstLsp lstArx)
(setq duongdan (vl-filename-directory (getfiled "Chon 1 file VLX,LSP,FAS,ARX bat ki trong thu muc" "" "LSP;VLX;FAS;ARX" 0))
lstLsp (append (ST:File_GetAll duongdan "*.lsp")(ST:File_GetAll duongdan "*.vlx")(ST:File_GetAll duongdan "*.fas"))
lstArx (ST:File_GetAll duongdan "*.arx"))

(mapcar 'Load lsp)
(mapcar 'arxLoad lstArx)
)

(defun ST:File_GetAll ( Dir typ ) ;@ketxu
(append (mapcar '(lambda ( x ) (strcat Dir "\\" x)) (vl-directory-files Dir typ 1))
(apply 'append
(mapcar '(lambda ( x ) (ST:File_GetAll (strcat dir "\\" x) typ))
(cddr (vl-directory-files dir "*" -1))
)
)
)
)

  • 2

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


#22 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 16 September 2012 - 03:32 PM

Mình chép file lisp của Ketxu về rồi để chung nó với bộ lisp mình thường dùng trong C:\Program Files\Tool Lisp (1)
Sau đó mình load chỉ 1 lisp này lên rồi gõ loadall thì nó chuyển mình đến hộp thoại trong thư mục C:\Documents and Settings\Administrator\My Documents\Downloads. (2)
Đáng ra nó phải chuyển mình đến đường dẫn (1) chứ ko phải (2) phải ko, rồi mình thử chọn file cho nó load lên thì chỉ chọn dc từng file 1 (rất mất công vì mình cần chọn nhìu file)....sau khi thử load 1 file lên thì nó báo nil....
Vậy cho mình hỏi, lisp trên sai ở đâu hay mình cách dùng của mình ko đúng..
  • 0

#23 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 September 2012 - 04:47 PM

Bạn chỉ cần chọn 1 file trong thư mục mẹ để nó biết đường dẫn thôi, sau đó nó sẽ tự động load
  • 0

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


#24 longbyoongho

longbyoongho

    biết vẽ pline

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

Đã gửi 17 September 2012 - 10:39 AM

Cho mình hỏi là lisp arr load vào bị lỗi font vậy làm cách nào để khắc phục vậy.
  • 0
Đã 18 mùa cây lúa trổ bông,
Chưa 1 lần sờ mông con gái
Cũng từng ấy mùa khoai sọ,
Chưa 1 lần này nọ với ai.

#25 MAILEDUY.2010

MAILEDUY.2010

    biết vẽ rectang

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

Đã gửi 19 December 2013 - 10:23 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 happy.gif . 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! smile.gif

Download: http://www.mediafire...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é biggrin.gif ):
- 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.

Lâu rồi. đọc phần này thấy cũng hay ở trao đổi. Chứ phần lisp thì minh chưa biết gì hết. Cái này nghe rất lâu rồi nhưng giờ mới vào topic. hic... 

Lúc đầu chủ thớt nói là sưu tầm, tổng hợp, rồi chia sẻ...mà!

Vẫn 1 lời ủng hộ vì chủ thớt đã rất nhiệt tình... 


  • 0

#26 levanhuong1989

levanhuong1989

    biết vẽ circle

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

Đã gửi 26 August 2014 - 06:46 PM

Ketxu đóng góp thêm 1 chút , nếu đã chọn con đường load bằng getfield, để tránh cứ 1 thư mục lại làm 1 lần , đoạn sau sẽ load toàn bộ LSP,FAS,VLX,ARX ở thư mục mẹ + các thư mục con :

(defun c:loadall (/ duongdan lstLsp lstArx)
  (setq duongdan (vl-filename-directory (getfiled "Chon 1 file VLX,LSP,FAS,ARX bat ki trong thu muc" "" "LSP;VLX;FAS;ARX" 0))
		lstLsp (append (ST:File_GetAll duongdan "*.lsp")(ST:File_GetAll duongdan "*.vlx")(ST:File_GetAll duongdan "*.fas"))
		lstArx (ST:File_GetAll duongdan "*.arx"))
  
  (mapcar 'Load lsp)
  (mapcar 'arxLoad lstArx)
  ) 

(defun ST:File_GetAll ( Dir typ ) ;@ketxu
  (append (mapcar '(lambda ( x ) (strcat Dir "\\" x)) (vl-directory-files Dir typ 1))
    (apply 'append
      (mapcar '(lambda ( x ) (ST:File_GetAll (strcat dir "\\" x) typ))
        (cddr (vl-directory-files dir "*" -1))
      )
    )
  )
)

 

Chào bác Ketxu và các bác trong diễn đàn!

Các bác chỉ cho em cách mà khi mình chạy 1 lần giống như gọi menu, lần sau khi tắt cad đi và bật lại thì cad tự động load các líp mà mình chỉ đường dẫn cho nó.

Em đã có menu  nhưng để cad tự động load lisp thì lại phải dùng lệnh AP thì không được chuyên nghiệp khi cài cho máy khác, hiiii.

Thanks các bác.


  • 0

#27 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 26 August 2014 - 06:54 PM

bạn dùng lệnh Ap => contents => add chọn lsp mún add là xong, thử khởi động lại cad và cảm nhận :)


  • 1
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#28 levanhuong1989

levanhuong1989

    biết vẽ circle

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

Đã gửi 26 August 2014 - 11:06 PM

bạn dùng lệnh Ap => contents => add chọn lsp mún add là xong, thử khởi động lại cad và cảm nhận :)

 

Cảm ơn bạn, ý của mình là khi cài trên máy khác mình copy 1 folder gồm các lisp dùng rồi đặt vào ổ c ( khi đó đường dẫn là cố định C://....) Mình muốn viết 1 file mà cad cho phép chạy khi khởi động và sẽ tự động load các líp trong thư mục theo đường dẫn ở trên mà không cần dùng đến contents trong lệnh AP chọn đến líp rùi add.

Mong các bác giúp đỡ.


  • 0

#29 trongutc

trongutc

    Chưa sử dụng CAD

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

Đã gửi 06 October 2014 - 11:01 AM

mình dùng lips tính diện tích và ghi số trên trắc ngang nhưng khi ghi số nó ra giá trị bằng 0..cái này do lỗi font hay lỗi lips xin mọi người giúp đỡ


  • 0

#30 Namvanvo

Namvanvo

    Edu level: li5

  • Members
  • PipPipPipPipPip
  • 386 Bài viết
Điểm đánh giá: 42 (tàm tạm)

Đã gửi 06 October 2014 - 11:16 AM

Bạn chỉnh Height của Text style hiện hành về 0
  • 0

#31 nguytini

nguytini

    biết vẽ rectang

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

Đã gửi 27 July 2016 - 04:56 PM

cảm ơn bác chia sẻ nhưng thấy bác quản lý tài liệu khó hiểu quá

Hướng dẫn đánh số thứ tự mà sao trong thư mục k đánh nhỉ


  • 0

NGỤY HOÀNG ĐÀN

EMAIL: HOANGDAN52NL@GMAIL.COM