Info | File | ||
Tác giả: Tue_NV Bài viết gốc: 206238 Tên lệnh: dkt | |||
Tác giả: ketxu Bài viết gốc: 206354 Tên lệnh: ssc |
Lisp Tự Động Phát Sinh Vùng Chọn Theo " UCS ảo "
- Còn theo em thì mọi người không nên tán những chuyện ngoài chuyên môn ở box này ^^ @NTD : 1 ví dụ để thấy yêu cầu k có gì là khó khăn - hoàn toàn có thể thêm các option vào cho nó : (defun c:ssc(/ get-points) (defun get-points (/ p pt) (setq p (getpoint "\nChon diem goc :")) (while (setq pt (getpoint p "\nCac diem tham chieu :")) (setq *ss-list* (cons pt...
| ||
Tác giả: lp_hai Bài viết gốc: 206269 Tên lệnh: acs |
Lisp Xoay Viewport tùy ý
Bạn xem lại dòng này: AB trùng AC ==> view đc xoay 1 góc BAC ==> góc quay luôn dương (??). Mình viết theo kiểu Align space của cad: (defun c:ACS(/ p1 p2 p3 goc vs) (setq p1 (getpoint "\nChon Tam") p2 (getpoint p1 "\nChon Phuong hien tai") p3 (getpoint p1 "\nChon Phuong moi") goc (-(angle p3 p1)(angle p2 p1)) vs (getvar "viewsize") p1 (trans p1 1 0)) (command...
| ||
Tác giả: lý nhẹ Bài viết gốc: 206503 Tên lệnh: 12345 |
Xin được giúp đỡ về LISP sử lý chuỗi.
Trước tiên xin được cám ơn tấm chân tình của các đại ka: ketxu và phamthanhbinh đã có lòng tương cứu! Như em đã nói là text cần hiệu chỉnh đã có sẵn trong bản vẽ có dạng: ...a...b...c, chúng ta có thể gọi lên bằng "select object" Ví dụ đoạn code như sau: nhưng đã làm không được các bác ạ!
| ||
Tác giả: lp_hai Bài viết gốc: 206733 Tên lệnh: ccd |
Lisp Cộng các số trong Dim thành một công thức
Chắc là cộng dim ra con số tổng chứ hả? Code này chỉ cho ra kết quả tại dòng command line (defun c:ccd(/ gtt dt sdt ent id) (setq dt (ssget '((0 . "DIMENSION"))) sdt (sslength dt) id 0 gtt 0 ) (repeat sdt (setq ent (ssname dt id) id (1+ id) gtt (+ gtt (gt1 ent) ) ) ) (princ gtt) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;
| ||
Tác giả: mathan Bài viết gốc: 206747 Tên lệnh: dtl vpl d1 |
Xin Lisp vẽ độ dốc dọc
Bạn xài cái của mình xem sao Mình để thêm trường hợp bạn vẽ dôc trên trắc dọc tức là tỷ lệ X và Y có thể không bằng nhau Dùng LISP bằng lệnh DTL - VPL - D1 (khuyến mãi để đo dốc dọc ![]() ;;; Free lisp code from CADViet.com - edit by Mathan ;;; Ve Pline theo chieu dai va do doc
| ||
Tác giả: phamthanhbinh Bài viết gốc: 206760 Tên lệnh: at2xls |
Em cần xuất file cad sang excel, khổ lắm rồi.
Hề hề hề, Sau một hồi ngọ nguậy thì ra được cái lisp này. Hy vọng nó sẽ giúp được bạn. Tuy nhiên vì mình chưa có thời gian check toàn bộ bản vẽ bạn gửi nên bạn chịu khó test thử, có gì chưa ổn thì post lên. Trước mắt thì thấy rằng các block trong bản vẽ của bạn không phải là hoàn toàn giống nhau nên có thể sẽ có tí lộn xộn. Rất mong bạn test và chỉ cho biết chỗ chưa...
| ||
Tác giả: Tue_NV Bài viết gốc: 206790 Tên lệnh: tde |
Viết giúp em LISP nối các đối tượng cùng loại bằng polyline
mình Không cần xổ xuống mà làm vầy có được không?
| ||
Tác giả: phamthanhbinh Bài viết gốc: 206784 Tên lệnh: clb |
lisp chuyển các đối tượng về 1 layer
Hề hề hề, Dùng thử cái này coi sao nhé
| ||
Tác giả: lp_hai Bài viết gốc: 204910 Tên lệnh: sw |
Xin lisp về đếm block
Đếm block ATT thì đa dạng lắm, 1)có thể bạn chỉ cần đếm số lượng block mà không quan tâm đến nội dung của ATT VD: không cần phân biệt cửa D1 với D2 mà chỉ cần biết nó có block name là "Door" 2)hoặc bạn muốn đếm có bao nhiêu D1 và bao nhiêu D2? ở trường hợp này bạn cần phải cho người viết lisp biết block của bạn như thế nào, có mấy ATT.... bạn cần...
| ||
Tác giả: Tue_NV Bài viết gốc: 206821 Tên lệnh: ccd |
[Yêu cầu] Lisp Cộng các số trong Dim thành một công thức
Trên cái Lisp mà bạn lp_hai đã viết, Tue_NV thêm thắt chút ít . Xuất hiện hộp thoại -> Bạn nhấn Copy -> Paste vào ô trong Excel
| ||
Tác giả: ketxu Bài viết gốc: 206822 Tên lệnh: cdl |
[Yêu cầu] Lisp Cộng các số trong Dim thành một công thức
(defun c:cdl(/ lst) (cond ( (ssget (list (cons 0 "*DIMENSION"))) (vl-load-com) (vlax-for objD (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))) (setq lst (cons (vla-get-Measurement objD) lst)) ) (substr (apply 'strcat (mapcar '(lambda(x)(strcat "+" (vl-princ-to-string x) )) lst)) 2) ) ))
| ||
Tác giả: ketxu Bài viết gốc: 206824 Tên lệnh: coblk |
[Yêu cầu] lisp chuyển các đối tượng về 1 layer
Bạn sửa lại như thế này, mình k test, viết tạm bạn test nhé (defun C:CoBlk (/ i ss ls la) (setq la (if (tblsearch "LAYER" "Block") "Block" (getvar 'clayer))) (princ "\n Chon Blocks doi mau bylayer <select all>: ") (setq i 0 ss (ssget '((0 . "INSERT")))) (if (not ss)(setq ss (ssget "x" '((0 . "INSERT"))))) (command ".UNDO"...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 206841 Tên lệnh: lndt |
[Yêu cầu] Viết giúp em LISP nối các đối tượng cùng loại bằng polyline
Hề hề hề, Thế cái nội dung này có dùng được không hè???
| ||
Tác giả: hamster2102 Bài viết gốc: 206856 Tên lệnh: nhal |
[Hỏi] nhờ kiểm tra lisp này lỗi ở đoạn nào
đã giải quyết xong (nhờ mod del dùm em) cám ơn bác mathan và bác Tue
| ||
Tác giả: hamster2102 Bài viết gốc: 206856 Tên lệnh: nha |
[Hỏi] nhờ kiểm tra lisp này lỗi ở đoạn nào
đã giải quyết xong (nhờ mod del dùm em) cám ơn bác mathan và bác Tue
| ||
Tác giả: mathan Bài viết gốc: 206832 Tên lệnh: sfd |
[yêu cầu]lisp sửa text dim và gán màu sau khi sửa
Mình gửi bạn code này, không quá giống ý "tự động" của bạn Nhưng khi bạn làm xong, đánh lệnh SFD xong, nó sẽ tự động vạch mặt những dim bạn đã edit ![]() Màu bạn có thể thay đổi giá trị vào lisp trong ô (setq mau 5); số màu do bạn chọn nhé ;; Free lisp code from CADViet.com - edit...
| ||
Tác giả: kedensau88 Bài viết gốc: 197889 Tên lệnh: wn |
Lisp lấy dữ liệu từ file .txt
Chào các anh,em có một đoạn lisp thế này : (defun DCL ( lstType / fl ret dcl_id Return# add_lst ) (defun add_lst (key lst method) (start_list key method) (mapcar 'add_list lst) (end_list) ) (vl-load-com) (setq fl (vl-filename-mktemp "mip" nil ".dcl")) (setq ret (open fl "w")) (mapcar '(lambda (x) (write-line x ret)) (list " mip_msg : dialog { label =...
| ||
Tác giả: Nguyen Hoanh Bài viết gốc: 49606 Tên lệnh: cvav 1 04 cvav 1 04 |
CADViet Antivirus !!!
Rất nhiều người phàn nàn về việc bị virus acad.lsp, Nó làm cho máy tính của họ không pan bằng phím giữa được, zoom bằng phím giữa rất chậm, hatch chạy đâu mất, đối tượng được chọn không highlight. Giải pháp được đưa ra để khắc phục: - xóa hết các file acad.lsp trong máy đi, đặt các biến: - zoomfactor về 60 - mbuttonpan về 1 - HIGHLIGHT về...
| ||
Tác giả: thanhduan2407 Bài viết gốc: 206968 Tên lệnh: daochieu |
hỏi về lệnh đổi thứ tự đầu cuối cho đối tượng line/polyline
Lisp của bạn đây. Mình sưu tầm của các bác trên diễn đàn (defun c:daochieu (/ C10 C40 C41 C42 C50 C70 CC40 CC41 CC42 DINH ENT ENT2 I N N10 N40 N41 N42 N50 N70 NC40 NC41 NC42 OSMODEC SS SSN SSN2 TEST0 TEST1 C11 N11) (while (null(setq ss (entsel "\n Chon polyline: ")))) (setq osmodec (getvar "osmode")) (setvar "osmode" 1) (setq dinh (getpoint "\n Chon diem dau: ")) (setq ssn (car...
|
Trang 99/330