Thư viện Autolisp !

[Nguyen Tram]

Cách sử dụng Auto Lips:

Lệnh: Ap
Chọn file Lips cần load -> Load

Nếu bạn muốn lần sau Autocad load tự động khi khởi động thì vào mục History list. Bấm vào Content (Startup suit). Load file Lips cần

và ok.

T đã chọn được file trong Content rồi nhưng sau đó click Load nhưng ra ngoài ko sử dụng đựoc lệnh đó ?

Nguyên văn bởi pbh
Tác dụng: rất đơn giản trong việc joint các đối tượng đơn thành Polyline.
Lệnh : jj


cái này hay thật đây trước T toàn phải xài pe rồi mệt cả hơi thank nhá ! nhưng T thấy lệnh f xài cũng ngon lành lém !

 

[songvotinh]

LIST Ẩn hiện đối tượng được chọn !!

Cái này mình mới mò được bên diễn đàn Cadviet.com, cũng là một tiện ích hay cho chúng ta trong việc tăng tiến độ vẽ cad,
Download về bình thường, giải nén, load LIST vưa giải nén, sử dụng bằng các lệnh sau:
Lệnh:
Vis: dùng để ẩn đối tượng được chọn;
InVis : Hiện lên đối tượng mà bạn vừa ẩn đi;
Chúc các bạn thành công !

 

[DutoanGXD]

Nối Hack !

Mình mới lang thang bên cadviet.com về, hum nay gặp được list lệnh này cũng hay, lên mình giới thiệu để các bạn cùng học hỏi...
Nghe tên LIST chắc hẳn bạn đã hiểu được nội dung của list này,
Lệnh: MH : dùng để nối các Hack khác nhău để tạo thành một hack chung, cũng giống như lệnh JJ mà đã giới thiệu trước đây,
Chúc các bạn thành công !
Chú ý: Thuộc tính (layer, màu, kiểu hatch, ...) của hatch kết quả được lấy theo đối tượng hactch đầu tiên. Mẹo: Khi các hatch không giống nhau, muốn đối tượng sau khi merge giống hatch nào thì nên pick hatch đó đầu tiên, sau đó mới select các hatch khác.
Xin cảm ơn diễn đàn Cadviet.com và người viết list !!!

 

[phuongcuu]

các bác cho ơi sao em cài hỗ trợ nối các đối tượng đơn thành polyline và thực hiện các bước theo chỉ dẫn nhưng lại báo lỗi: no function definition: ACET-ERROR-INIT.
Bác biết nào chỉ em với.

 

[DutoanGXD]

List L = PL

các bác cho ơi sao em cài hỗ trợ nối các đối tượng đơn thành polyline và thực hiện các bước theo chỉ dẫn nhưng lại báo lỗi: no function definition: ACET-ERROR-INIT.
Bác biết nào chỉ em với.

Bạn thử dùng cái này xem sao,
Download về máy => giải nén => LOAD list => dùng lệnh NN => vậy là bạn có thể nối Line thành Pline rồi
Bạn dùng thử đi, xem có bị lỗi như thế ko, rùi PM cho Tiểu Bảo nhé !!!
* List nguồn: www.cadviet.com
* Giá xây dựng cảm ơn các bạn đã quan tâm, mong sự ủng hộ và góp sức của các bạn
Thanks 4 All !!!

 

[DauthauGXD]

Có ai biết về lập trình Autolist thì chỉ bảo hộ với nhé:
Đây là một List dùng để chèn chữ vào vị trí chỉ định nhưng khi thực hiện nó không đúng như mong muốn. Mong mọi người chỉ giúp cách khắc phục

