Jump to content
InfoFile
Tác giả: Tue_NV
Bài viết gốc: 111423
Tên lệnh: cte
chuyển số liệu text từ cad sang excell

Được chứ. Bây giờ thì bạn muốn "bỏ cái gì" cũng được :cheers: . "Bỏ tất cả" cũng được luôn. Lisp sẽ cho ra những thửa "không chủ", bằng những dòng "vườn không nhà trống" trong Excel :cheers:
>>

Được chứ. Bây giờ thì bạn muốn "bỏ cái gì" cũng được :cheers: . "Bỏ tất cả" cũng được luôn. Lisp sẽ cho ra những thửa "không chủ", bằng những dòng "vườn không nhà trống" trong Excel :cheers:

@bác VuVUZELA : Bác cũng ở Đà Nẵng à?? Có duyên chắc Tue_NV cũng sẽ được gặp bác thôi :cheers:
<<

Filename: 111423_cte.lsp
Tác giả: phamngoctukts
Bài viết gốc: 111439
Tên lệnh: banphaohoa
Lisp bắn pháo hoa
Nhân dịp mừng Thăng Long 1000 năm tuổi. Tặng các bác lisp bắn pháo hoa chơi.
Download file phaohoa.dwg về và copy vào trong thư mục support của cad. phaohoa
load code này lên dùng

Filename: 111439_banphaohoa.lsp
Tác giả: 18011985
Bài viết gốc: 111129
Tên lệnh: textblock
Lisp sửa bề rộng text của block thuôc tính????

Cũng không rõ nữa vẫn báo lỗi thế này.
http://www.cadviet.com/upfiles/3/1_14.jpg
Nhưng thôi kệ nó đã. Bác test lại với block của bác nhé
Nếu còn bị nhảy thì báo lại cho mình nhé.

Filename: 111129_textblock.lsp
Tác giả: ssg
Bài viết gốc: 11063
Tên lệnh: c2p
Em muốn viết một Lisp để chuyển Spline thành Pline
Chương trình hoàn chỉnh, "chơi" được hàng loạt đối tượng là Line, Pline, Spline, Arc, Circle và Ellipse, với chú giải chi tiết cho từng dòng code:


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


Các bác thử dùng lisp này xem có được không

Filename: 11047_s2p.lsp
Tác giả: gia_bach
Bài viết gốc: 109913
Tên lệnh: insblk
thay thế các đường tròn bằng block


Lisp thay thế các đường tròn có sẵn bằng Block.
Tương tự các lisp trên, có bổ sung hộp thoại chọn Block : với tùy chọn xóa Circle.

http://www.cadviet.com/upfiles/3/insblk.jpg


Filename: 109913_insblk.lsp
Tác giả: phamngoctukts
Bài viết gốc: 109759
Tên lệnh: isb
thay thế các đường tròn bằng block

Của bạn đây. Đúng ý bạn rồi nhé. Chọn đường chòn trước rồi chọn block muốn chèn.

Filename: 109759_isb.lsp
Tác giả: ssg
Bài viết gốc: 10979
Tên lệnh: uph
lấy thuộc tính từ block


Chương trình dành cho bạn đây, kèm theo comment cho từng dòng lệnh.
Lưu ý: block của bạn chứa các attrib: CD_TN, CD_TK và CH_CAO phải được xếp đúng theo thứ tự đã nêu (nếu không sẽ xảy ra tình trạng "râu ông nọ cắm cằm bà kia"). Không đúng thứ tự cũng được nhưng phải viết lại code.
Bạn hiểu được toàn bộ code dưới đây sẽ tự bổ sung, phát triển chương trình theo ý thích....
>>

Chương trình dành cho bạn đây, kèm theo comment cho từng dòng lệnh.
Lưu ý: block của bạn chứa các attrib: CD_TN, CD_TK và CH_CAO phải được xếp đúng theo thứ tự đã nêu (nếu không sẽ xảy ra tình trạng "râu ông nọ cắm cằm bà kia"). Không đúng thứ tự cũng được nhưng phải viết lại code.
Bạn hiểu được toàn bộ code dưới đây sẽ tự bổ sung, phát triển chương trình theo ý thích. Mình vẫn khuyến khích các bạn tự làm, vướng mắc chỗ nào mình sẵn sàng giải đáp hoặc gợi ý thêm.


