Info | File | ||
Tác giả: Doan Van Ha Bài viết gốc: 189988 Tên lệnh: ha |
viết lisp sơ họa
Tôi đã đọc ví dụ của bạn và nhận thấy ví dụ bạn đưa ra rất đặc biệt, chứ không mang tính tổng quát. Vì vậy, tôi chỉ giúp bạn được 50%, còn 50% thì đợi bạn trả lời (hoặc bạn tự làm). Đó là tôi chỉ mới làm xong bước 1-3, còn bước 4 (bước duỗi thẳng) thì hỏi bạn mấy câu sau: 1). Khi đường đồng mức đi qua điểm góc thì duỗi theo thằng trước hay theo thằng sau?
| ||
Tác giả: phamthanhbinh Bài viết gốc: 189992 Tên lệnh: sht |
viết lisp sơ họa
Hề hề hề, Bạn dùng thử cái này coi đã đúng ý chưa nhé. Kết quả vẫn còn một số râu thừa do lệnh extrim của express. Mình chưa tìm ra cách xử lý. Bạn có thể xóa thủ công nó một tí. Hy vọng rằng nó có ích cho bạn. Chúc bạn vui.
| ||
Tác giả: Tue_NV Bài viết gốc: 119280 Tên lệnh: cte | |||
Tác giả: Doan Van Ha Bài viết gốc: 190182 Tên lệnh: gg |
Hỏi code lisp: Lấy text từ .txt đưa vào CAD
Mấy ngày nay không thấy bác Tue_NV online nên tôi làm giúp cho bạn đây:
| ||
Tác giả: ketxu Bài viết gốc: 190555 Tên lệnh: test1 test2 test3 |
Viết tên layer của Line và ghi ra màn hình
- Ghi ra màn hình Layer của Line(s) tại vị trí trung điểm - Trong lisp kèm thêm 2 lisp nhỏ theo yêu cầu riêng
| ||
Tác giả: Thaistreetz Bài viết gốc: 121269 Tên lệnh: ft |
Nhờ viết Lisp tìm tên tuyến
Lệnh là FT, chỉnh thế nào tùy bạn. Mình đưa ra ý tưởng khác bạn 1 chút để dễ dùng hơn. ĐK dùng lisp này: tất cả các text tên tuyến phải được đặt ở layer TENTUYEN. bạn có thể tự sửa code sao cho phù hợp với cách đặt tên layer của bạn. sửa ở đây (8 . "TENTUYEN")
| ||
Tác giả: Tue_NV Bài viết gốc: 190703 Tên lệnh: xuattt |
Xin lisp trích xuất thông tin của các thửa đất.
Dữ liệu của bạn là các Text rời rạc, không tuân theo 1 quy luật nào cả. Nếu trong vùng chọn Lisp không chọn được đối tượng thỏa mãn thì Cell được để trống. Còn trong vùng chọn, Lisp có thể chọn nhiều hơn 1 đối tượng thỏa mãn thì nó đánh dấu ? vì không biết chọn đối tượng nào. Ví dụ trong những thửa hẹp, text chủ thửa bị đè lên nhau thì Cell được đánh dấu ?. Bạn...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 190731 Tên lệnh: ha |
Lisp tìm tập hợp các hình chữ nhật có diện tích bất kỳ
Bạn cần nói rõ hơn: - Hình chữ nhật đó được vẽ bằng line hay lwpolyline... Tốt nhất là upload bản vẽ lên - Tìm ra rồi làm gì: xuất kết quả ra file, hay để delete, copy... Lisp dưới đây chọn các hình chữ nhật vẽ bằng Lwpolyline, có diện tích < 50. Trả về list các ename.
| ||
Tác giả: ssg Bài viết gốc: 57619 Tên lệnh: bra |
Viết lisp chia đoạn thẳng thành 3 phần
Cắt luôn cả cái "vật cắt" nghĩa là không cần phân biệt, cứ chơi tất! Theo ssg, đừng thêm option cho nó phức tạp ra, bạn thử dùng cái BRA (Break All) sau:
| ||
Tác giả: q288 Bài viết gốc: 57646 Tên lệnh: chh |
Viết lisp chia đoạn thẳng thành 3 phần
Không đơn giản như bạn nghĩ đâu, lúc đầu mình cũng nghĩ như vậy, nhưng chạy thử thì hoặc có lỗi hoặc cắt không hết. Sau cùng thì phải thay đổi luôn giải thuật, không xài giải thuật cũ nữa. GThuật cũ chỉ thìch hợp với số lg vthể ít thôi, theo như nhu cầu cua bạn trongquan ban đầu là chia 3, nhưng nếu số lg nhiều thì việc quản lý vthể mới sẽ rắc rối lắm, chưa kể hàm...
| ||
Tác giả: q288 Bài viết gốc: 57650 Tên lệnh: chh |
Viết lisp chia đoạn thẳng thành 3 phần
Sorry, có chỗ bị sai chút xíu, chép lại code
| ||
Tác giả: Doan Van Ha Bài viết gốc: 190966 Tên lệnh: pl2 |
lisp kết hợp PL & UCS
Bạn đã biết vì sao bài của bạn bị mod xoá rồi ư? Đây là lisp cho bạn (chú ý kích thước trên bản vẽ khác kết quả dim nhé)
| ||
Tác giả: lp_hai Bài viết gốc: 187100 Tên lệnh: zx |
Chỉnh máy in và Plot Style!
Về chuyện in ấn này thì mỗi người mỗi kiểu. Nếu dùng Publish cho các layout thì tốt nhất bạn nên import cái setup in chuẩn từ một file chuẩn nào đó. cái này bạn làm bắt đầu như sau: mở một bản vẽ (chuẩn) lên, bấm lệnh in, trong bảng plot ở ô paper setup bạn add... một setup mới, đổi tên tùy thích. thiết lập in cho chuuẩn, sau đó thoát ra và save bản vẽ lại. ở những bản vẽ...
| ||
Tác giả: Thaistreetz Bài viết gốc: 191112 Tên lệnh: tc |
Xin lisp căn Text vào chính giữa ô
Những trường hợp lập bảng như thế này thì tốt hơn là dùng DTEXT cho nhẹ. Quan điểm của mình khi vẽ là hạn chế dùng MTEXT nên không viết cho MTEXT. Mình bận nên chỉ sửa qua 1 chút theo yêu cầu của bạn (Căn TEXT hoặc MTEXT vào chính giữa ô) thôi nhá. Không căn được MTEXT cho lựa chọn căn vào lề phải và trái của ô đâu đấy, bác nào rảnh rỗi thì sửa dùm bạn ấy cho 2 lựa...
| ||
Tác giả: ketxu Bài viết gốc: 191207 Tên lệnh: ldp |
Trim Leader?
Quick code : (defun c:ldp (/ LM:mAssoc p lst ss) ;Free lisp from Cadviet @Ketxu (defun LM:mAssoc ( key lst / pair ) (if (setq pair (assoc key lst)) (cons (cdr pair) (LM:mAssoc key (cdr (member pair lst)))) ) ) (and (setq ss (ssget '((0 . "*LEADER")))) (setq p (getpoint "\nDiem dat chung :")) (foreach ld (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) (entmod (subst (cons 10 p) (cons 10 (last...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 191227 Tên lệnh: tl |
Trim Leader?
Về lisp chuyển layer thì trên cadviet có rất nhiều. Đơn giản như bạn thì dùng cái này xem:
| ||
Tác giả: ssg Bài viết gốc: 68786 Tên lệnh: mb | |||
Tác giả: phamngoctukts Bài viết gốc: 164143 Tên lệnh: brd |
Lisp cắt đối tượng
Mình test thử có thấy lỗi thế đâu nhỉ. Đây là code của ket mình có edit tí chút.
| ||
Tác giả: huunhantvxdts Bài viết gốc: 191416 Tên lệnh: dt |
mình muốn nhờ viết lisp tính diện tích cho cad 2007 hoặc cao hơn
mình có 1 lisp cũng khá hay nhưng không thỏa mãn tất cả các yêu cầu của bạn. đây là lisp mình sưu tầm và có chỉnh sửa thêm ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=59486 (Defun c:DT() (setvar "cmdecho" 0) (setvar "osmode" 0) (command "osnap" "none") (if (null am)(setq am "1"))
| ||
Tác giả: Doan Van Ha Bài viết gốc: 191452 Tên lệnh: ha |
Hỏi cách lấy dữ liệu trực tiếp từ dòng lệnh của AutoCAD!
Đây là lisp cho bạn (để lấy các thông tin trên Text Window của bản vẽ hiện hành):
|
Trang 77/330