(defun C:ve (/ scalei pto mtxtin i orx pti)

(setq pto (getpoint "Nhap toa do "))
(setq scalei (getreal "Nhap khoang cach chu: "))
(setq mtxtin "")
(setq mtxtin (getstring "input text: "))
(setq tlen (strlen mtxtin))
(setq i 1)
(setq orx (car pto))
(while (<= i tlen )

(setq pti (polar pto 0.0 orx))


(if (= (substr mtxtin i 1) "a") (command "Insert" "a" pti "" "" ""))
(if (= (substr mtxtin i 1) "b") (command "Insert" "b" pti "" "" ""))
(if (= (substr mtxtin i 1) "c") (command "Insert" "c" pti "" "" ""))
(if (= (substr mtxtin i 1) "d") (command "Insert" "d" pti "" "" ""))
(if (= (substr mtxtin i 1) "e") (command "Insert" "e" pti "" "" ""))
(if (= (substr mtxtin i 1) "f") (command "Insert" "f" pti "" "" ""))
(if (= (substr mtxtin i 1) "g") (command "Insert" "g" pti "" "" ""))



(if (= (substr mtxtin i 1) "h") (command "Insert" "h" pti "" "" ""))
(if (= (substr mtxtin i 1) "i") (command "Insert" "i" pti "" "" "" ))
(if (= (substr mtxtin i 1) "j") (command "Insert" "j" pti "" "" ""))
(if (= (substr mtxtin i 1) "k") (command "Insert" "k" pti "" "" ""))
(if (= (substr mtxtin i 1) "l") (command "Insert" "l" pti "" "" ""))
(if (= (substr mtxtin i 1) "m") (command "Insert" "m" pti "" "" ""))
(if (= (substr mtxtin i 1) "n") (command "Insert" "n" pti "" "" ""))

(if (= (substr mtxtin i 1) "o") (command "Insert" "o" pti "" "" ""))
(if (= (substr mtxtin i 1) "p") (command "Insert" "p" pti "" "" "" ))
(if (= (substr mtxtin i 1) "q") (command "Insert" "q" pti "" "" ""))
(if (= (substr mtxtin i 1) "r") (command "Insert" "r" pti "" "" ""))
(if (= (substr mtxtin i 1) "s") (command "Insert" "s" pti "" "" ""))
(if (= (substr mtxtin i 1) "t") (command "Insert" "t" pti "" "" ""))
(if (= (substr mtxtin i 1) "u") (command "Insert" "u" pti "" "" ""))

(if (= (substr mtxtin i 1) "v") (command "Insert" "v" pti "" "" ""))
(if (= (substr mtxtin i 1) "x") (command "Insert" "x" pti "" "" "" ))
(if (= (substr mtxtin i 1) "y") (command "Insert" "y" pti "" "" ""))
(if (= (substr mtxtin i 1) "z") (command "Insert" "z" pti "" "" ""))
(if (= (substr mtxtin i 1) "w") (command "Insert" "w" pti "" "" ""))


(setq orx (+ scalei orx))

(setq i (1+ i))
)
)


File nguồn:

 

[KTS_DUY]

Có ai biết về lập trình Autolist thì chỉ bảo hộ với nhé:
Đây là một List dùng để chèn chữ vào vị trí chỉ định nhưng khi thực hiện nó không đúng như mong muốn. Mong mọi người chỉ giúp cách khắc phục

File nguồn:

Bạn nói rỏ 1 chút về cải chổ không đúng mong muốn của bạn xem.
Vị trí chèn không đúng, kích thước không đúng, nội dung chèn không đúng hay gì gì thì mình mới giúp bạn chỉnh được.
Thực chất đây là chèn block chương trình này hơi thô sơ vì phải dùng file dwg của bạn thì mới thực hiện được và các text chưa có dấu.

Để bắt đầu mình góp ý bạn hai dòng này trước.
(setq pto (getpoint "Nhap toa do "))
(setq scalei (getreal "Nhap khoang cach chu: "))
Bạn sửa lại như sau:
(setq pto (getpoint "\nNhap toa do "))
(setq scalei (GETDIST "\nNhap khoang cach chu: "))
Trong đó phần màu xanh là thêm vào đoạn \n sẽ giúp nội dung phía sau nó
nhảy xuống hàng chứ không nối tiếp vào câu hỏi bên trên như của bạn hiện giờ.
Phần màu đỏ là sửa lại: hàm GETDIST cung cấp cho bạn chức năng nhập
khoảng cách bằng 2 cách:
-Nhập trực tiếp sốbằng bàn phím.
-Chọn 2 điểm trên Màn hình và lấy ra khoảng cách.

 

[KTS_DUY]

Có ai biết về lập trình Autolist thì chỉ bảo hộ với nhé:
Đây là một List dùng để chèn chữ vào vị trí chỉ định nhưng khi thực hiện nó không đúng như mong muốn. Mong mọi người chỉ giúp cách khắc phục

