| Info | File | ||
| Tác giả: MANHHUNGXDA Bài viết gốc: 83783 Tên lệnh: r90 r30 r45 r15 r60 r-90 r180 r-180 r-60 r-45 r-15 r-30 |
lisp quay goc nghieng
Tham khảo coi, *chưa kịp gõ tiếng việt mà nó cứ đòi gõ* http://www.cadviet.com/upfiles/2/ro.lsp
| ||
| Tác giả: phamthanhbinh Bài viết gốc: 83100 Tên lệnh: mulmov |
Viết lisp theo yêu cầu [phần 2]
Chào bạn muoild, Bạn dùng thử cái này xem sao, nếu cần bổ sung gì thì hãy pót lên nhé. Chúc bạn vui.
| ||
| Tác giả: phamthanhbinh Bài viết gốc: 83071 Tên lệnh: deh |
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị
Chào bạn thanhlamct, Gửi bạn cái lisp này, có thể chạy được với cả hai loại block mà bạn đã chỉnh sửa là textcaodo và dc501. Với các block cao độ khác mình không chắc chắn lắm vì đôi khi chúng có những thuộc tính khác với hai bock trên. Để thuận lợi cho việc hiệu chỉnh sau này bạn nên sử dụng các block đánh cốt với cùng các thuộc tính như môtt trong hai block nói trên nhé. Đặc...
| ||
| Tác giả: Thaistreetz Bài viết gốc: 83072 Tên lệnh: cdx |
Lisp điền cao độ bị lỗi!!!
Bận nên không có thời gian xem lại giúp bạn lisp trên. nhưng có cái này share cho bạn. Lisp này dùng để ghi cao độ trên trắc ngang và khá đẹp với các trắc ngang chạy bằng nova. có thể chạy được trên cad14 vô tư  - Chọn kích thước của text muốn ghi cao độ (nên chọn bằng hoặc...
| ||
| Tác giả: gia_bach Bài viết gốc: 83083 Tên lệnh: deh |
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị
Chào bạn thanhlamct, Gửi bạn cái lisp này, có thể chạy được với cả hai loại block là : text-caodo và dc50 Chú ý : Đơn vị Gia tri chenh cao là milimét.
| ||
| Tác giả: phamthanhbinh Bài viết gốc: 82954 Tên lệnh: deh |
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị
Xin lỗi bạn thanhlamct, Vì mình không chú ý tới các cốt âm ( trên bản vẽ bạn gửi toàn là cốt dương) nên cái lisp mình sửa bị lỗi. Rất mong bạn bỏ quá cho sự dốt nghề của mình. Đây là cái mình đã sửa lại để nó chạy đúng với cả cốt âm. @Bác Tue_NV: Mình cũng đã nghĩ đến điều bác nói , song rất tiếc là cái block dc50 của bạn thanhlamct có tới hai...
| ||
| Tác giả: phamthanhbinh Bài viết gốc: 82971 Tên lệnh: deh |
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị
Chào bạn thanhlamct, Ha ha ha, ta mò ra rồi. Bạn thử cái củ này xem đã ổn chưa nhé, có còn giắt răng không??? Nghĩ mãi, mình phải tách cái thuộc tính dấu ra để xử lý riêng theo kết quả của việc tính toán mới thấy có vẻ ngon ngon. Nó đây nè: Bạn cứ thử thoải mái , cộng trừ liên tiếp vào cả cốt âm lẫn dương xem nó có chửi lại không nhé. Mình thử sơ sơ thấy nó...
| ||
| Tác giả: Tue_NV Bài viết gốc: 82943 Tên lệnh: scpl |
Viết lisp theo yêu cầu [phần 2]
Vừa hay, Tue_NV cũng vừa viết xong code theo ý của bạn pbellh, xin post lên luôn :
| ||
| Tác giả: Phiphi- Bài viết gốc: 82668 Tên lệnh: plc |
Viết lisp theo yêu cầu [phần 2]
Chào bác phamthanhbinh. Lisp Bác viết chạy rất tốt, cám ơn Bác nhiều. Nếu Bác xem cái bản vẽ mẫu PP post ở bài trên thì còn phải lập thêm bảng PLATE CONTOUR thì mới đầy đủ chi tiết. PP phải dùng Lisp Plate contour dưới đây. Vì đường bao của plate là 1 Pline nên chỉ cần select nó thì cái bảng hiện ra liền, sau đó rồi phải Explode, Erase lines & sắp xếp lại Text. Chắc sau...
| ||
| Tác giả: gia_bach Bài viết gốc: 82714 Tên lệnh: pid |
Viết lisp theo yêu cầu [phần 2]
Bài này lâu rồi, không biết bạn có cần nữa không ? Tuy nhiên thử phương án này có khá hơn không? Update 30/12/09. Lisp xuất ra bảng tọa độ của các POINT. - đặt tên : theo thứ tự từ trái qua phải, từ trên xuống duới. - số chữ số thập phân : lấy theo giá trị mặc định (Format-> Units... ) hay biến hệ thống LUPREC.
| ||
| Tác giả: thiep Bài viết gốc: 82768 Tên lệnh: eraseblock |
Viết lisp theo yêu cầu [phần 2]
Chào bác Phi, Thiep đã edit lại lisp, bác tải lại nhé. Theo Thiep thì độ cao của Table sao cho bằng 1.5 Text height có quá thấp không, nếu thấy thấp thì sửa lại biến heicell tại dòng heicell (* 1.5 tHt) 1. Tự động Find và Replace các text:: Dùng lệnh Find trong Cad, không cần lisp. 2. Xoá các block có tên "abc...": bác Phi dùng lisp sau: Happy Christmas!
| ||
| Tác giả: ssg Bài viết gốc: 8225 Tên lệnh: lk cik rk ck mk ok sk |
Viết Lisp theo yêu cầu
Có cách rồi, chưa giống lắm nhưng xài được:
| ||
| Tác giả: phamthanhbinh Bài viết gốc: 82555 Tên lệnh: tabc |
Viết lisp theo yêu cầu [phần 2]
Chào Bác Phi phi, Cái này bác xem được chưa??? Yêu cầu nếu có nhiều BEND LINE thì mình sẽ phải viết lại một chút nữa. Bác chờ nhé. Thôi chết còn quên hai cái mũi tên chỉ hướng trục và tên trục. Xin lỗi bác mình sẽ bổ sung sau nhé. Đến giờ nhậu rồi, hề hề hề. Cám ơn bác về đoạn code bác gửi.
| ||
| Tác giả: gia_bach Bài viết gốc: 81867 Tên lệnh: mmo | |||
| Tác giả: gia_bach Bài viết gốc: 81878 Tên lệnh: mmo |
Viết lisp theo yêu cầu [phần 2]
Bổ sung phần Highlight đối tuợng đuợc chọn và dùng getdist để nhập kh/cách. Thanks to duy782006.
| ||
| Tác giả: gia_bach Bài viết gốc: 81776 Tên lệnh: trimblk |
Viết lisp theo yêu cầu [phần 2]
LISP làm 1 lệnh mà trim được nhiều đoạn cống khác nhau. Chú ý : Lisp chỉ sử lý trường hợp block hố ga giao với đường ống (Line, Arc, PLine) tại 2 điểm. Do đó trong file của bạn, lisp không sử lý điểm ngoài cùng.
| ||
| Tác giả: gia_bach Bài viết gốc: 81784 Tên lệnh: 1 2 3 4 5 6 7 qd | |||
| Tác giả: Tue_NV Bài viết gốc: 80945 Tên lệnh: mpt | |||
| Tác giả: phamthanhbinh Bài viết gốc: 80472 Tên lệnh: chla |
Viết lisp theo yêu cầu [phần 2]
Chào bạn quynhnn, Bạn dùng thử lisp này coi sao. Dựa trên sự gợi ý của bác Gia bach mình viết lại. Nếu có gì chưa vừa ý, hãy post lên nhé. Chúc bạn vui.
| ||
| Tác giả: Tue_NV Bài viết gốc: 80473 Tên lệnh: brk |
Lisp biến 1 phần của đoạn thẳng trở thành nét Hidden2.
Mạn phép anh giabach Tue_NV viết thêm vào đoạn Code của anh để giúp cho bạn tuanthunder @ tuanthunder : Bạn sử dụng code này thử nhé :
|
Trang 2/330