<<

Filename: 10979_uph.lsp
Tác giả: phamngoctukts
Bài viết gốc: 109830
Tên lệnh: vetuong vt vc
Viết lisp theo yêu cầu [phần 2]
Phù cuối cùng thì cũng hoàn thành cái mớ bòng bong này. Từ lisp ve tường ban đầu mình đã phát triển được như thế này rôi.
http://www.cadviet.com/upfiles/3/chot.jpg
Xin lỗi bạn ketxu vì chưa sét thêm phần chọn tỉ lệ vào được. Mình đang kiểm tra xem không biết nó sai chỗ nào mà nhập số nhỏ vào thì nó lại không chạy.
Còn phần dim cho các trường hợp các đường tim chéo thì quá phức...
>>
Phù cuối cùng thì cũng hoàn thành cái mớ bòng bong này. Từ lisp ve tường ban đầu mình đã phát triển được như thế này rôi.
http://www.cadviet.com/upfiles/3/chot.jpg
Xin lỗi bạn ketxu vì chưa sét thêm phần chọn tỉ lệ vào được. Mình đang kiểm tra xem không biết nó sai chỗ nào mà nhập số nhỏ vào thì nó lại không chạy.
Còn phần dim cho các trường hợp các đường tim chéo thì quá phức tạp có lẽ mình chỉ nên dừng ở trường hợp các đường tim song song với ox oy thôi.
Các bạn test thử xem có bổ xung thêm gì không. Trong khả năng của mình sẽ hết sức để vừa lòng các bạn. Chúc diễn đàn luôn luôn phát triển.

BS: Cái lệnh VT với VC là mình viết thêm để chổ cửa và vẽ tường cho nhanh thôi các bạn tự nghiên cứu.
<<

Filename: 109830_vetuong_vt_vc.lsp
Tác giả: phamngoctukts
Bài viết gốc: 109620
Tên lệnh: vetuong vt vc
Viết lisp theo yêu cầu [phần 2]

Chết thật hôm up lộn code rồi xin lỗi các bạn. Các bác test lại xem.

Bạn cho mình hỏi code này sai ở chỗ nào mà nó báo lỗi (setq tldim (last (assoc 40 (tblsearch "dimstyle" "1")))). Mình có dim tên là 1 và muốn lấy overall scale của nó. mình dùng mã 140 lấy cao chũ cũng không được.

Filename: 109620_vetuong_vt_vc.lsp
Tác giả: Thaistreetz
Bài viết gốc: 109486
Tên lệnh: edtn%09
Viết lisp theo yêu cầu [phần 2]

