Info | File | ||
Tác giả: NguyenNgocSon Bài viết gốc: 233798 Tên lệnh: dof |
Lệnh offset đặc biệt
(defun C:dof(/ lstDis obj) (setq lstDIS '(9 10 -15)) (while (setq obj (car (entsel "\nSelect object:"))) (foreach dis lstDIS (vla-offset (vlax-ename->vla-object obj) dis) ) ) (princ) ) Code này mình sưu tầm được nó cho phép Off như trên. Nhưng chưa hiện thị nhập giá trị từ bàn phím và xử lý có khoảng cách @
| ||
Tác giả: NguyenNgocSon Bài viết gốc: 233865 Tên lệnh: cop |
Lệnh offset đặc biệt
các ý 1,3 đã hiểu. Ý 2 chưa rõ lắm Mình code thử lại (defun C:cop() (vl-load-com) (setq str...
| ||
Tác giả: NguyenNgocSon Bài viết gốc: 233871 Tên lệnh: cop |
Lệnh offset đặc biệt
Cám ơn sự góp ý của mọi người. Mình đã thử thấy ok. Đang cố thêm nốt cái đoạn chọn hướng copy nữa là ok :) ;======================================================================= (defun C:cop() (vl-load-com) (setq str (getstring "\n Nh\U+1EADp bi\U+1EC3u th\U+1EE9c gi\U+00E1 tr\U+1ECB Offet <10,2@30,50,...>: ")) (setq ent (car (entsel "n \chon block")) p1 (cdr (assoc 10 (entget ent))) ...
| ||
Tác giả: gia_bach Bài viết gốc: 235634 Tên lệnh: cla |
Lisp chamber đường line và arc (cung tròn)
Phương châm của chúng tôi là "làm hài lòng mọi khách hàng khó tính nhất". Nhưng không phải "bấm 10 like"...
| ||
Tác giả: duy782006 Bài viết gốc: 235640 Tên lệnh: vhcn |
Lisp vẽ hình chữ nhật
Các bác cũng đã làm lisp mới rồi. Nhưng mình cũng sửa phát cho nó vui. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Tao moi rectang ;;;Cu phap su dung (duy:t_rectang toadoa toadob kieu tile Layer Color) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun duy:t_rectang (diema diemb dorong tl stl La Co) (setq toado (list diema (list (car diema) (cadr...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 235767 Tên lệnh: ha |
lisp vẽ mặt bằng kết cấu
Kết thúc lisp này ở đây, vì quá khó, quá mất công, và còn dành thời gian kiếm cơm nữa! File cad để test: http://www.cadviet.com/upfiles/3/67029_test2.dwg File hình để rửa mắt:
| ||
Tác giả: Doan Van Ha Bài viết gốc: 235806 Tên lệnh: ha |
[yêu cầu &thảo luận] lisp vẽ mặt bằng kết cấu
Sửa tất tần tật các yêu...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 235820 Tên lệnh: ha |
lisp vẽ mặt bằng kết cấu
1). Bổ sung đãng trí quên reverse osnap. 2). Bỏ mấy dòng đãng trí in ra trên screen. 3). Bổ sung xanh đỏ tím vàng lục lam cam chàm tím cho mỗi lần chọn theo y/c của bạn Tien05.
;Doan Van Ha - CADViet.com - Ngay 23/05/2013
;Chuc nang: ve luoi dam/tuong theo he truc // XOY, be rong tuy chon, luoi break bat ky nhung o ngoai cung phai la HCN.
(defun C:HA(/ ss lsti lst lstg1 giao lstg kcm ptx pty...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 235827 Tên lệnh: ha |
lisp vẽ mặt bằng kết cấu
1). Bổ sung đãng trí quên reverse osnap. 2). Bỏ mấy dòng đãng trí in ra trên screen. 3). Bổ...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 235867 Tên lệnh: hcn |
Code lisp như thế nào để hạn chế lỗi cho người dùng?
Chúng ta đang làm việc trên Cad, và chúng ta thấy Cad hầu như ít xãy ra lỗi. Vì sao thì chắc ai cũng biết. Chúng ta cũng thường sử dụng Lisp trên các forum, và chúng ta thấy ít Lisp viết ra mà không dính lỗi này lỗi nọ. Vì sao vậy? Vì đa số Lisp được viết chỉ để thỏa mãn nhu cầu trước mắt của người dùng, còn việc bẫy lỗi chưa được quan tâm thỏa đáng. Với hy vọng...
| ||
Tác giả: Tue_NV Bài viết gốc: 75348 Tên lệnh: vc |
Viết lisp theo yêu cầu [phần 2]
Cũng mạn phép bạn tivateo -> sửa lại code của bạn 1 tí nhé :
| ||
Tác giả: pucca Bài viết gốc: 76550 Tên lệnh: %2B |
Viết lisp theo yêu cầu [phần 2]
Chào các bạn. Mình đang có 2 lisp: tính tổng 1 loạt text rồi ghi sang 1 text và lisp ánh xạ 1 text sang text khác để tự động cập nhật theo. Giờ mình cần 1 lisp để tính tổng 1 loạt text field và tổng tự động cập nhật theo (sau khi REGEN) sau mỗi thay đổi của 1 trong các text field. Các bạn giúp mình kết hợp 2 lisp này được không. Cảm ơn nhiều
| ||
Tác giả: hochoaivandot Bài viết gốc: 236074 Tên lệnh: rdt |
Rải đối tượng theo đường dẫn Dynamic
Chức năng rải đối tượng theo đường dẫn thì có nhiều cách, nhiều lisp. Lisp của bác Duy thì có nhiều chứng năng, đáp ứng đầy đủ yêu cầu người dùng. hochoaivandot xin post thêm 1 lisp nữa. Lisp này chỉ được cái là nó Dynamic nên vui vui mắt thôi. Mình không theo dõi diễn đàn nhiều sợ đã có người post lisp như thế này rồi. Nếu trùng lặp thì các mod xoá topic giúp nhé.
| ||
Tác giả: Doan Van Ha Bài viết gốc: 236083 Tên lệnh: ha |
Lisp đổi tên hàng loạt Layouts!
Lisp đổi tên tất cả layout thành các số nguyên từ 1 đến n.
;Doan Van Ha - CADViet.com - Ngay 25/5/2013
;Chuc nang: Thay doi ten tat ca layout, tu 1->2->3...n
(defun C:HA ( / i)
(setq i 0)
(vlax-for obj (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (not (eq (vla-get-name obj) "Model")) (vla-put-name obj (itoa (setq i (1+ i)))))
...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 236067 Tên lệnh: ha |
lisp vẽ mặt bằng kết cấu
1). Bạn kiểm tra và xoá 1 line trùng trong hình của bạn đi nhé. 2). Mình bổ sung thêm tí xíu cho lisp chạy nhanh hơn. Mình không ngờ khi zoom bé thì lisp chạy cực chậm như bản vẽ của bạn.
;Doan Van Ha - CADViet.com - Ngay 25/05/2013
;Chuc nang: ve luoi dam/tuong theo he truc // XOY, be rong tuy chon, luoi break bat ky nhung o ngoai cung phai la HCN.
(defun C:HA(/ ss lsti lst lstg1 giao lstg...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 236119 Tên lệnh: ha |
Lisp đổi tên hàng loạt Layouts!
Sửa lại 2 lỗi trên đây!
(defun C:HA(/ acdoc aclay actab i)
(vl-load-com)
(setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))
actab (strcase (getvar 'CTAB)))
(vlax-for l (vla-get-layouts acdoc)
(if (not (eq actab (strcase (vla-get-name l))))
(setq aclay (cons (cons (vla-get-name l) l) aclay))))
(setq aclay (vl-sort aclay (function (lambda(a b)...
| ||
Tác giả: nataca Bài viết gốc: 236126 Tên lệnh: trt |
Lệnh Trim CAD đặc biệt- làm thế nào để ấn phần dài cắt phần ngắn?
Có phải ý bạn là thế này?
(defun C:TRT (/ DTCAT ENT P P1 P2 PG ENT1 LENT PD) ;;;Trim Trai chieu (prompt "\nChon doi tuong cat") (setq dtcat (ssget)) (prompt "\nChon doi tuong bi cat") (setq p (getpoint) Lent (C_S2L (ssget "C" p (getcorner p))) ) (foreach ent Lent (setq pg (car (INTS_2ENT (ssname dtcat 0) ent))) (if (eq (DXF 0 ent)...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 236232 Tên lệnh: ha |
Lệnh Trim mở rộng
Xuất phát từ nhu cầu Trim cần có nhiều lựa chọn hơn nữa so với lệnh Trim gốc của Cad, tôi viết lisp này để phục vụ bà con lối xóm. Trên forum đã có vài topic nói về Trim mở rộng, nhưng theo những nhu cầu khác nhau, nằm lẻ tẻ, và hầu như cũng chưa hoàn thiện lắm. Lệnh Trim mở rộng này có 3 tùy chọn: Trim theo từng phía + Trim đoạn ngắn + Trim đoạn dài. Đối tượng Trim:...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 53683 Tên lệnh: nl |
Viết Lisp theo yêu cầu
Chào bạn ngocthinh84, Nếu chỉ để xóa các đường line đó thì đơn giản, nhưng việc vẽ lại các đường line đó mới làm mình đau đầu do các line của bạn sắp xếp lung tung quá, không theo quy luật gì. Việc nối các line thì chỉ có thể chuyển thành pline mới nối được bạn ạ. Nếu bạn chấp nhận vẽ lại các đường đó bằng tay thì cái líp xóa các line đó đây bạn ạ.
| ||
Tác giả: gia_bach Bài viết gốc: 236205 Tên lệnh: cut |
Lệnh Trim CAD đặc biệt- làm thế nào để ấn phần dài cắt phần ngắn?
Hy vọng Lisp này đáp ứng được yêu cầu của "em" Hoằn. (Chỉ sử dụng với Line và Arc) (defun C:cut(/ ent...
|
Trang 131/330