Info | File | ||
Tác giả: Tue_NV Bài viết gốc: 278552 Tên lệnh: fbn |
Đố vui với LISP
Xin Khai bút đầu năm: (defun c:fbn(/ n f) (setq n (1+ (getint "Nhap thang thu :"))) (setq f (/ (1+ (sqrt 5)) 2)) (rtos (/ (- (expt f n) (expt (1- f) n)) (sqrt 5)) 2 0) ) (defun c:fbn(/ n f)
(setq n (1+ (getint "Nhap thang thu :")))
(setq f (/ (1+ (sqrt 5)) 2))
(rtos (/ (- (expt f n) (expt (1- f) n)) (sqrt 5)) 2 0)
)
(defun c:fbn(/ n f)
(setq n (1+ (getint...
| ||
Tác giả: ketxu Bài viết gốc: 133856 Tên lệnh: dc |
Cách thống kê số lượng circle
Lisp bác Tuệ sửa cho bạn chuẩn rồi mà.Mình sửa lại 1 chút để k ghi ra file nữa giúp bạn đây..COpy y nguyên thuật toán đếm của bác Hoành ^^ Qua kết quả thì thấy bản vẽ có đúng 10 loại, thao tác thủ công cũng k chậm lắm đâu bạn hiền ^^
| ||
Tác giả: phamthe Bài viết gốc: 278750 Tên lệnh: ce |
Nhờ các bác kiểm tra giúp đoạn code này bị lỗi gì vậy!
oh, bây giờ chức năng upload mới thấy xuất hiện. em gửi lại mong các anh coi giúp với nhé! ;; Continuous Erase - Lee Mac (defun c:ce ( / *error* flg lst mod pt1 pt2 sel ) (defun *error* ( m ) (redraw) (princ)) (princ "\nSelect objects to erase: ") (while (and (not flg) (= 3 (car (setq pt1 (grread nil 12 2))))) (if (setq sel (ssget (setq pt1 (cadr pt1)))) (command "_.erase" sel "") (progn (princ "\nSpecify opposite corner:...
| ||
Tác giả: ndtnv Bài viết gốc: 279213 Tên lệnh: ce |
Nhờ các bác kiểm tra giúp đoạn code này bị lỗi gì vậy!
Vì không có Cad 2004 nên tôi chỉ test với DYNMODE = 0
;; Continuous Erase - Lee Mac ;; Fix - ndtnv (Dynmode <= 0 or nil) (defun c:ce ( / *error* flg fl2 k lst mod pt1 pt2 sel) (defun *error* ( m ) (redraw) (princ)) (princ "\nSelect objects to erase: ") (while (and (not flg) (or (= 3 (setq k (car (setq pt1 (grread nil 12 2))))) (not fl2) )) (if (/= 3 k) (setq fl2 t) ...
| ||
Tác giả: conghoa Bài viết gốc: 279807 Tên lệnh: oo |
Chỉnh sửa lisp offset
;/Day la lenh OFFSET dac biet, sau khi OFFSET xong tu dong doi sang lop hien hanh.
;/Day la lenh OFFSET dac biet, sau khi OFFSET xong tu dong doi sang lop hien hanh. ;*********** (defun C:OO (/ lay lt os msg1 p1 msg2) (setq os (getvar "Osmode") lt (getvar "celtype") lay (getvar "Clayer") msg1 "\nVao khoang cach offset: " kc (if msg1 (getreal msg1) kc) msg2 (strcat "Chon vat...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 279878 Tên lệnh: ha |
Hỏi về Lisp (thuật toán, ý tưởng, coding,...)
Nhờ bác Hoanh (hoặc ai đó) sửa giúp lisp này giúp với. Hình như thuật toán nó bị tệ chỗ nào đó nên khi đem vào áp dụng cho bài toán cụ thể thì chạy chậm. Trên cơ sở đó tôi sẽ biến tấu cho bài toán của mình. ;;----- Ham de Test voi vi du don gian.
(defun C:HA( / vcl ee vv sta end )
(setq vcl 100 vv '(0 1 2 3 4 5) ee (list
(list (list 0 0 00) (list 0 1 07) (list 0 2 09) (list...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 279888 Tên lệnh: oo |
[Giúp đỡ] Chỉnh sửa lisp offset
Ri nè! (defun C:OO (/ lay lt os p1 msg2)
(setq os (getvar "Osmode")
lt (getvar "celtype")
lay (getvar "Clayer"))
(or kc (setq kc 100))
(setq kc (cond ((getdist (strcat "\nVao khoang cach offset <" (rtos kc 2 2) ">: "))) (kc)))
(setq msg2 (strcat "Chon vat the muon offset:*" (rtos kc) "*"))
(setvar "OSMODE" 512)
(setq p1 (getpoint msg2))
(while...
| ||
Tác giả: conghoa Bài viết gốc: 279761 Tên lệnh: oo |
[Giúp đỡ] Chỉnh sửa lisp offset
;/Day la lenh OFFSET dac biet, sau khi OFFSET xong tu dong doi sang lop hien hanh.
;/Day la lenh OFFSET dac biet, sau khi OFFSET xong tu dong doi sang lop hien hanh. ;*********** (defun C:OO (/ lay lt os kc msg1 p1 msg2) (setq os (getvar "Osmode") lt (getvar "celtype") lay (getvar "Clayer") msg1 "\nVao khoang cach offset: " kc (getreal msg1) msg2 (strcat "Chon vat the muon...
| ||
Tác giả: ketxu Bài viết gốc: 280445 Tên lệnh: cpi |
[Nhờ chỉnh sửa] lisp copy text tăng dần
Không can thiệp nội dung (defun c:CPI (/ Block ent Numtext Blk Symbol sym ans pt1 pt2 gr code data NewObj end) ;;; pBe 23 June 2012 ;;; ;;;http://forums.autode.../3507198/page/2 ;;; (setvar 'cmdecho 0) (prompt "\rSelect Block/Text:") (cond ((and (setq Block (ssget "_+.:S:L" '((0 . "INSERT,*TEXT")))) (setq Block (ssname Block 0)) (setq NumText (if (and (eq (cdr (assoc 0(entget Block)))"INSERT") (setq Blk (member '(66 . 1)(entget...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 278374 Tên lệnh: ve | |||
Tác giả: phamthanhbinh Bài viết gốc: 280446 Tên lệnh: cpi |
[Nhờ chỉnh sửa] lisp copy text tăng dần
Hề hề hề,
Không can thiệp nội dung (defun c:CPI (/ Block ent Numtext Blk Symbol sym ans pt1 pt2 gr code data NewObj end) ;;; pBe 23 June 2012 ;;; ;;;http://forums.autode.../3507198/page/2 ;;; (setvar 'cmdecho 0) (prompt "\rSelect Block/Text:") (cond ((and (setq Block (ssget "_+.:S:L" '((0 . "INSERT,*TEXT")))) (setq Block (ssname Block 0)) (setq NumText (if (and (eq (cdr (assoc 0(entget...
| ||
Tác giả: thienha.haui Bài viết gốc: 280744 Tên lệnh: test |
Nhờ viết lisp chèn text số lượng lớn vào tâm đối tượng.
Trong trường hợp này nên dùng FIELD (defun c:test(/ ss tmau mid p1 p2) (setq i -1) (if (setq ss (ssget '((0 . "*LINE")))) (progn (setq tmau (vla-copy (vlax-ename->vla-object (car (entsel "Chon Text mau :"))))) (vlax-for e (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-getboundingbox e 'p1 'p2) (vla-move (setq tmau (vla-copy tmau)) (vla-get-insertionpoint tmau) ...
| ||
Tác giả: hiepttr Bài viết gốc: 281108 Tên lệnh: tgll |
[Nhờ chỉnh sửa] Lisp tính tổng pline ed vào đuôi text
Là "tân binh" nên tạm sửa cho bạn thế này :D :D :D Có gì thì từ từ sửa tiếp p/s: Chữ "L" trong text của bạn phải luôn là chữ in hoa đó, tạm thế đã ;; free lisp from cadviet.com ;;;-------------------------------------------------------------------- (defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))) ;;;-------------------------------------------------------------------- (defun...
| ||
Tác giả: vantuan18nd Bài viết gốc: 281151 Tên lệnh: h1 |
[NHỜ CHỈNH SỬA] lisp tính cao độ (cho kết quả sai khi số ở dạng 0,00)
http://www.cadviet.com/upfiles/3/103675_tinh_cao_do__h1.lspNhờ các Member của Cadviet.com giúp mình Lisp tính cao độ
| ||
Tác giả: trumlenmang Bài viết gốc: 280773 Tên lệnh: slop |
Giúp hoàn thiện lisp tính độ dốc nước thoát
Chào các bác! Em mới tập tành viết lisp được mấy hôm nay. Nền tảng em chưa vững nên còn nhiều lỗi mong các bác thông cảm. Nhờ bác nào giúp em vấn đề này với. Cái lisp em viết xong chạy thì tạm ổn theo ý tưởng của em rồi. Nhưng kết thúc lệnh kết quả không hiện ở cuối cùng mà là hiện dòng Command:. Mong các bác giúp đỡ. Lisp của em đây: (princ "\nslop-Copyright by...
| ||
Tác giả: haduythanh Bài viết gốc: 281287 Tên lệnh: 4p |
Group các đối tượng bằng lisp
Không có N++ code chả quen tí nào ^^ Sửa cho bạn đây :
(Defun c:4p (/ point_1 point_2 point_3 point_4 e ss) (or *i* (setq *i* 1)) (setq e (entlast) ss (ssadd)) (setq point_1 (getpoint "\nCho diem thu nhat :")) (setq point_2 (getpoint point_1 "\nCho diem thu 2 :")) (setq point_3 (getpoint point_2 "\nCho diem thu 2 :")) (setq point_4 (getpoint point_3 "\nCho diem thu 2 :")) (command "line" "_non" point_1 "_non"...
| ||
Tác giả: namnhim Bài viết gốc: 281312 Tên lệnh: per |
Nhờ viết lisp vẽ đường thẳng vuông góc với Pline
| ||
Tác giả: tientracdia Bài viết gốc: 228349 Tên lệnh: swb |
Hỏi về Lisp (thuật toán, ý tưởng, coding,...)
Mình có sưu tầm lisp trên Cadviet là SWB_1 : Copy đối đượng trong vùng ( Hình chữ nhật ) Làm thế nào sao khi lisp chọn các đối tượng đó xong, Lisp copy , save as đặt tên mới trong cùng thư mục file chọn để copy trước đó. File lisp : (defun c:SWB (/ ov vl bit ss cur ssInside ssOutside ssN ssT ssAll curT plSet) ;SWB -> Sellect With Boundary (defun *error* (msg) ...
| ||
Tác giả: conghoa Bài viết gốc: 279886 Tên lệnh: oo |
Chỉnh sửa lisp offset
;/Day la lenh OFFSET dac biet, sau khi OFFSET xong tu dong doi sang lop hien hanh. ;*********** (defun C:OO (/ lay lt os msg1 p1 msg2) (setq os (getvar "Osmode") lt (getvar "celtype") lay (getvar "Clayer") msg1 (getreal "\nVao khoang cach offset: ") kc (if msg1 msg1 kc) msg2 (strcat "Chon vat the muon offset:*" (rtos kc) "*") );het setq (setvar "OSMODE" 512) (setq p1...
| ||
Tác giả: quansla Bài viết gốc: 268483 Tên lệnh: thu22 |
Có cách nào ẩn block or biến block thành layer để ẩn đi không?
Dùng lisp được không bạn. Với cad đời cao có thể dùng Code này, với Cad đời thấp chưa có hàm, lệnh ẩn hiện đối tượng thì cm lại mình cóp nhặt topic khác về sửa lại cho, cái này là tận dùng hàm có sẵn trong Cad 2012 (defun c:thu22(/ ls x fl ) (vl-load-com) (setq ls(mapcar '(lambda(x) (assoc 2 (entget x))) (acet-ss-to-list(ssget '((0 . "INsert")))))) ;(setq ss (ssget (list (append...
|
Trang 151/330