EDTN : Edit trắc ngang. Code này mình viết khá lâu rồi nên rác, một vài truờng hợp có thể sảy ra lỗi khi chay nếu truớc khi chạy tuyến trong nova bạn không chạy lệnh NS - "Cài đặt các thông số ban đầu"
(Không hiểu sao Hài Hoà không thiết lập lệnh này tự chạy khi thiết lập bản vẽ, trong nhiều truờng hợp, việc chạy lệnh này truớc khi chạy tuyến là bắt buộc, nếu không thì toàn...
>>

EDTN : Edit trắc ngang. Code này mình viết khá lâu rồi nên rác, một vài truờng hợp có thể sảy ra lỗi khi chay nếu truớc khi chạy tuyến trong nova bạn không chạy lệnh NS - "Cài đặt các thông số ban đầu"
(Không hiểu sao Hài Hoà không thiết lập lệnh này tự chạy khi thiết lập bản vẽ, trong nhiều truờng hợp, việc chạy lệnh này truớc khi chạy tuyến là bắt buộc, nếu không thì toàn bộ quá trình thiết kế sau đó sẽ tạo ra rất nhiều lỗi và buộc fải xoá toàn bộ tuyến rồi chạy lại)
Khi chạy lệnh, tại dòng nhắc : "Quét chọn trắc ngang cần sửa", bạn kéo chuột từ trái qua fải như hình vẽ để chọn đủ đối tuợng.

<<

Filename: 109486_edtn%09.lsp
Tác giả: Tue_NV
Bài viết gốc: 109363
Tên lệnh: dtt
nhờ viết lisp biến dim thành text

Bạn thử cái này xem :

Filename: 109363_dtt.lsp
Tác giả: ssg
Bài viết gốc: 10937
Tên lệnh: fint
Viết Lisp theo yêu cầu

Bạn thử đoạn sau. Kết quả sau khi chọn và lọc là ss2. Dòng command "move" cuối cùng là để bạn test chương trình.


Filename: 10937_fint.lsp
Tác giả: pikeman286
Bài viết gốc: 10900
Tên lệnh: lr
Dùng fím tắt để gọi 1 layer

Sao mà tùm lum.Mình thiết nghĩ dùng chuôt click còn nhanh hơn.

Filename: 10900_lr.lsp
Tác giả: phamngoctukts
Bài viết gốc: 109210
Tên lệnh: vetuong
Viết lisp theo yêu cầu [phần 2]
Lisp vẽ tường mình đã độ lại chơi được cả đường tim chéo đồng thời fix một số lỗi lisp không chay trên máy khác rồi. Nhưng nó vẫn bị lỗi một tí ở góc đang bí chưa biết fix thế nào. Có anh em nào cho xin một gợi ý đê!!
http://www.cadviet.com/upfiles/3/timcheo.jpg
code đây:

Filename: 109210_vetuong.lsp
Tác giả: 18011985
Bài viết gốc: 108957
Tên lệnh: textblock
Lisp sửa bề rộng text của block thuôc tính????

Kiên nhẫn chứ bạn. Đây bạn dùng thử xem.

Filename: 108957_textblock.lsp
Tác giả: phamngoctukts
Bài viết gốc: 108994
Tên lệnh: vetuong
Viết lisp theo yêu cầu [phần 2]

Cuối cùng thì mình cũng viết xong lisp này cho bạn rồi này. Chúc bạn vui và làm việc hiệu quả.

Cám ơn bạn ketxu đã gợi ý để mình hoàn thành lisp.
BS: nét của bạn phải là layer "_tim" nếu không lisp sẽ bị sai.

Filename: 108994_vetuong.lsp
Tác giả: dkkx3a
Bài viết gốc: 108452
Tên lệnh: ct
Lệnh tạo điểm cao trình.

Lệnh sẽ tạo block cao trình với vị trí và giá trị nhập từ bàn phím, với chiều cao cỡ chữ được nhập từ bàn phím và block sinh ra sẽ tỉ lệ với cở chữ bạn nhập vào, nếu không nhập nó sẽ lấy cỡ chữ của style chữ hiện hành.

Filename: 108452_ct.lsp
Tác giả: gia_bach
Bài viết gốc: 107988
Tên lệnh: tkt
cho em xin lisp đếm text
Lisp Thống kê Text trên bản vẽ .
Bổ sung sắp xếp TEXT và tạo bảng (Table)
http://www.cadviet.com/upfiles/3/tkt_1.jpg

Filename: 107988_tkt.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 107805
Tên lệnh: chpt
Viết lisp theo yêu cầu [phần 2]

Hề hề hề,
Đã phát hiện ra, đây là cái điểm chèn của block chứ không phải điểm thuộc block. Do vậy nếu chỉ xóa block thì nó vẫn nằm chình ình ra ăn vạ ở đó chứ chả chịu biến đi. Mình đã sửa lại cái lisp trên để xóa béng thằng này. Bạn thử xem nhé.


Chúc bạn vui, nếu bạn muốn chỉnh sửa lại màu và lớp của các đối tượng mới thì có thể vào sửa ngay...
>>

Hề hề hề,
Đã phát hiện ra, đây là cái điểm chèn của block chứ không phải điểm thuộc block. Do vậy nếu chỉ xóa block thì nó vẫn nằm chình ình ra ăn vạ ở đó chứ chả chịu biến đi. Mình đã sửa lại cái lisp trên để xóa béng thằng này. Bạn thử xem nhé.


Chúc bạn vui, nếu bạn muốn chỉnh sửa lại màu và lớp của các đối tượng mới thì có thể vào sửa ngay trong các hàm entmake bạn nhé. Nó cũng đơn giản thôi.
<<

Filename: 107805_chpt.lsp

Trang 49/316

49