Info | File | ||
Tác giả: thiep Bài viết gốc: 75637 Tên lệnh: chattcsv |
Edit trực tiếp text Attribute trong block
Trong khi chờ đợi Thaistreet, các bạn dùng ví dụ về file *.csv này thử: http://www.cadviet.com/upfiles/2/ttattribute.zip trong file *.csv này có 6 hàng dữ liệu tương ứng với 6 blockref, các bạn copy block khungten thêm 5 nữa, Khi lisp yêu cầu: Select objects, các bạn dùng chế độ chọn là fence "f", làm như vậy để đối tượng nào dính fence trước sẽ được lisp xử lý trước, Còn đây là...
| ||
Tác giả: pdle Bài viết gốc: 196056 Tên lệnh: kt |
Lưu file
Cảm ơn anh ketxu. Dùng findfile được lisp như sau: (defun c:kt ( / link fina) ( setq fina (vl-filename-base (getvar "dwgname")) link "C:\\Users\\pdle\\Desktop\\Technoinox\\Corrected\\" link (strcat link fina ".dwg") ) (while (findfile link) (setq link (strcat (substr link 1 (- (strlen link) 4)) "-x.dwg"))) (command "saveas" "2004" link) (princ) )
| ||
Tác giả: Doan Van Ha Bài viết gốc: 196095 Tên lệnh: ha |
(yêu cầu) lisp vẽ cung tròn với diện tích biết trước
Cái này muốn tính đến sai số bao nhiêu cũng được (/=0), chỉ tích tắc:
| ||
Tác giả: phamthanhbinh Bài viết gốc: 49919 Tên lệnh: scc |
Viết Lisp theo yêu cầu
Chào bạn Ui_troi_2005, Bạn thử xài cái này xem nhé. Đoạn lisp trên sẽ scale tất cả các đối tượng có trên bản vẽ của bạn với tâm scale là 0,0 và tỉ lệ scale là 0.5. Nếu bạn muốn scale không phải tất cả các đối tượng trên bản vẽ thì có thể sử dụng hàm ssget với các tham số khác nhau của nó tùy theo ý bạn. Nếu muốn chọn tâm scale khác bạn sử dụng hàm...
| ||
Tác giả: pdle Bài viết gốc: 196199 Tên lệnh: lbl |
Không explode toàn bộ chọn được một lúc
Em có lisp sau: (defun c:lbl (/ ss) ( setq ss(ssget "_X" (list (cons 0 "INSERT") (cons 8 "0,ff" ))) ) (command "explode" ss ) (princ) ) Nhưng khi thực hiện lệnh, mặc dù ss có bao nhiêu object đi nữa thì kết quả cũng chỉ có 1 block bị explode. Lỗi ở đâu? http://www.cadviet.com/upfiles/3/64291_drawing1.dwg
| ||
Tác giả: ketxu Bài viết gốc: 196217 Tên lệnh: ch |
Chỉnh sửa nhanh Scale Hatch, đổi nhanh nhiều góc cho hàng loạt hatch
Chỉnh scale hay chỉnh góc bạn ? P/s : (defun c:ch(/ a c) (vl-load-com) (if (and (ssget (list (cons 0 "HATCH"))) (setq a (getangle "\nGoc cong them :")) (setq c (getreal "\nScale moi :")) ) (vlax-for object (vla-get-ActiveSelectionSet (vla-get-ActiveDocument...
| ||
Tác giả: Tue_NV Bài viết gốc: 45139 Tên lệnh: dtl |
Viết Lisp theo yêu cầu
Hy vọng đoạn Code này chạy theo đúng ý của bạn : Tên lệnh là DTL Chúc thành công.
| ||
Tác giả: ketxu Bài viết gốc: 196224 Tên lệnh: ch |
Chỉnh sửa nhanh Scale Hatch, đổi nhanh nhiều góc cho hàng loạt hatch
À quên. lúc đầu mình để chọn tạp nham nên phải kiểm tra nó là Hatch hay không, cho vào Filter của ssget rồi thì thôi k kiểm tra nữa, bạn sửa lại như này cho gọn : (defun c:ch(/ a c) (vl-load-com) (if (and (ssget (list (cons 0 "HATCH"))) (setq a (getangle "\nGoc cong them :")) (setq c (getreal "\nScale moi :")) ) (vlax-for object (vla-get-ActiveSelectionSet...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 196243 Tên lệnh: ha | |||
Tác giả: pdle Bài viết gốc: 196253 Tên lệnh: lbl |
Không explode toàn bộ chọn được một lúc
1.Hay quá. Mà sao em tìm trong system variables của help không có biến qaflags nhỉ 2.Em đã sửa lại lisp như sau: (defun c:lbl (/ ss oldqa) ( setq ss(ssget "_X" (list (cons 0 "INSERT") (cons 8 "0,ff" ))) oldqa (getvar "qaflags") ) (setvar...
| ||
Tác giả: Tue_NV Bài viết gốc: 196524 Tên lệnh: andim | |||
Tác giả: Tue_NV Bài viết gốc: 196544 Tên lệnh: hdim | |||
Tác giả: bach1212 Bài viết gốc: 196552 Tên lệnh: tgr |
Lisp lọc các số sau chữ L, rồi tính tổng.
;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=62723&pid=193865&st=0&#entry193865 (defun C:tgr( / entlst dialst) (princ "\nChon tat ca doi tuong can thong ke...") (setq entlst (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "TEXT") (1 . "B*#*`,L#*"))))))) (foreach ent entlst (setq dialst (cons (atoi (phai_str (trai_str (cdr (assoc 1...
| ||
Tác giả: Tue_NV Bài viết gốc: 196610 Tên lệnh: an hien |
Xin lisp chọn dim
Hay là các bạn có thể sử dụng lisp này. Viết lại 1 tý : Cách chạy : Command: an -> Gõ lệnh AN Nhap ten doi tuong can An : / Enter de Pick chon doi tuong mau : LINE -> Nhập tên đối tượng cần ẩn. Ví dụ LINE thì gõ LINE TEXT và MTEXT có thể gõ *TEXT hoặc gõ TEXT,MTEXT POLYLINE có thể gõ *POLYLINE Block : gõ INSERT DIMENSION thì gõ DIMENSION HATCH thì gõ...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 196719 Tên lệnh: xyz |
nút lệnh pick point từ bản vẽ.
Đây là trích từ 1 dialoge của tôi để bạn tham khảo:
| ||
Tác giả: Doan Van Ha Bài viết gốc: 196737 Tên lệnh: dinfo%0D%0A%0D%0A%0D%0A%3B |
Lấy thông tin động của từng đối tượng
Hiện nay trên Internet có rất nhiều Web hay về Lisp. Xin bắt đầu chuyên mục sưu tầm lisp hay này bằng 1 lisp của Lee Mac: lấy thông tin của từng đối tượng khi di chuyển mouse đến vị trí đối tượng. Lisp có thể display các dạng thông tin như: LAYER, COLOR, LINETYPE, LINEWEIGHT, ALIGNMENT, AREA, CENTER, ELEVATION, HEIGHT, LENGTH, RADIUS, ROTATION, STYLENAME, TEXTSTRING, v.v và v.v... Hy vọng mọi người hưởng...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 196762 Tên lệnh: andim | |||
Tác giả: VUVUZELA Bài viết gốc: 100335 Tên lệnh: tl | |||
Tác giả: Doan Van Ha Bài viết gốc: 196832 Tên lệnh: nbpl | |||
Tác giả: Tue_NV Bài viết gốc: 77195 Tên lệnh: dstt |
Giúp mình Lisp đánh số bản vẽ này với!
Lisp đánh số theo thứ tự này Tue_NV viết đúng theo yêu cầu của bạn gồm 2 trường hợp : Nếu bạn chọn D : xảy ra trường hợp 1 Trường hợp 1. Số đầu tăng 1 đơn vị, chuỗi kí tự cuối cố định Ví dụ : 1a ; 2a; 3a Command: dstt Ban muon danh so tang dan o vi tri dau hay cuoi Danh so bat dau :1 Danh ki tu ket thuc :a Nếu bạn...
|
Trang 86/330