Info | File | ||
Tác giả: Doan Van Ha Bài viết gốc: 185937 Tên lệnh: ha |
Lisp lọc các block cùng tên
Có phải bạn muốn như thế này không? @Ketxu: thank Ketxu, nhưng tôi chưa hề dùng Dyn_Block nên hơi bị... lạc hậu chuyện này.
| ||
Tác giả: ketxu Bài viết gốc: 185933 Tên lệnh: test |
Chọn các Block cùng tên
^^ Theo như ý của bạn OP thì nó là effectivename, không phải xử lý trường hợp DB đã thực thi action P/s : code : (defun c:test(/ rn ssblk blkName)(vl-load-com) (prompt "\nChon Block mau :") (setq rn (lambda(x)(vla-get-EffectiveName (vlax-ename->vla-object x))) blkName (rn (ssname (ssget ":S" (list (cons 0 "INSERT"))) 0))) (prompt "\nChon khu vuc chua Block...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 186092 Tên lệnh: mtxtc |
Lisp đếm đối tượng Mtext lập thành bảng
<p></p> <p>hề hề hề,</p> <p>Bạn dùng thử cái này coi sao nhé.</p> <p></div>
| ||
Tác giả: phamthanhbinh Bài viết gốc: 186059 Tên lệnh: mkin |
Rải và đánh số thứ tự cọc
Hề hề hề, Bạn dùng thử cái này coi có ưng ý không nhé. Mình sử dụng cái đoạn lisp enmake block thuộc tính của bác thaistreet. (chứ cái vụ này mình chưa rành rẽ lắm). Hãy nhớ cảm ơn bác ấy nếu bạn thấy hài lòng Phần còn lại là mình xào nấu từ cái lisp cũ đã viết. Sở dĩ hơi lâu vì mình phải mò mẫm cái của bác Thái cho nó thung thủng rồi mới dám xài. Tuy vậy cũng...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 186105 Tên lệnh: mtxtc |
Lisp đếm đối tượng Mtext lập thành bảng
Do khi bác PTB up lên thì CadViet bị lỗi. Tôi sửa giùm cho bạn đây. Bác PTB thức đến hơn 3h sáng để viết cho bạn, nên ngoài thanh+bia bạn cần nhấn nút "Like This" cho bác ấy đi nhé!
| ||
Tác giả: Doan Van Ha Bài viết gốc: 186210 Tên lệnh: c6 f6 ch6 |
lisp fillet,copy,champer, đo diện tích.
Nói chung là bạn hơi bị... làm biếng! Fillet chỉ nhập R có 1 lần, còn Chamfer chỉ nhập d1 và d2 cũng chỉ 1 lần rồi sau đó mặc định. Nhưng thôi kệ, code cho bạn đây. Lần sau y/c cái gì cho hoành tráng luôn (nhưng hoành tráng vừa vừa kẻo botay.com đó nghe).
| ||
Tác giả: lp_hai Bài viết gốc: 108423 Tên lệnh: ad |
Lisp sửa giá trị của dim
mình cũng chẵn biết nhiều lắm. mong giúp dc bạn http://www.cadviet.com/upfiles/3/ad.lsp
| ||
Tác giả: phamthanhbinh Bài viết gốc: 122259 Tên lệnh: xbl |
Nhờ cao thủ sửa giúp em đoạn list Explode !
Chào bạn hhhhgggg, Bạn xem cái mình sửa lại này đã ổn chưa nhé, Chúc bạn vui.
| ||
Tác giả: gia_bach Bài viết gốc: 66777 Tên lệnh: hcn |
Vấn đề vát mép trong Autolisp
->to duy782006 : thử tìm kiếm biến lưu giữ giá trị bán kính khi dùng lệnh rec nhưng không thấy đuợc thông tin gì ! <_< Update Lisp Hình chử nhật
| ||
Tác giả: phamthanhbinh Bài viết gốc: 186295 Tên lệnh: f1 |
xuất block nhanh !
Hề hề hề, cho mình ké ý kiến của bác lp-hai nhé Nếu như chắc chắn rằng cái block mang tên 1 đã có trên bản vẽ thì bạn chủ thớt có thể chơi thử thằng cu này xem có đúng ý bạn không nhé. Nếu sai thì bạn phải tìm cách khác, còn nếu đúng thì bạn cứ thế mà phát huy với các block bạn muốn Lưu ý rằng code lisp này đượic bảo mật ở cấp không không thấy nên...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 186297 Tên lệnh: c6 f6 ch6 |
lisp fillet,copy,champer, đo diện tích.
Hề hề hề, chả biết có phải là bạn cần cái này hay không, nhưng thú thực là mình không khoái cái thói ỷ lại của bạn. Là một thành viên có hạng của CADviet rồi, bạn cũng đã yêu cầu không ít các vấn đề, và cũng không phải là người không biết gì về lisp. Những yêu cầu đơn giản kiểu này bạn hoàn toàn có đủ khả năng tự làm nếu như bạn thực sự là cần nó và muốn tự làm...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 186277 Tên lệnh: ha | |||
Tác giả: phamngoctukts Bài viết gốc: 112256 Tên lệnh: dv | |||
Tác giả: phamthanhbinh Bài viết gốc: 186239 Tên lệnh: mtxtc |
Lisp đếm đối tượng Mtext lập thành bảng
Hề hề hề, Không biết cái này đã thỏa mãn yêu cầu của bạn hay chưa, song mình cứ post lên để hy vọng có thêm sự chỉ bảo của các bác khác. Cái này có khác một chút với cái truớc ở chỗ chỉ cần quét chọn toàn bộ các bản vẽ một lần chứ không phải chọn mỗi bản vẽ một lần theo thứ tự. Tuy nhiên do không thấy có yêu cầu nên mình không sắp xếp lại trật tự các bản...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 121559 Tên lệnh: dagiac |
hỏi vấn đề tạo liên kết LSP và dialog DCL
Hề hề hề, Biếu bạn một cái dùng chơi cho biết nhé. Cái này cho phép bạn xài cái button Help mà bạn đã mất công tạo ra để xem một phần cái file chm của bạn mà mình chơi kiểu củ chuối là chuyển nó thành file *.txt để đọc và hiển thị từng dòng của nó bằng hàm alert. Đọc xong dòng nào bạn click vào nút OK trên bảng alert nó sẽ hiển thị dòng tiếp theo cho bạn đọc....
| ||
Tác giả: philipdn Bài viết gốc: 101818 Tên lệnh: exam |
Giao diện hộp thoại trong AutoLisp
Các bác pro cho mình hỏi chút về hộp thoại DCL, tìm nhiều nơi nhưng ko thấy hướng dẫn đâu hết Để các giá trị trong hộp thoại tự động cập nhật giá trị thì làm như thế nào nhỉ? Ví dụ như tôi có đoạn code và dcl sau: Làm sao để khi người dùng nhập giá trị vào ô X hoặc Y thì giá trị ô kết quả sẽ tự động hiển thị kết quả vậy Thanks
| ||
Tác giả: ndtnv Bài viết gốc: 38145 Tên lệnh: extrim exextend exadjust |
Dùng chương trình con để rút gọn code
Ví dụ 1: Khi viết lisp, các hàm lấy mã dxf của đối tượng thường dùng rất nhiều là
| ||
Tác giả: whatcholingon Bài viết gốc: 186507 Tên lệnh: cv |
Dấu "chấm" và dấu "phẩy" trong Autocad
Nếu khó gặm quá thì ta làm thủ công thui. Dùng lisp chuyển dấu “.’ Thành dấu “,” : Lisp này của Mr. Hoanh nè!
| ||
Tác giả: lp_hai Bài viết gốc: 186599 Tên lệnh: lo |
Hỏi về Block thuộc tính
Mình cũng ko chắc nhưng có lẽ là do dynamic block nen nó ko làm việc dc??? bạn có thể xài cái lisp mình viết, lisp này chỉ yêu cầu bạn chọn block mẫu, sau đó tự nó làm việc. Xong rồi bạn có thể test lại bằng lệnh attsync xem nó có bị nữa ko nhá! (defun c:lo(/ ent dtc dt1 sdt id sl nd1 lst1 lt) (setq dtc(car (entsel "\nchon block:"))) (get-block dtc) (setq sdt...
| ||
Tác giả: Luxury037 Bài viết gốc: 186643 Tên lệnh: noel xmastree |
Các bạn muốn chơi game trên Cad thì vào đây
Tiếp cái này nữa : Tên lệnh : Noel Một cây thông Noel sẽ được trang trí trên Acad (defun c:noel () (c:XMASTREE)) (defun c:XMASTREE (/ rad R N Z dZ a da d H I J K +- s c) (setq c (if (>= (getvar "acadver") "15") vl-cmdf command ) ) (setq d distance s setvar ) (s "CMDECHO" 0) (s "UCSICON" 0) (s "TILEMODE"...
|
Trang 71/330