Hôm trước có trả lời bạn 1 bài nhưngkhông thấy bạn hồi âm.
Dựa vào ý của bạn mình phát triển 1 tiện ích sau gửi bạn xem nếu thấy ưng ý mình sẽ hướng dẩn bạn hoàn thiện phần cơ sở dử liệu cho tiện ích này 1 cách ok.
Tên lệnh: doctext.
Tác dụng:
-Hỏi bạn chọn 1 (hoặc nhiều) dòng text có sẳn.
-Đọc độ lớn dòng text
-Đọc nội dung dòng text từng kí tự 1
-Chèn các block theo bảng quy đổi nếu ký tự nào chưa có trong bảng quy đổi nó sẽ chèn block có tên khongcochu mang hình dấu ? .
-Vị trí xuất phát của hàng block này nằm ngay phía trên dòng text mẫu. độ lớn bằng độ lớn text mẫu.
*Ưu điểm: biết phân biệt các chử bình thường với các chử đặc biệt như i, j, W,M để tính toán khoảng cách chèn block một cách hợp lý.
*Nhược: Cơ sở dử liệu chuyển đổi mới có 24 chử cái a b c thôi.Chưa tính đến góc quay của text mẩu (vì đang xem ý bạn thế nào mà).Và pải thao tác trên file cad mình kèm theo này.
-Bạn nhớ tắt chức năng truy bắt điểm tự động khi chạy lệnh. Sau này mình sẽ thêm chức năng này vào !!
Bạn thấy ưng cái bụng thì mình sẽ hướng dẩn hoặc hoàn thiện giúp bạn.

 

[MinhLQuang]

Mình vẽ Cad hay dùng list này. Thấy cũng hay, up lên diễn đàn cho mọi người dùng thử.Mình có cả thông kê thép bằng list. Nếu bạn nào cần thì cứ gửi tin nhắn mình sẽ gửi vào email cho!

Mình rất muốn hãy đợi đấy hướng dẫn giúp mình nhé Mail của mình là: conchay9656@gmail.com

 

[MrHienNo1]

Tình hình là em cài vào rồi, nó đã nhận, nhưng em lại không biết cách sử dụng. Em còn yếu cái khoản AutoLisp này lắm, mong các bác hướng dẫn tận tình hơn giúp em. Thân chào!!!

Bạn mở file autolip đọc xem, trong đó có ghi lệnh mà.
Còn muốn load autolip thì vào Cad dùng gõ lệnh ap rồi load -> Okie

 

[MrHienNo1]

Autolips Expert

File autolip chỉ dành riêng cho dân cầu đường đây.
Autolisp tính tọa độ võng.
+Tính và ghi tọa độ điểm bên trái: lệnh hh
+Tính và ghi tọa độ điểm bên phải: lệnh hu

 

[MrHienNo1]

Autolisp Expert

Còn đây là file lisp dùng để đo diện tích và tính chiều dài.
Rất hay và tuyệt vời dành cho dân xây dựng.

 

[NPDL]

anh vi tiểu bảo có autolisp vẻ đường taluy ko vậy up lên cho mọi người dùng đi, trong đó có em nữa hihi

 

[TuvanXD246]

anh vi tiểu bảo có autolisp vẻ đường taluy ko vậy up lên cho mọi người dùng đi, trong đó có em nữa hihi

Lisp vẽ đường taluy thì mình đang tìm lại - lâu nay ít dùng! Nhưng bạn có thể dùng thử kiểu đường taluy dưới đây xem nhé.
Tải file đính kèm dưới đây, giải nén xong bạn mở bằng cad, copy 2 đường này vào bản vẽ của bạn, dùng lệnh Ma là xong! Chú ý line scale nhé, đổi tỷ lệ phù hợp để hiển thị taluy.

 

[MrHienNo1]

Đóng góp chút xíu

Đây là bộ tool autolisp mình cũng chưa có thời gian thử nghiệm
Ai yêu lisp thì vô đây load về thử nghiệm rùi viết cho anh em.
Tôi bận quá cũng không có thời gian đọc, anh em thử nghiệm rồi share nhé.

