| Info | File | ||
| 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  . "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
| ||
| 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
| ||
| 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é.
| ||
| 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:
| ||
| 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
| ||
| 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
| ||
| 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.
| ||
| 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....
| ||
| 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...
| ||
| 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.
| ||
| 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...
| ||
| Tác giả: Tue_NV Bài viết gốc: 109363 Tên lệnh: dtt | |||
| 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.
| ||
| 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.
| ||
| 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:
| ||
| 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.
| ||
| 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.
| ||
| 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.
| ||
| 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
| ||
| 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...
|
Trang 49/330