InfoFile
Tác giả: jikibo
Bài viết gốc: 26797
Tên lệnh: s2p
Chuyển đổi đường Spline thành Pline
Dành cho các trường hợp cần sử dụng pline làm đầu vào cho các phần mềm lisp khác, hoặc làm bản vẽ nhẹ hơn.

Filename: 26797_s2p.lsp
Tác giả: gia_bach
Bài viết gốc: 80901
Tên lệnh: trimit
Lisp Trim đối tượng


Bạn chạy thử Lisp này.

Filename: 80901_trimit.lsp
Tác giả: ketxu
Bài viết gốc: 127442
Tên lệnh: om
Offset + Move
- Offset và xóa đối tượng gốc


Filename: 127442_om.lsp
Tác giả: ssg
Bài viết gốc: 26782
Tên lệnh: c2p
Chuyển đổi đường cong thành Pline gồm các đoạn thẳng
Lisp này chơi tất: line, pline, spline, arc, circle, ellipse sang pline (không chứa cung tròn mà thành nhiều đoạn thẳng nhỏ liên tiếp). Chiều dài mỗi đoạn nhỏ user chọn tuỳ ý, mặc định là 0.5

Filename: 26782_c2p.lsp
Tác giả: thiep
Bài viết gốc: 65747
Tên lệnh: er2c
Lisp xóa tất cả các đối tượng trong 1 vùng kín
Chọn và xóa đi các đối tượng trong một pline

Filename: 65747_er2c.lsp
Tác giả: Bommak
Bài viết gốc: 2481
Tên lệnh: tg
Tính tổng chiều dài các đối tượng

Đoạn code tính tổng chiều dài của các đối tượng chọn (*Line, Arc, Circle, Elippse)

Filename: 2481_tg.lsp
Tác giả: oizdoi_oi
Bài viết gốc: 35260
Tên lệnh: ct
copy text tăng dần

lisp copy tăng dần cop đến hàng nghìn cũng OK

Filename: 35260_ct.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 6278
Tên lệnh: v2t
Chuyển font mã VNI sang TCVN-3
Chuyển mã VNI sang TCVN-3 của các đối tượng text trong bản vẽ.


Filename: 6278_v2t.lsp
Tác giả: Tue_NV
Bài viết gốc: 158105
Tên lệnh: cs
[Yêu cầu] Lisp cộng - trừ - nhân - chia 2 hàng số cho ra hàng thứ 3


Lisp này có thể tính + - * / theo hàng và theo cột

Nếu chọn theo hàng thì Lisp tự hiểu là phải xuất theo hàng

Nếu chọn theo cột thì Lisp tự hiểu là phải xuất theo cột

Có thể xuất dưới dạng Text có sẵn hoặc pick điểm để xuất Text

Chúc các bạn 1 buổi sáng...
>>


Lisp này có thể tính + - * / theo hàng và theo cột

Nếu chọn theo hàng thì Lisp tự hiểu là phải xuất theo hàng

Nếu chọn theo cột thì Lisp tự hiểu là phải xuất theo cột

Có thể xuất dưới dạng Text có sẵn hoặc pick điểm để xuất Text

Chúc các bạn 1 buổi sáng tốt lành


<<

Filename: 158105_cs.lsp
Tác giả: philipdn
Bài viết gốc: 33999
Tên lệnh: batter b1
Rải đường taluy đào, taluy đắp

Lisp thực hiện chức năng rải các ký hiệu đường taluy đào, taluy đắp. Thao tác đơn giản, dể hiểu, thực hiện nhanh chóng.


Filename: 33999_batter_b1.lsp
Tác giả: vndesperados
Bài viết gốc: 2581
Tên lệnh: dsa sa
Lisp tính diện tích và chèn giá trị vào vòng tròn ký hiệu
cái này tặng anh em bên Quy họach dùng chơi

Filename: 2581_dsa_sa.lsp
Tác giả: Thaistreetz
Bài viết gốc: 81911
Tên lệnh: ft df dfx dx
Căn lề các dòng Dtext: Left, Center, Right và Fit (giống word)
Canh lề các đối tượng Dtext được chọn theo 1 text mẫu


Filename: 81911_ft_df_dfx_dx.lsp
Tác giả: Nókìa8800
Bài viết gốc: 10985
Tên lệnh: ddm
Em muốn viết một Lisp để chuyển Spline thành Pline
Chào các anh, chị!

Em đang dùng Nova, có 1 file bình đồ mà đường đồng mức lại là Spline mới bực mình.
Em định viết 1 lisp để chuyển nó thành pline, tất nhiên là không thể trơn như Spline nhưng với khoảng điểm nhỏ thì vẫn có thể chấp nhận được. Em mới viết...
>>
Chào các anh, chị!

Em đang dùng Nova, có 1 file bình đồ mà đường đồng mức lại là Spline mới bực mình.
Em định viết 1 lisp để chuyển nó thành pline, tất nhiên là không thể trơn như Spline nhưng với khoảng điểm nhỏ thì vẫn có thể chấp nhận được. Em mới viết đến đây nhưng ko làm sao viết tiếp được, anh chị nào giúp em với



