| Info | File | ||
| Tác giả: Snowman Bài viết gốc: 34477 Tên lệnh: dsc |
nhập các text đi theo các block để làm ký hiệu
Hãy sử dụng tính năng của block, cộng thêm một chút sáng tạo trong cách dùng. Phương án giải quyết như sau: Cách 1: dùng Tcount - Gọi tên block bóng đèn là A, bạn hãy tạo một block với tên B chứa block A + text đánh số cột - Thay vì chèn block A như thường lệ, hãy chèn block B - Sau khi chèn xong, hãy chọn tất cả các block B và explode. Chỉnh sửa tất cả các text tên cột...
| ||
| Tác giả: tien2005 Bài viết gốc: 33951 Tên lệnh: arearon |
Viết Lisp theo yêu cầu
Mình đã sửa lại đoạn code trên để nó ghi text có kiểu TC và đúng với trường hợp textheight khác 0, nếu = 0 thì lisp hiện tại đã lấy SCALE*2.5 làm chiều cao text
| ||
| Tác giả: Snowman Bài viết gốc: 33950 Tên lệnh: vtl1 |
Lisp rải taluy trên đường cong
Đây là lisp tôi sưu tầm và chỉnh sửa lại chút ít, có thể rải taluy cho các loại line, pline, spline, arc, circle ... (Mới dừng ở việc vẽ taluy cho 1 đường, phần vẽ mái taluy giữa 2 đường tôi chưa sửa xong)
| ||
| Tác giả: gp14 Bài viết gốc: 33433 Tên lệnh: layiso lai layoff lo layon loo oll laylck lk layulk lkk ll layset |
Em cần Lisp bật tắt layer... (layon, layoff, layiso)
| ||
| Tác giả: Nguyen Hoanh Bài viết gốc: 33862 Tên lệnh: fl | |||
| Tác giả: ssg Bài viết gốc: 33300 Tên lệnh: vc |
Bảng toạ độ các đỉnh thửa đất
Lisp có đủ 4 yêu cầu trên: Góp ý: Nếu có nhờ ai viết lisp, bạn nên nêu rõ và đủ các yêu cầu ngay từ đầu. Làm lần đầu không ngại nhưng sửa đi sửa lại... ngán lắm!
| ||
| Tác giả: tien2005 Bài viết gốc: 33024 Tên lệnh: mm |
Nhân 2 cột số (kết quả lthay thế là cột số thứ 3)
mình có đoạn code này viết đã lâu bạn xem có giúp được gì ko, cái này mình để tính hoặc sửa bảng thống kê thép đã có sẵn trên bản vẽ tên lệnh là MM, he so = 0.001 là để đổi mm ra m. Còn khi tính khối lượng thép tròn thì để he so = 1
| ||
| Tác giả: khuduba Bài viết gốc: 32770 Tên lệnh: bvmauxd | |||
| Tác giả: Snowman Bài viết gốc: 32849 Tên lệnh: expl |
Viết Lisp theo yêu cầu
Trùi ạ bạn mất công mất sức nhấn Tab làm gì, file text xuất ra đã có định dạng hàng cột cho bạn rồi đấy thôi (File txt ko thể căn thẳng cột giống như excel đuợc, các text đó đã được định dạng theo cột nhưng chiều dài text ko giống nhau nên bị lệch thôi. Bạn chỉ cần open nó bằng excel thì sẽ thấy hàng cột ngay ngắn mà (file txt trên của bạn đã bị bạn sửa làm hỏng định...
| ||
| Tác giả: gia_bach Bài viết gốc: 32619 Tên lệnh: cso |
Chọn text là số
Hàm lọc các đối tượng TEXT có nội dung là số (nguyên, thập phân) (defun ChonTextSo (/ ss i ent str ss1) (if (setq ss (ssget (list (cons 0 "TEXT")))) (progn (setq i 0 ss1 (ssadd) ) (repeat (sslength ss) (setq ent (ssname ss i) str (cdr(assoc 1 (entget ent))) i (+ 1 i) ) (if (distof str 2) (ssadd ent ss1) )
| ||
| Tác giả: ssg Bài viết gốc: 32636 Tên lệnh: vc |
Bảng toạ độ các đỉnh thửa đất
Xin lỗi bạn, mình quên không đưa vào các function collect (chúng thường xuyên được autoload trên máy mình nên khi test không phát hiện ra) Bạn dùng cái này. Nếu có gì bất ổn thì phản hồi:
| ||
| Tác giả: ssg Bài viết gốc: 32769 Tên lệnh: vd |
Viết Lisp theo yêu cầu
1- Góp với ý bạn, đã tìm hiểu về Lisp, trước hết phải chuẩn ngay từ tên gọi: + LISP - viết tắt của LISt Processing programming language - ngôn ngữ lập trình dựa trên cơ sở xử lý danh sách + AutoLISP - Lisp của hãng AutoDesk Không chỉ đơn thuần là cái tên để phân biệt thằng Tí hay thằng Tèo, tên gọi của LISP nói lên cái bản chất, cái "hồn" của ngôn ngữ. Là LIST...
| ||
| Tác giả: Snowman Bài viết gốc: 32519 Tên lệnh: mblk |
Đổi vị trí base point của block thế nào
Muốn thay đổi vị trí của tất cả các block trong bản vẽ mà ko làm thay đổi điểm chèn của block (yêu cầu quả là rắc rối  ) Bạn có thể dùng thử lisp sau đây, có thể sửa để rotate block với một góc xác định mà ko động chạm thay đổi gì đến block cả.Cái này dùng với...
| ||
| Tác giả: Tue_NV Bài viết gốc: 32595 Tên lệnh: cso |
Chọn text là số
Đúng là đoạn Code trên tính tổng của các số (sau khi loại bỏ các text chữ). Nhưng ý của em ngay từ đầu là muốn chọn đối tượng là text số để xử lý phép tính số học sau khi chọn bằng Grid. Ứng dụng hàm IsNumeric là hàm kiểm tra nội dung của 1 chuỗi là số, em viết đoạn Code dưới đây để thực hiện phép tính cộng thêm vào giá trị được chọn để giá trị được chọn...
| ||
| Tác giả: Tue_NV Bài viết gốc: 32291 Tên lệnh: bkl |
Nhân 2 cột số (kết quả lthay thế là cột số thứ 3)
Mình có 2 cột số : Cột số 1 và cột số 2. Đoạn lệnh Autolisp tính tích 2 cột số và cho ra cột số thứ 3. Và sau khi chạy Lisp dưới đây, ta chọn cột 1 và chọn cột 2, nhập điểm chèn ở cột số 3, sẽ cho ra kết quả ở cột 3(là tích của cột 1 và cột 2) Ý của mình ở đây là : giả sử cột thứ 3 đã có dãy số. Sau khi ta chọn cột 1, cột 2 và ta chọn giá trị thay thế là cột...
| ||
| Tác giả: gia_bach Bài viết gốc: 32448 Tên lệnh: cg |
Chọn text là số
Hàm kiểm tra nội dung của 1 chuỗi là số không xét t/hợp chuỗi có định dạng thêm khoảng trắng giữa hàng ngàn. vd : 23 000 -> 23000 (DEFUN IsNumeric (str) (if (not(vl-string-search " " str)) (if (member (type (read str)) '(REAL INT) ) T nil ) nil ) ) Đoạn code của bạn được sửa lại :
| ||
| Tác giả: gia_bach Bài viết gốc: 32505 Tên lệnh: cg1 | |||
| Tác giả: Nguyen Hoanh Bài viết gốc: 31825 Tên lệnh: sbtd |
Viết Lisp theo yêu cầu
Bạn dùng lệnh SBTD, chọn các block rồi nhập vào tỷ lệ 1.
| ||
| Tác giả: nataca Bài viết gốc: 32143 Tên lệnh: q1 q2 q3 q4 q5 |
Viết Lisp theo yêu cầu
đây: Ồ vừa post xong thì thấy bác NguyenHoanh post.
| ||
| Tác giả: nataca Bài viết gốc: 31585 Tên lệnh: boj |
lisp chặt rời các đối tượng làm hai phần
Nhiều đối tượng đây. Vẫn là lệnh BOJ . Chọn nhóm đối tượng cần break, chọn 1 đối tượng làm dao cắt. Chú ý là lisp này vẫn chỉ giới hạn bởi đối tượng cần break là đường thẳng, cung tròn, nếu polynine nhiều đoạn thì mỗi lần chỉ cắt được 1 đoạn ( cái này phải cần thêm thời gian để hoàn thiện ).
|
. Nếu bạn muốn save về file txt thì đổi đuôi về .txt là được. (Tôi sợ bạn dùng làm file số liệu nên trước đây đã để file xuất ra là txt)Trang 22/330