Info | File | ||
Tác giả: KangKung Bài viết gốc: 230616 Tên lệnh: kk |
Thay đổi máy in hàng loạt cho tất cả layout?
Lisp thay đổi máy in cho tất cả các Layout đây: Chú ý: 1. Khi chọn máy in thì chọn số tương ứng với máy in đó. VD: Chọn 1 hoặc 2 , 3, 4 ... 2. Nhập khổ giấy phải đúng tên của khổ giấy trong máy in đó. VD: cùng là khổ giấy A0 nhưng có máy là A0 nhưng có máy lại là ISO A0. ;========LISP THAY DOI PLOTTER CHO TAT CA LAYOUT=========== ;================KANGKUNG...
| ||
Tác giả: Tue_NV Bài viết gốc: 77939 Tên lệnh: tdt |
Viết lisp theo yêu cầu [phần 2]
Bạn thử cái này xem : Tue_NV ghi toạ độ trọng tâm tại trọng tâm luôn
| ||
Tác giả: Tue_NV Bài viết gốc: 78482 Tên lệnh: ltruc |
Viết lisp theo yêu cầu [phần 2]
Phù. Cuối cùng cũng hoàn thành Lisp bố trí cột vào lưới 'Trần Diệu Nhân' thử nhé Chức năng download Lisp file của diễn đàn đôi lúc bị lỗi. Nếu sử dụng chức năng này không được bạn nhấn nút Reply bài viết của Tue_NV (không sót nhé) về chạy là được
| ||
Tác giả: thiep Bài viết gốc: 80037 Tên lệnh: nsmc |
Viết lisp theo yêu cầu [phần 2]
Chào dkkx3a, lâu lâu Thiep cũng tranh thủ lúc rảnh rỗi viết 1 cái lisp giúp anh em cho vui. Lisp này không kén đường mặt cắt của bạn là gì, có thể là SPLINE, LWPOLYLINE, POLYLINE, ARC, thậm chí là các đường cong kín ... gọi chung CURVẸ. Lisp yêu cầu user pick CURVẸ đường mặt cắt thứ I, pick CURVẸ đường mặt cắt thứ II, đưa vào tỷ lệ vị trí mặt cắt cần nội suy: giả sử khoảng cách...
| ||
Tác giả: dkkx3a Bài viết gốc: 80630 Tên lệnh: 2 |
Viết lisp theo yêu cầu [phần 2]
Xin cảm ơn Bác Tuệ đã góp ý. Mình viết lại LISP cho bạn thế này: Có gì chưa đúng bạn cứ Post lên.
| ||
Tác giả: KangKung Bài viết gốc: 230637 Tên lệnh: kk |
[ Yêu cầu ] Xuất điểm theo Block thuộc tính qui định bởi tên
Lisp mới đây bạn ơi. Chức năng như cũ + đưa thêm điểm chi tiết lên bản vẽ. Nhớ copy cái File này vào Support nhé: http://www.cadviet.com/upfiles/3/71162_point_1.dwg ;========LISP DUA DIEM KHONG CHE + DIEM CHI TIET LEN BAN VE========= ;=======================KANGKUNG 03/04/2013========================= (defun C:KK() (command "UNDO" "BE") (setq...
| ||
Tác giả: namnhim Bài viết gốc: 189509 Tên lệnh: %3Cspan+clas |
Cho mình hỏi cách cài đặt khung, Layer, dim, text sẵn trong cad khi khởi động là có luôn
tôi có 1 đoạn lisp này có thể bạn dùng được: =================================== TAO CAC LOAI KHUNG MAU BAN VE CO SAN: =================================== (defun C:KHUNG (/ ) (command "cmdecho" 0) (command "osnap" "none") (setq DIEMCHEN (getpoint "CHON GOC TRAI-DUOI BAN VE")) (chenkhungCG DIEMCHEN) ;VE CAC KHUNG TY LE CHUAN DE DINH HUONG (setq MSTL (getreal "\nCHON...
| ||
Tác giả: quansla Bài viết gốc: 215720 Tên lệnh: veline |
làm sao biết người dùng kết thúc lệnh dimcontinue
Bạn dùng điều kiện vòng lặp while cũng được, ví dụ như (while (setq p (getpoint p1 "\Toa do diem 2"))....(command "Dimcontinue" p1 p2)(setq p1 p2)).. Ví dụ như (defun c:veline (/ p1 p2) (setq p1 nil p2 nil ) (setq p1 (getpoint "\nNhap toa do diem dau")) (while (setq p2 (getpoint p1 "\nNhap diem tiep theo")) (entmake (list (cons 0...
| ||
Tác giả: namnhim Bài viết gốc: 230698 Tên lệnh: td5 |
[Yêu cầu] nhờ sửa thêm phần gọi Block text và cho nó song song đoạn thẳng
các bác ơi cho em hỏi 1 tí, nếu dùng cái lisp này muốn cho thêm đoạn gọi 1 Mtext được tạo sẵn trong support để: - khi gõ lệnh => chọn đoạn thẳng => chọn điểm đầu và điểm cuối => hiện lên cái Mtext mẫu có sẵn đó song song với đoạn thẳng và lúc đó ta có thể sửa tên đường tùy ý được không các bác nhỉ?
(DEFUN C:TD5(/ cnt enam ent pnt...
| ||
Tác giả: tientracdia Bài viết gốc: 229659 Tên lệnh: xtsn | |||
Tác giả: Nguyen Hoanh Bài viết gốc: 4308 Tên lệnh: cvt cvtrim cvtl |
Viết Lisp theo yêu cầu
Có 3 lệnh dưới đây đáp ứng được 3 yêu cầu của bạn: 1. lệnh CVT: vẽ tường cân từ một line hoặc pline. Đầu vào: đối tượng (poly)line, chiều dày tường. 2. lệnh CVTL: vẽ tường lệch từ một line hoặc pline và bề dày. Đầu vào: đối tượng (poly)line, phía offset, khoảng cách offset, chiều dày tường. 3. lệnh CVTRIM: cắt bỏ đoạn line giao nhau giữa 2 tường. Đầu vào:...
| ||
Tác giả: KangKung Bài viết gốc: 230817 Tên lệnh: kk |
[ yêu cầu ] Lisp up nội dung từ Excel vào Cad
Lisp mới đây. Tuy nhiên cách bạn đang làm việc hơi thiếu khoa học, làm lấy được chứ chưa có phương pháp tối ưu. Nếu quản lý đối tượng bằng block thuộc tính thì cách nhập số liệu đơn giản hơn nhiều. Lần đầu bạn muốn nhập số liệu với 4 cột, lần này là 6 cột, lần thứ n thì bao nhiêu? Tất cả điều này được giải quyết dễ dàng và đơn giản bằng cách sử dụng block thuộc...
| ||
Tác giả: KangKung Bài viết gốc: 230828 Tên lệnh: kk |
[ yêu cầu ] Lisp up nội dung từ Excel vào Cad
Lisp mới đây. Trước khi chạy bạn Copy cái này vào Support: http://www.cadviet.com/upfiles/3/71162_block_tientracdia.dwg (Chú ý: sau khi download về thì đổi tên File thành BLOCK_TIENTRACDIA.dwg) Sau khi chạy Lisp thì số liệu sẽ là Block thuộc tính. Dùng Lisp ở #11 để xuất ngược lại sang TXT. Nếu muốn số liệu trên bản...
| ||
Tác giả: ThuyLinh313 Bài viết gốc: 230746 Tên lệnh: cf |
Cải tạo các lệnh cơ bản của cad
Nếu bạn lười đến mức ngại với con chuột lên góc màn hình để đóng bản vẽ thì lisp dưới đây sẽ giúp bạn thay thế công việc "nặng nhọc" đó bằng 1 lệnh tắt. (defun C:CF () ; Close file (if (= (rem (getvar "dbmod") 2) 0) (command "close" "y") (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "close "))) Mình nói thế cho vui thôi, lisp này mục đích để cải...
| ||
Tác giả: Mọt Sách Bài viết gốc: 225256 Tên lệnh: bh |
Gọi lisp bằng VBA
Em có code tạo menu bằng VBA như sau: Sub TaoMenu() Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) Dim newMenu As AcadPopupMenu On Error Resume Next Set newMenu = currMenuGroup.Menus.Add("My Program") If Err <> 0 Then Set newMenu = currMenuGroup.Menus("My Program") Dim menuEnt As AcadPopupMenuItem For Each menuEnt In...
| ||
Tác giả: Nguyen Hoanh Bài viết gốc: 15767 Tên lệnh: pgp2 |
cánh lưu lại các phím tắt AutoCAD
bạn dùng lệnh pgp2lsp sau đây để convert file pgp hiện hành của bạn thành 1 file lisp. Sau đó copy file lisp này sang máy khác rồi appload lên rồi dùng.
| ||
Tác giả: 790312 Bài viết gốc: 126032 Tên lệnh: is |
Viết lisp theo yêu cầu [phần 2]
E thấy trên diễn đàn có 1 lisp vẽ thép hình I,khi vẽ lần đầu thì rất tốt nhưng khi vẽ lần 2 thì bị lỗi.Mong các bác xem và sửa lại giùm.Thanks.
| ||
Tác giả: phamthanhbinh Bài viết gốc: 230761 Tên lệnh: brang |
xin các anh lisp bộ truyền bánh răng trụ răng thẳng!
Hề hề hề, Cái ni có giống không hè???
(defun c:brang ( / echo oldos ort p1 m z gak goc R x y toado e1 e3 e4 e5 e6 e7 e8 e9 e10 e0 p0 p1 p2)
(vl-load-com)
(princ "\n DAY LA CHUONG TRINH VE BANH RANG THAN KHAI RANG THANG THEO Z & M")
(setq echo (getvar...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 230909 Tên lệnh: brang |
xin các anh lisp bộ truyền bánh răng trụ răng thẳng!
Hề hề hề, Sau khi mày mò, mình tìm ra giải pháp gỡ bí cho cái lệnh fillet bằng cách xài trực tiếp trên cad để khắc phục việc fillet nhầm. Tuy nhiên người sử dụng cần lưu ý khi chọn các đối tượng để fillet phải chọn tại vị...
| ||
Tác giả: duy782006 Bài viết gốc: 4054 Tên lệnh: ve0 |
Viết Lisp theo yêu cầu
Có cái này hôm trước thấy trên diễn đàn này nhưng bây giờ ko nhớ chổ để chỉ cho bác. Mạn phép tác giả tôi đưa lại lên cho bác dùng. Lệnh là VE0 (về không) nhớ là số 0 chứ không phải chử 0. Còn vì sao mà cao độ không bằng nhau thì thường do các bác địa hình. Bản vẽ của các bác ấy có cao độ theo địa hình. Rồi anh em mình nhiều lấn sao chép. bắt...
|
Trang 124/330