Info | File | ||
Tác giả: Thaistreetz Bài viết gốc: 197609 Tên lệnh: wr |
- Lệnh Bật/Tắt wipeout thay cho lệnh của cad
Trong các bản cad2013+ thì wipeout đã được tích hợp vào cad như 1 đối tượng chính thức của cad chứ không fải được tải vào thông qua 1 arx ngoài nữa. đối tượng wipeout cũng được thêm 1 trạng thái chỉ hiện chứ không in ra: "Display but not plot" so với các bản cad trước chỉ có 2 trạng thái On và Off Việc điều khiển trạng thái của đối tương wipeout từ fiên bản này được...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 197699 Tên lệnh: ha |
Thêm dòng lệnh vào Lisp tính tổng chiều dài Line, Pline ???
Đây bạn: Lisp tính tổng chiều dài các đối tượng trong 1 curve kín. @Ketxu: Chỉ biết cách vi phân curve thôi (như đã có trong lisp này). Và mức độ chính xác tuỳ thuộc khoảng cách vi phân. Không biết Ket có cách hay hơn không? P/S: đã sửa lại highlight cho dễ nhìn hơn grip.
| ||
Tác giả: dovananh.xd Bài viết gốc: 197754 Tên lệnh: t2u |
chuyển bảng mã từ TCVN3 sang UNICODE
Chính là cái lisp này nè anh: http://www.cadviet.com/upfiles/3/89140_nghia_1.lsp
| ||
Tác giả: phamthanhbinh Bài viết gốc: 197631 Tên lệnh: tton |
viết lisp tính chiều dài đường ống nước
Hề hề hề. Do máy của minh đang bị trục trặc nên chưa thể giúp bạn ngay. Để tối nay mình sẽ làm thử bạn nhé. Hy vọng sẽ có bác khác giải quyết giúp bạn sớm hơn. Hề hề hề, Bạn thử dùng cái này xem đã đúng ý bạn chưa nhé. Nếu cần thay đổi gì thì hãy post lên: Chúc bạn vui.
| ||
Tác giả: bach1212 Bài viết gốc: 197760 Tên lệnh: tcal |
LISP cộng têxt toàn bộ bản vẽ thêm 1 hằng sô
Thêm 1 chú nữa: ;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=37567 ;;----------------------------------------------;; ;; Text calculation tool - Skywings ;; ;;----------------------------------------------;; ;;***SUB-FUNCTION*** (defun GET-TEXT () (princ "\nSelect NUMBERs : ") (while (null (setq Numbers (ssget '((0 . "*TEXT")))))
| ||
Tác giả: Doan Van Ha Bài viết gốc: 197806 Tên lệnh: hat2u hau2t |
chuyển bảng mã từ TCVN3 sang UNICODE
LIsp này dùng để: Chuyển text trên bản vẽ, từ TCVN3 => UNICODE, và ngược lại, từ UNICODE => TCVN3.
| ||
Tác giả: dunguss3581 Bài viết gốc: 197787 Tên lệnh: btd | |||
Tác giả: almodeus Bài viết gốc: 130536 Tên lệnh: boj |
[Yêu cầu] Cắt đường thẳng tại điểm giao
trên diễn đàn mình có thấy có một lisp Break tại một điểm....lisp như sau: (defun c:bf (/ dt diem) (setq dt (car (entsel "\nVao doi tuong can chat"))) (if dt (progn (redraw dt 3) (setq diem (getpoint "\nVao diem chat: ")) (redraw dt 4) ) ) (if (and dt diem) (command ".break" dt diem diem) ) ) Các bạn có thể nâng...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 197960 Tên lệnh: ha |
[Yêu cầu]Lisp lấy text gần block
Đây bạn! Tôi mới test sơ sơ. Bạn test kỹ xem nhé!
| ||
Tác giả: kedensau88 Bài viết gốc: 184626 Tên lệnh: e45 |
Cách lấy số liệu từ file txt
Các anh ơi cho em hỏi,em có 1 chương trình vẽ Elbowls45 như thế này : (defun DCL ( lstType / fl ret dcl_id Return# ) (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 = \"Elbowls\";" " : boxed_column { label = \"Chon loai...
| ||
Tác giả: kedensau88 Bài viết gốc: 197897 Tên lệnh: wn |
Cách lấy số 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ả: kedensau88 Bài viết gốc: 184780 Tên lệnh: e45 e90 e180 |
Cách lấy số liệu từ file txt
Bước 1,2 của em làm như thế này đúng chưa anh (defun DCL ( lstType / fl ret dcl_id Return# ) (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 {...
| ||
Tác giả: Snowman Bài viết gốc: 63321 Tên lệnh: slb |
Viết Lisp theo yêu cầu
Xin fép tác giả, em cải biên đoạn lisp này đi một chút (nhân tiện có việc cần dùng đến Em có một cái trích xuất cả bảng dữ liệu sang excel nhưng chỉ tiện cho việc trình bày, ko tiện thống kê khối lượng) (Cái codebox này vẫn chưa bỏ được lỗi emotion nhỉ paste code vào mà ko để...
| ||
Tác giả: tuan138 Bài viết gốc: 198085 Tên lệnh: sd |
Lisp sắp xếp DIM
(defun c:sd () (defun ss2ent (ss / sodt index lstent) (setq sodt (cond (ss (sslength ss)) (t 0) ) index 0 ) (repeat sodt (setq ent (ssname ss index) index (1+ index) lstent (cons ent lstent) ) ) (reverse lstent) ) (defun hoanh_newerror (msg) (if (and (/= msg "Function cancelled") (/= msg "quit / exit abort")
| ||
Tác giả: q288 Bài viết gốc: 56891 Tên lệnh: chk |
Bắt text vào polyline
Mình có viết ct này cho yêu cầu của bạn, hy vọng sẹ chạy tốt. Tên lệnh chk. Khi điểm chèn của text ko nẳm trên pline hoặc độ nghiêng text chênh với độ nghiêng pline quá 10 độ thì sẽ báo lỗi bằng poỉnt.
| ||
Tác giả: Doan Van Ha Bài viết gốc: 198103 Tên lệnh: sd |
Lisp sắp xếp DIM
Hơi vất vả khi phải sửa lisp bị lỗi vì những ký tự đặc biệt (chứ bản chất lisp không lỗi). Đây, bạn xem:
| ||
Tác giả: TRUNGNGAMY Bài viết gốc: 72190 Tên lệnh: vetd |
nối điểm lại theo kiểu polyline
Mình làm một ví dụ điển hình giúp bạn. Dữ liệu tọa độ là một file text, x và y cách nhau khoảng trắng
| ||
Tác giả: Thaistreetz Bài viết gốc: 198112 Tên lệnh: tmk |
- Lisp thay thế lệnh textmask của Express tool
Lệnh Textmask của express tool "hơi bị ngu". Nó sẽ xử đẹp đối tượng text nếu text của bạn là Annotative text. (Hoặc có thể mình ngu vì kiếm hoài không ra chỗ để thiết lập cho nó chạy suôn sẻ với Annotative text.) Thế nên mình viết lại lệnh này để có thể dùng với cả text thường lẫn Annotative text. khỏi sợ vô tình text bay đâu mất. ;;; Textmask for Annotative Text - Copyright...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 198213 Tên lệnh: tkh | |||
Tác giả: Doan Van Ha Bài viết gốc: 198262 Tên lệnh: a2f |
cần giúp đỡ: LISP KHÔNG CHẠY
Lisp này của Lee Mac, bạn copy bị lỗi. Bản gốc đây:
|
Trang 88/330