Info | File | ||
Tác giả: ketxu Bài viết gốc: 201011 Tên lệnh: 1 |
gộp giúp em lisp lệnh bật, tắt Layer với
(defun c:1() (if *n (c:layoff)(c:layon)) (setq *n (not *n)) )
| ||
Tác giả: Doan Van Ha Bài viết gốc: 201118 Tên lệnh: ha |
Lisp chọn tất cả các đối tượng thuộc 1 layer !
Tôi nhớ đã viết cái này 1 lần cho ai đó, nhưng giờ tìm không ra nên đành viết lại cho bạn.
| ||
Tác giả: ketxu Bài viết gốc: 201129 Tên lệnh: ha1 |
đo khoảng cách bằng chỉ bằng 1 lần rê chuột
Quick Modify. ;Cho phep chon tat ca *LINE va *TEXT chi 1 lan. ;Chu y khi chon doi tuong: so *LINE thang dung nhieu hon so *TEXT la 1 doi tuong.Lay khoang cach bang hieu toa do x ;Neu co line nghieng nen chuyen qua vlax-closetpoint (defun C:HA1( / ss lstLine lstText z dxf ss->list Compare kc) (princ "\nChon cac doi tuong *LINE va *TEXT...") (setq ss (ssget '((0 . "*LINE,*TEXT"))) dxf (lambda(id en)(cdr (assoc id (entget...
| ||
Tác giả: ketxu Bài viết gốc: 126090 Tên lệnh: tkt |
Lỗi : Marco này là sao nhỉ...
Á,mình nhận 1 file thế này (đã lược đi r),mở file báo có kèm theo marco -> mình Do not load nhé File Loi Text không chọn được. Sửa thì có khá nhiều cách củ chuối để sửa, thậm chí đơn giản là xóa bảng thống kê text của bác giabach bên cạnh đi, thoát ra và vào lại ^^ - Vấn...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 201218 Tên lệnh: ha |
Nhờ viết lisp chọn nhanh text cùng nội dung
Lisp chọn text thuộc tập số nguyên Z.
| ||
Tác giả: Doan Van Ha Bài viết gốc: 201394 Tên lệnh: lv |
vẽ line có đoạn cong để vòng qua line khác
Hàm while của bác không có đặt điều kiện, nên nó cứ lặp cho đến cả khi bác enter. Mà khi đã enter thì bị lỗi => không undo 1 phát được. Trong trường hợp bị lỗi, muốn u 1 phát thì phải thêm bước: undo => end, sau đó mới u được. Tạm sửa theo code của bác thì như vầy chắc ổn.
| ||
Tác giả: mathan Bài viết gốc: 201445 Tên lệnh: kb ccd |
Tìm lisp xuất cao độ ra text có sẵn
Hơi dài dòng nhưng mong vừa ý bạn Code lisp free từ CADViet.com mình chỉ sửa lại ít thôi ;;;----------------------------------------- (defun CheckObj(e MyType) (equal (cdr (assoc 0 (entget e))) MyType)) ;;;----------------------------------------- (defun FilObj(ss1 MyType / ss2 i e) (setq ss2 (ssadd) i 0) (repeat (sslength ss1) (setq e (ssname ss1 i) i (1+ i)) (if (CheckObj e MyType) (ssadd e ss2) )
| ||
Tác giả: mathan Bài viết gốc: 201510 Tên lệnh: kb ccd |
xin lisp ghi cao độ
Trên diễn đàn hẳn có rất nhiều LISP na ná như bạn mong muốn Ví dụ như LISP đánh cốt tự động của bác Nguyen Hoanh http://www.cadviet.c...p?showtopic=152 Hoặc bạn có thể dùng thử đồ chơi của mình ;;; Free lisp code from CADViet.com (defun CheckObj(e MyType) (equal (cdr (assoc 0 (entget e))) MyType)) ;;;----------------------------------------- (defun FilObj(ss1 MyType / ss2 i e) (setq ss2...
| ||
Tác giả: ketxu Bài viết gốc: 201543 Tên lệnh: test |
Nhờ viết lisp xóa tất cả các đối tượng được chọn trừ số nguyên
Ô lại là ... => Đã từng viết yêu cầu Sai quy tắc đặt tên + Đã từng viết yêu cầu = Vi phạm => Move (defun c:test()(command "erase" (ssget (list (cons -4 "<NOT") (cons 1 "~**")(cons -4 "NOT>"))) ""))
| ||
Tác giả: whatcholingon Bài viết gốc: 201571 Tên lệnh: td1 |
Trích tọa độ trong cad
Để ghi tọa độ ra màn hình bạn dùng LSP này (Hình như của Mr Thai) ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=12225 ;GHI TOA DO CAC DIEM VA THONG KE THANH BANG ---------------------------------------------- (defun C:td1 (/ diem PT1 PT2 PT3 tapx tapy x y xx yy h n di kc C PT PTX PTY PTD PTC N p1 p2 p3 p4 p11 p22 p33 L1 L2 L11 L22)
| ||
Tác giả: mathan Bài viết gốc: 201503 Tên lệnh: ha |
Lisp chọn đối tượng theo màu
Lisp như thế trên diễn đàn có rồi bạn ah Ví dụ như bài của bác DOAN VAN HA (defun c:ha () (setq ss (ssget (list (assoc 62 (entget (car (entsel "\nDoi tuong mau :")))))))) Còn nếu bạn muốn nhập màu (chứ không phải chọn đối tượng mẫu) Bạn dùng thử (defun c:mau ( / chonmau ss ) (setq chonmau (getint "\nChon mau doi tuong (so nguyen): ")) (setq ss (ssget (list...
| ||
Tác giả: ketxu Bài viết gốc: 108783 Tên lệnh: 0 | |||
Tác giả: Doan Van Ha Bài viết gốc: 201591 Tên lệnh: ha | |||
Tác giả: mathan Bài viết gốc: 201615 Tên lệnh: kb ccd |
xin lisp ghi cao độ
Mình đã sửa lại một chút cho thuận tiện hơn Bạn dùng thử nhé ;;;-----Free lisp code from CADViet.com - Edited by Mathan - From VECC (defun CheckObj(e MyType) (equal (cdr (assoc 0 (entget e))) MyType)) ;;;----------------------------------------- (defun FilObj(ss1 MyType / ss2 i e) (setq ss2 (ssadd) i 0) (repeat (sslength ss1) (setq e (ssname ss1 i) i (1+ i)) (if (CheckObj e MyType) (ssadd e ss2) )
| ||
Tác giả: Doan Van Ha Bài viết gốc: 201591 Tên lệnh: ha1 | |||
Tác giả: gia_bach Bài viết gốc: 77674 Tên lệnh: mat |
Lisp MATTEXT bị lỗi ???
Lisp Match Text : đối tượng đích sẽ có giá trị (hay chiều dài) của đối tượng nguồn - đối tượng nguồn : TEXT, MTEXT, DIMENSION, MULTILEADER, ATTDEF, ATTRIB, LINE, PLINE, ARC, CIRCLE, ELLIPSE + với đối tượng TEXT, MTEXT, DIMENSION, MULTILEADER, ATTDEF, ATTRIB : lấy giá trị Text của đối tượng nguồn + với đối tượng LINE, PLINE, ARC, CIRCLE, ELLIPSE : lấy chiều dài của đối tượng nguồn (làm...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 201882 Tên lệnh: tt c |
hỏi cách lưu lệnh tắt
Chắc kiểu như thế này chăng? Chú ý: không nên đặt tên lệnh tắt trùng tên lệnh tắt khác của cad. Nếu cứ muốn như vậy thì lệnh tắt bị trùng phải được đặt bằng tên khác nữa...
| ||
Tác giả: ketxu Bài viết gốc: 201895 Tên lệnh: xrefnopath |
Chuyển xref thành no path
(defun c:xrefnopath (/ xrefName ) ;@ketxu 4/6 (vl-load-com) (vlax-for x (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) (cond ((and (vlax-property-available-p x 'isxref) (eq (vla-get-IsXref x) :vlax-true) ) (vla-put-path x (strcat (vl-filename-base (setq xrefName (vla-get-Path x))) (vl-filename-extension xrefName) ) ) (vla-reload x) ) )
| ||
Tác giả: Tue_NV Bài viết gốc: 83413 Tên lệnh: fr |
Viết lisp theo yêu cầu [phần 2]
Cái này bạn Nhập Bán kính bo có 1 lần rồi sử dụng cho các lần sau mà. Nếu bạn thích thì đây :
| ||
Tác giả: hoa35ktxd Bài viết gốc: 91691 Tên lệnh: changealltext |
Trang 92/330