Info | File | ||
Tác giả: phamthanhbinh Bài viết gốc: 109812 Tên lệnh: tktxt |
Viết lisp theo yêu cầu [phần 2]
Chào bạn Truongthanh, Có phải bạn cần như thế này không???? Bạn lưu ý như sau: 1/- Lisp này viết dựa trên cái file bạn gửi. Do vậy nếu bạn dùng các định dạng khác của text thì nó sẽ không chịu trách nhiệm đâu nhé. (ví dụ bạn sử dụng mtext thì nó sẽ không lọc được đối tượng, bạn sử dụng cách nhập ký tự "phi" khác nó cũng sẽ không biết để nhận...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 109969 Tên lệnh: tktxt |
Viết lisp theo yêu cầu [phần 2]
Chào bạn Truongthanh, Lisp này mình bổ sung phần tạo bảng thống kê theo mẫu bạn đã gửi. Tuy nhiên phần bổ sung cho các kích thước có tới 4 chữ số thì mình chưa nghĩ ra giải pháp hữu hiệu vì muốn nó tổng quát hơn. Định mót của bác Tue_NV nhưng bác ấy xài file .fas nên mình bó tay luôn. Bạn chờ thêm chút để mình ngâm cứu thêm nha. Trong lúc chờ đợi, bạn dùng thử...
| ||
Tác giả: tien2005 Bài viết gốc: 210793 Tên lệnh: kt2 |
[Nhờ chỉnh sửa]: Lisp ghi kích thước
Thật sự không biết các đối tượng Bạn cần dim là pline hở, đa giác lồi lỏm , ... nên xác định hướng đặt dim theo point rất khó. Do đó hướng giải quyết đơn giản và dễ làm là đặt dim bên trái hay phải của đối tượng (theo thứ tự point tạo nên line pline), nếu bên trái chưa đúng thì có thể chọn bên phải :-) Và đây là code của TUE mình sửa lại . Bạn dùng tạm vậy
| ||
Tác giả: quansla Bài viết gốc: 210832 Tên lệnh: adtext |
Khoảng cách giữa hai dòng text khi dùng lệnh DT
Không biết bạn có câu trả lời chưa, theo mình biết khoảng cách này được tính từ điểm chèn của Text(mỗi text luôn có một điểm chèn +0 hoặc 1, 2 ,3 điểm căn chỉnh (Fit text) nữa) muốn biết tọa độ điểm này bạn dùng cú pháp lệnh list sau copy dán trực tiếp vào dòng lệnh(command) (cdr(assoc 10 (entget(car(entsel"Chon Text muon tim diem chen"))))) với...
| ||
Tác giả: Tue_NV Bài viết gốc: 210926 Tên lệnh: tt |
[Yêu cầu]Lisp vẽ đoạn thẳng có điều kiện?
1/Nếu vẽ đoạn thẳng với 2 giá trị:giá trị đầu chia 6 giá trị sau giữ nguyên thì không được. Rep: Bạn enter thì đoạn sau (đoạn cuối) tự động dãn dài ra (giữ nguyên giá trị của nó). Còn các đoạn đầu chia cho 6.0 Sửa lại code về việc bắt điểm cho bạn
| ||
Tác giả: tien2005 Bài viết gốc: 210968 Tên lệnh: kt2 |
[Nhờ chỉnh sửa]: Lisp ghi kích thước
Đã bổ sung hướng đặt DIM vào code của Tue_NV (defun c:kt2(/ vl ov ss d1 d2 d3 d4 d5 ent kc Tue-ent-Lpoint Tue-dxf i Lpoints) (defun Tue-dxf (dxf ename)(cdr(assoc dxf (entget ename)))) (defun Tue-ent-Lpoint(e / i Lpoint);Tue-dxf (if (wcmatch (Tue-dxf 0 e) "*POLYLINE") (progn (if (= (type e) 'VLA-OBJECT) (setq e (vlax-vla-object->ename e))) (setq i -1) (Repeat (if (wcmatch...
| ||
Tác giả: pikeman286 Bài viết gốc: 10473 Tên lệnh: tt |
Tính diện tích mặt cong
hehe.mặt cong ARC thi tính được còn ellipse thì chưa nghĩ ra.
| ||
Tác giả: ketxu Bài viết gốc: 210998 Tên lệnh: do |
LISP tự động cộng liên tiếp khoảng cách giữa các điểm bất kỳ
Nên viết thế này thôi bác ạ : (defun c:do(/ lst p1 p2 p) (setq p2 (getpoint (setq p1 (getpoint "\nP1 :")) "\nP2:") lst (list p2 p1)) (while (setq p (getpoint (car lst) "\nDiem tiep theo <space to exit>")) (setq lst (cons p lst))) (alert (rtos (apply '+ (mapcar '(lambda(x y)(distance x y)) lst (cdr lst))) 2 2)) )
| ||
Tác giả: Tue_NV Bài viết gốc: 210997 Tên lệnh: kt2 | |||
Tác giả: Tue_NV Bài viết gốc: 210999 Tên lệnh: do |
LISP tự động cộng liên tiếp khoảng cách giữa các điểm bất kỳ
Nếu viết thì như thế này thôi ket: Gọn -> Khỏi sử dụng biến luôn
| ||
Tác giả: Bài viết gốc: 0 Tên lệnh: tt |
| ||
Tác giả: tien2005 Bài viết gốc: 211024 Tên lệnh: kt2 |
[Nhờ chỉnh sửa]: Lisp ghi kích thước
Đây code của Bạn theo như yêu cầu: Bạn chỉ cần 2 bước thực hiện: chọn đối tượng và pick điểm bên trong hay ngoài (trái, phải) Lưu ý: vị trí đặt text của dim cách đối tượng 1 khoảng bằng chiều cao text của dim mặc định. Muốn thay đổi k/c này thì Bạn thay giá trị màu xanh là được (setq kc (* 1 (cdr (assoc 140 (tblsearch "DIMSTYLE" (getvar...
| ||
Tác giả: ketxu Bài viết gốc: 211186 Tên lệnh: do |
LISP tự động cộng liên tiếp khoảng cách giữa các điểm bất kỳ
Quick : (defun c:do(/ lst p1 p2) (while (and (setq p1 (getpoint "\nP1:")) (setq p2 (getpoint p1 "\nP2:")) ) (setq lst (cons (distance p1 p2) lst)) ) (alert (itoa (fix (+ (/ (apply '+ lst) (getreal "\nSo can chia :"))0.99)))) ) Dạo này đau đầu quá nên mình k onl đc nhiều để trả lời nhanh ^^
| ||
Tác giả: minhtu2004 Bài viết gốc: 184230 Tên lệnh: dpl |
[Nhờ chỉnh sửa] Lisp vẽ đường thẳng nhập chiều cao va khoảng cách liên tục
-Có 1 chút phát sinh bạn chỉnh dùm, la khi nhập khoảng cách nhỏ hơn 1 thì đường thẳng không vuông góc và khi chạy lisp truy bắt điểm bị tắt hết. Bạn chỉnh sửa dùm.Mình có đính kèm file cad và code (defun c:dpl () (command "undo" "begin") (acet-sysvar-set (list "osmode" 0 "cmdecho" 0)) (setq P1 (getpoint "\ncho diem dau: ")) (setq L (getreal...
| ||
Tác giả: quansla Bài viết gốc: 211136 Tên lệnh: cd bd |
cắt các đường ghi kích thước
Chắc bac ketxu lại quên cái vụ này rồi, list của bác ấy thiếu phần bổ trợ các bác ạh. Theo em các bác dùng tạm hai list CD, BD đi khi nào rảnh bác ketxu up phần còn thiếu của list nên(hình như là hàm con DTR thì phải). Em up lại cho các bác ở đây vậy, cũng hông rõ là trước kia lấy từ nguồn nào nữa, trong máy có thì up thôi, xin phép trước ạ ;;;------------------------CAT CHAN...
| ||
Tác giả: thanhduan2407 Bài viết gốc: 211354 Tên lệnh: chm chd cdlt cvt3d |
Xin lisp nội suy cao độ ?
Đã chỉnh sửa lại theo yêu cầu của bạn. Tuy nhiên file bạn gửi thì nội dung text với elevation của text là khác nhau. (defun c:chm() (setq i 1) (command "osnap" "node,center,ins,end,mid") (or *chieucao* (setq *chieucao* 1)) (setq chieucao (getreal (strcat "\n Chi\U+1EC1u cao text <" (rtos *chieucao* 2 2) "> :" ) ...
| ||
Tác giả: lenhatanh Bài viết gốc: 211539 Tên lệnh: wo |
[yêu cầu] Thay đổi chiều cao các text trong Block Attbute
Em có tham khảo và sử dụng các "Lisp chỉnh style TEXT trong block thuộc tính" trên diễn đàn như: wo.lsp, rba_wo_ho.lsp, ho_Styb.lsp... tuy nhiên các Lisp trên chỉ thay đổi chiều rộng, chiều cao, Style của các Attribute chứ không thay đổi được cho các "Text" của Block Attribute. Em có nhiều Block Attribute ghi diện tích như trong hìnhhttp://www.cadviet.com/upfiles/3/88193_thay_doi_chieu_cao_text.png...
| ||
Tác giả: tien2005 Bài viết gốc: 211644 Tên lệnh: sd |
[Đã xong] lisp sắp xếp các DIM
Các Bạn thử lại lisp sau (defun c:sd ( / lstd pt xpt ypt xp yp pt1 goc h_textdim p10 p11 p13 p14 oldp10 oldp11 oldp13 oldp14) (setq #OSMODE (getvar "OSMODE")) (command "_.Undo" "be") (setvar "cmdecho" 0) (setvar "OSMODE" 0) (princ "\nChon cac DIM can sap xep") (while (setq lstd (ssget (list(cons 0 "DIMENSION");"AcDbAlignedDimension"...
| ||
Tác giả: bach1212 Bài viết gốc: 212129 Tên lệnh: dcs |
Nhờ các bác viết dùm Lisp đánh cao độ
;; free lisp from cadviet.com ;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=12103&st=0 (defun c:dcs(/ tlv blm blname dmo cdm cd dm cdmi dmoc) (setvar "attreq" 1) (setvar "cmdecho" 0) (setq oldim (getvar "DimZin")) (setvar "Dimzin" 0) (setq tlv (/ 1 (getreal "\n Nhap ti le ve : 1/"))) (setq blm (entget(car(entsel "\n Pick chon Block mau...
| ||
Tác giả: namnhim Bài viết gốc: 212167 Tên lệnh: cg |
[Nhờ sửa] Lisp gọi Block để rút ngắn đoạn hiển thị dưới dòng command
Nhờ các bác sửa giúp em code dưới đây, để khi gọi lệnh CG thì phần hiển thị nội dung ở dòng command dưới màn hình không hiển thị phần phần đánh dấu màu đỏ bên dưới đây: Command: CG CHON GOC TRAI-DUOI BAN VEUnknown command "CG". Press F1 for help. (chỗ này nó báo lỗi gì vậy nhỉ?) Unknown command "N". Press F1 for help. Unknown command "CG". Press F1 for help.
|
Trang 104/330