tiếp theo là dùng tập hợp điểm trong biến "diem" để vẽ đường pline, và đồng thời trật tự của nó phải như đường spline.

Cảm ơn các anh chị trước!
<<

Filename: 10985_ddm.lsp
Tác giả: ssg
Bài viết gốc: 11035
Tên lệnh: s2p
Em muốn viết một Lisp để chuyển Spline thành Pline

Mình hiểu thủ thuật của bạn, chỉ cần dùng lệnh pline như dưới đây là OK. Tuy nhiên, cách làm như vậy không hay lắm. Phải "nhờ vả" các lệnh của AutoCAD như measure, divide... để lấy toạ độ điểm là việc làm bất đắc dĩ, khi không còn cách nào khác.
Bạn dùng thử trình sau. Tất...
>>

Mình hiểu thủ thuật của bạn, chỉ cần dùng lệnh pline như dưới đây là OK. Tuy nhiên, cách làm như vậy không hay lắm. Phải "nhờ vả" các lệnh của AutoCAD như measure, divide... để lấy toạ độ điểm là việc làm bất đắc dĩ, khi không còn cách nào khác.
Bạn dùng thử trình sau. Tất cả các dòng code mình đều có comment. Nếu còn lơ mơ thì lật Help ra xem, thường họ có kèm ví dụ, đọc là hiểu ngay.
Cái "đinh" của chương trình dưới là dùng họ function vlax-curve-xxxx để xử lý. Cái này hay lắm, dùng cho cả line, pline, spline, circle, arc...
Về cách dùng command, bạn đọc code chắc là hiểu chứ? Bản chất của vấn đề là bạn có thể "chen ngang" các biểu thức lisp nhưng vẫn không huỷ bỏ quá trình đang thực hiện dở dang của command (giống như phương thức transparent vậy).
Có gì vướng mắc bạn cứ nêu, mình sẽ giải thích thêm.


<<

Filename: 11035_s2p.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 18286
Tên lệnh: tkd
lisp đếm các đối tượng có khoảng cách cho trước
Chương trình sẽ yêu cầu bạn chọn các đối tượng, yêu cầu bạn nhập khoảng cách max, yêu cầu bạn nhập khoảng cách min. Sau đó nó sẽ hiển thị một hộp thoại thông báo cho bạn biết có bao nhiêu đối tượng thỏa mãn.

Filename: 18286_tkd.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 2864
Tên lệnh: entxt detxt
Mã hóa các text trong bản vẽ

Sử dụng phương pháp mã hóa cesar, dịch 3 ký tự. a => d, b=>e,..., đối phương không tài nào đọc được nếu không giải mã.

Filename: 2864_entxt_detxt.lsp
Tác giả: Tue_NV
Bài viết gốc: 111247
Tên lệnh: cte
chuyển số liệu text từ cad sang excell

Bạn chạy thử Code này nhé :

Filename: 111247_cte.lsp
Tác giả: vndesperados
Bài viết gốc: 2886
Tên lệnh: enc dec
Mã hóa các text trong bản vẽ

ENC = mã hóa
DEC = giải mã

Filename: 2886_enc_dec.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 454
Tên lệnh: cot00 dc
Đánh cốt tự động
Bạn gõ lệnh dc, chương trình sẽ hỏi bạn điểm bạn cần đánh cốt, sau đó chương trình sẽ chèn ký hiệu cốt vào đúng vị trí và giá trị mà bạn cần. Bạn dùng lệnh cot00 để định nghĩa điểm có cao độ là cot00. Để sử dụng lệnh, trước tiên phải copy file cot.dwg vào...
>>
Bạn gõ lệnh dc, chương trình sẽ hỏi bạn điểm bạn cần đánh cốt, sau đó chương trình sẽ chèn ký hiệu cốt vào đúng vị trí và giá trị mà bạn cần. Bạn dùng lệnh cot00 để định nghĩa điểm có cao độ là cot00. Để sử dụng lệnh, trước tiên phải copy file cot.dwg vào thư mục support - Đây là file chứa nội dung của ký hiệu cốt. Sau đó appload file danhcot.lsp để sử dụng lệnh. file danhcot.dwg: http://www.cadviet.com/upfiles/DANHCOT.zip Lưu ý: Với mỗi file DWG mà bạn vẽ, bạn phải đặt lại biến ATTDIA về 0 trước khi dùng lệnh DC (chỉ cần đặt 1 lần cho mỗi file).
<<

Filename: 454_cot00_dc.lsp
Tác giả: nguyentuyen6
Bài viết gốc: 163441
Tên lệnh: tpl in mp
In nhiều bản vẽ (TPL, IN, MP)
- In nhiều bản vẽ trong MODEL.
Dùng để in nhiều bản vẽ trong 1 file DWG. Với nhiều lựa chọn in giúp cho viết in ấn nhẹ nhàng hơn rất nhiều




Filename: 163441_tpl_in_mp.lsp

Trang 2/148

2