ADEDEM.ZIP
ALLY20.TXT
ALLY20.ZIP
ARRAY.LSP
ASAVE.LSP
ASCPNT.LSP
AUTOLO.ZIP
AUTOPA.ZIP
AUTOPK.EXE
BC.LSP
BEEP.LSP
BELT.LSP
BELT1.LSP
BIT.ZIP
BLKRPT.ZIP
BLK_LST.LSP
BLOCKQ.LSP
BLOCKS.EXE
BRKOUT.ZIP
CALC.LSP
CASE.LSP
CASE1.LSP
CBLAYR.LSP
CFKEY.LSP
CNCPAT.ZIP
CODES.ZIP
COLORL.ARC
CURNTD.LSP
CURVST.ARC
DB.LSP
DB_ACAD.ZIP
DIESEL.LSP
DOTHIS.TXT
FILEVU.LSP
FMTTIME.LSP
FORMAT.LSP
FSYSVARS.LSP
GEOPRO.EXE
GET.ZIP
GETDIR.EXE
GETLSP.EXE
GETPOP.EXE
GRMENU.ZIP
HIDETO.LSP
HSORT.LSP
IDA2D.EXE
INTEGR.ZIP
ISOMK.ZIP
KELV10.DEF
KELV11.DEF
KELV12.DEF
KELVIN.ZIP
LCK21B.ZIP
LEDIT.ZIP
LFMT13.ZIP
LISTV.LSP
LMAN.ZIP
LOD.LSP
LSPMNU.EXE
LSPSQL.ZIP
LXRDMO.ZIP
LYRMAS.LSP
MAGIC.ZIP
MAKELT.LSP
MATRIX.LSP
MILL.ZIP
MKFONT.ZIP
MM10.ARC
MVSETU.EXE
OSTACK.LSP
PDM.LSP
PLATON.LSP
PLOTII.ZIP
PQCHECK.LSP
PRINTF.EXE
PROTECT.EXE
REMOVE.LSP
SAVELI.ZIP
SCRBLD.ZIP
SHELL.LSP
SHSORT.LSP
SLEAD.ZIP
SOLDIM.LSP
SOLMAI.LSP
SORT.LSP
SPRBKT.ZIP
STRIP.ZIP
STRIPP.COM
STRTOD.EXE
TEXTDE.ZIP
TGRAPH.ZIP
THEXT.LSP
TXTLEN.LSP
UNATTR.ZIP
UPPER.LSP
VNUMBE.ZIP
WCLIST.EXE
WEBSEC.DWG
WEBSEC.LSP
WELD.ZIP
WP.ZIP
WTF.ZIP

P/s: bác Vitieubao load về nghiên cứu rồi share cho anh em nhé.
nếu bác ngâm cứu được pm tôi gửi nốt bộ Lisp Draw cũng nhiều lắm đây.

 

[himtvxd]

Mình đang cần một Lisp thống kê thép có tổng hợp hẳn hoi, bạn có up cho mình với nhá. Cảm ơn bạn nhiều

 

[smd2006]

lsip dd1: dùng định vị trí chung cho các điểm đặt chân DIM.
lsip dd2: dùng định vị trí chung cho các điểm đặt DIM.
text2mtext: cái tên nói lên tất cả, Text --> mtext.

 

[shinnikel]

Các bạn thân có thể viết cho tôi 1 lisp chọn một bề mặt ngẫu nhiên(đối tượng kính) sau đó cho ra lựa chọn vật liệu là nhôm, thép, kính và tiếp đó là lựa chọn chiều dài hoặc dầy để cho ra 1 kết quả text là khối lượng của khối đó tính bằng (Kg) chân thành cảm ơn anh e tối rất cần lisp nay.

 

[KTS_DUY]

Các bạn thân có thể viết cho tôi 1 lisp chọn một bề mặt ngẫu nhiên(đối tượng kính) sau đó cho ra lựa chọn vật liệu là nhôm, thép, kính và tiếp đó là lựa chọn chiều dài hoặc dầy để cho ra 1 kết quả text là khối lượng của khối đó tính bằng (Kg) chân thành cảm ơn anh e tối rất cần lisp nay.

Lisp này có thể viết được. Bạn cần cung cấp cho mình các dữ liệu sau:
-Bạn cần cho các loại vật liệu gì thì liệt kê ra theo tên và trọng lượng riêng (kg/m3).
-Tiết diện bạn chọn theo cách nào:
+Chọn pline khép kín sẳn có.
+pick vào 1 vùng kín lisp tự tạo ra pline này.
-Một mét bạn vẽ có giá trị bao nhiêu (cái này có thể viết thêm để bạn tùy biến nhưng viết sẽ lâu hơn)
-Kết quả xuất ra kiểu gì: text bao lớn, có bao gồm chử gì phía trước và sau không hay chỉ là số trọng lượng.

 

[shinnikel]

Thanks bạn KTS_DUY đã trả lời và nhận viết dum mình.
-Mình chỉ cần 3 loại vật liệu thôi đó là thép, nhôm và kính .+Trọng lượng riêng của thép 7850kg/m3 + Trọng lượng riêng Nhôm = 2700kg/m3 + Trọng lượng riêng kính = 2500kg/m3 . Duy có thể cho ra kết quả (kg/m3).
-Tiết diện mình chọn theo cách :
+pick vào 1 vùng kín lisp tự tạo ra pline .
-Chiều dài của tiết diện do mình chọn thường đơn vị tính bằng (mm) mặc định là 1(m)
-Kết quả xuất ra kiểu text(kg)

Rất cảm ơn ban Duy :x