Info | File | ||
Tác giả: gia_bach Bài viết gốc: 177891 Tên lệnh: at2t |
Lisp Ghép Text Cần Giúp Đỡ
Tiếc nhỉ, tui chả biết Speedcad là cái gì ? Phải đơn giản như thế này ko? (defun c:at2t (/ data edata ent i sel ss str);All Text to Text (defun dxf (tag obj) (cdr (assoc tag obj))) (setq ss (ssadd)) (while (setq sel (entsel "\nChon cac Text can noi voi nhau: ")) (setq ent (car sel)) (if (= (cdr (assoc 0 (entget ent))) "TEXT") (ssadd ent ss)) ) (if (> (sslength ss) 0)
| ||
Tác giả: Doan Van Ha Bài viết gốc: 177961 Tên lệnh: cc | |||
Tác giả: phamthanhbinh Bài viết gốc: 177853 Tên lệnh: oca |
các anh em prô ơi viết giùm em cái list
Hề hề hề, Bạn thử thay cái lisp này vào cái lisp ocA ở trên xem sao nhé. Mình đã bổ sung theo ý bạn nhưng chưa test, bạn cứ chạy thử xem, có gì thì post lên để mình chỉnh lại. Hy vọng nó thỏa mãn yêu cầu của bạn. Hề hề hề
| ||
Tác giả: Doan Van Ha Bài viết gốc: 177965 Tên lệnh: ha | |||
Tác giả: ketxu Bài viết gốc: 178221 Tên lệnh: at2t | |||
Tác giả: hoa35ktxd Bài viết gốc: 104766 Tên lệnh: pllev pl2lev | |||
Tác giả: ketxu Bài viết gốc: 178321 Tên lệnh: hh |
Hatch nhanh theo Pick chọn hoặc Boundary
Quan trọng là có thích hay không mà thôi! Rồi thì ai cũng phải tự hiểu những gì mình cần thôi, chứ yêu cầu mãi nghe đâu có ổn Các bác khác viết cho victor chắc chỉ mất đến 10p là cùng thôi, nhưng nếu không có bắt đầu thì chẳng bao giờ có kết quả! VD 2 phút : (defun c:hh ()
| ||
Tác giả: Nguyen Hoanh Bài viết gốc: 89961 Tên lệnh: chonthuc |
Chọn text là số
Các lisp trên có nhược điểm là sau khi chọn text rồi mới kiểm tra xem text đó là số hay không. Lisp dưới đây chỉ chọn text số luôn mà không cần mã lệnh kiểm tra. Lisp chọn số thực:
| ||
Tác giả: Nguyen Hoanh Bài viết gốc: 89961 Tên lệnh: chonnguyen |
Chọn text là số
Các lisp trên có nhược điểm là sau khi chọn text rồi mới kiểm tra xem text đó là số hay không. Lisp dưới đây chỉ chọn text số luôn mà không cần mã lệnh kiểm tra. Lisp chọn số thực:
| ||
Tác giả: lp_hai Bài viết gốc: 178451 Tên lệnh: ic |
Làm sao để chỉnh bé kích thước cái mũi tên này !
Hi, mình cũng tập tành viết cái lisp mong là có ích cho bạn. Nguyên lý hoạt động là bạn phải chọn những thằng mũi tên, rồi lisp sẽ thay thế các mũi tên này bằng một block. trong file mình gửi đây là block có tên Girl, hình dạng thì mình scale mũi tên nhỏ chút xíu, bạn có thể chỉnh sửa cái block này theo dúng ý bạn. bạn cũng có thể thay đổi tên block nhưng lúc này bạn phải thay đổi...
| ||
Tác giả: lp_hai Bài viết gốc: 178458 Tên lệnh: sw |
Làm sao để chỉnh bé kích thước cái mũi tên này !
Để chọn những "Mũi tên vàng" dễ dàng, bạn có thể xài lisp sau. và chú ý là gõ lệnh sw xong, chọn một mũi tên màu vàng, lisp sẽ chọn cho bạn những mũi tên giống nhau. sau đó gõ liếp lệnh ic (defun c:sw(/ aaa ls dt dt1 sdt sdt1 ent ent1 id id1) (setq AAA(SSGET) sdt (sslength AAA) id 0 dt (ssadd) ) (repeat sdt;;repeat1 (setq ent (ssname AAA id) id (1+ id)
| ||
Tác giả: Doan Van Ha Bài viết gốc: 178447 Tên lệnh: vtg |
Lisp thao tác trong 3D
Tiếc là phần vẽ thép góc của tôi nó nằm trong 1 chương trình chung cho nhiều vấn đề, đã chuyển qua vlx, trong khi các file lsp và dcl liên quan thì tìm mãi không ra, nên post lên cho bạn cái đơn giản nhất: vẽ tiết diện thép góc theo TCVN. Từ tiết diện này bạn có thể dùng thêm lệnh Sweep để vẽ nó trong không gian như bạn Hoan2182 đã hướng dẫn, hoặc bạn nào rảnh thì có thể giúp bạn viết bằng...
| ||
Tác giả: 790312 Bài viết gốc: 178671 Tên lệnh: oca |
Lisp copy tăng dần.
Đây là lisp do bác Bình viết: (defun C:OCA( / e e0 dn p1 cn c n p2 dat) ;;;Make Ordinal number. Copy from Atttribute block (setq e0 (car (entsel "\nSelect attribute block:")) e (entnext e0) ) (if (/= (etype e) "ATTRIB") (progn (alert "Object is not a Attribute Block!") (exit))) (setq name (getstr "\n Entering the attribute name: ")) (while (/= (cdr (assoc 2 (entget e))) name) (setq e...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 178717 Tên lệnh: ha |
tính khối lượng trên 1 m dài
Text kết quả to/nhỏ/mập/ốm thế nào, ghi vào đâu hay là ghi vào 1 text có sẵn trên bản vẽ. Chuyện này không khó nhưng bạn y/c càng rõ càng tốt, để đỡ tốn công sửa lại. Thân thương! P/S: trong khi chờ bạn, hãy dùng thử cái này xem sao đã.
| ||
Tác giả: tuvn254 Bài viết gốc: 61431 Tên lệnh: a2 | |||
Tác giả: tiendung89 Bài viết gốc: 178739 Tên lệnh: vmc |
Lisp vẽ mặt cắt từ bình đồ
-em có down lisp vẽ mặt cắt từ bình đồ của bác Hoành về dùng nhưng vừa Ap vào thì máy lại báo lỗi, mặc dù em đã làm đúng yêu cầu rồi, lỗi như sau: Command: ap APPLOAD 4292_vmc.lsp successfully loaded. Command: ; error: misplaced dot on input Command: em ko biết vì sao có lỗi này, mong các bác giúp đỡ cho ạ, lisp như sau: ;; free lisp from cadviet.com ;;; this lisp...
| ||
Tác giả: nestxanh Bài viết gốc: 179066 Tên lệnh: n |
Nhờ mọi người sửa hộ lisp đo diện tích
Mình có một lisp đo diện tích vùng khép kín rồi điền giá trị vào Dtext, cũng ko nhớ xin của ai, nếu ai trong diễn đàn nhớ ra là code của mình thì cho gửi lời cám ơn nhé. Mình muốn nhờ thêm mọi người sửa hộ code để sau khi điền giá trị diện tích vào text thì mầu text được thay đổi để dễ nhận biết, mầu nào cũng đc miễn là khác mầu cũ của text. Code file lisp mà mình có:
| ||
Tác giả: ketxu Bài viết gốc: 178829 Tên lệnh: test | |||
Tác giả: thiep Bài viết gốc: 179020 Tên lệnh: hmc |
Lisp vẽ mặt cắt từ bình đồ
;;;------------ve hinh chieu mat cat ------ ;;;------------by THIEP /11/2011 ------ (defun c:hmc (/ entl sel ss pa pb L0 L1 L2 Lstp) (vl-load-com) (command "undo" "be") (acet-sysvar-set (list "cmdecho" 0 "osmode" 0) ) (while (not sel) (setq sel (entsel "\nPick line mat cat: ") entl (car sel) ) ) (setq PA (vlax-curve-getStartPoint...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 179448 Tên lệnh: glt |
Lisp tính lý trình các điểm trên 1 polyline/line
Hề hề hề Phải chăng bạn cần cái này: Hề hề hề. @ phamxuanly gtvt: hãy gửi bản vẽ bị lỗi lên...
|
Trang 60/330