Info | File | ||
Tác giả: KangKung Bài viết gốc: 230963 Tên lệnh: kk |
cộng số khi dùng lệnh vd line, rectang
| ||
Tác giả: various Bài viết gốc: 217957 Tên lệnh: tt |
[ Hỏi ] Lỗi trong lisp matchprop nội dung text
Chào mọi người. Chả là lúc trước mình có dùng tool speedcad. Có lisp ma text rất hay. Search thì được biết là do bác kietxu viết. Mình có down về nhưng ko hiểu sao dùng thì chỉ ma được text riêng lẻ, hoặc text trong block đã bị explode. Còn lại không thể ma text trong dim, trong block Command tt , Chọn text bị thay thế :; error: bad DXF group: (1). Hoặc chọn text thay thế thì không có hiện tượng gì....
| ||
Tác giả: vndesperados Bài viết gốc: 30237 Tên lệnh: cal1 |
Chỉnh sửa lisp đã có ???
Máy mình không có CAD, mình sẽ hướng dẫn bạn cách chỉnh sữa lại như sau: 1. Tạo ra file CREALA như sau: CREALA.LSP Cũng không khó lắm nhỉ, chúc bạn thành công Vì không có CAD nên mình chỉ có thể giúp được như vậy thôi
| ||
Tác giả: KangKung Bài viết gốc: 231065 Tên lệnh: kk |
[yêu cầu] LISP tìm & hiệu chỉnh nhóm TEXT
Lisp của bạn đây. Lisp này áp dụng cho trường hợp chiều cao chữ Input1 là 100 nhé. Nếu chữ thay đổi thì phải đổi lại code. Khi nhập số liệu thì nhập từng kí tự 1. Ví dụ SA9+2 thì nhập như sau: Input1: s Input2: a Input3: 9 Giá trị thay doi: 2 Lisp áp dụng cho nhiều trường hợp có trên bản vẽ của bạn mà không phải chia nhỏ ra trường hợp Input2 nil hoặc khác nil....
| ||
Tác giả: KangKung Bài viết gốc: 231100 Tên lệnh: kk |
[yêu cầu] Lisp chỉnh sửa độ dày nét hàng loạt
svarta timberland kängor http://www.joerglbauer.com/feld.asp?glb=svarta-timberland-kangor
| ||
Tác giả: phamthanhbinh Bài viết gốc: 231120 Tên lệnh: updtxt |
[yêu cầu] LISP tìm & hiệu chỉnh nhóm TEXT
Hề hề hề, Vậy là đã có khá nhiều đáp án cho bạn rồi. Mình chậm chân một chút và thấy rằng cái mình...
| ||
Tác giả: Doan Van Ha Bài viết gốc: 231124 Tên lệnh: ha |
[yêu cầu] Lisp chỉnh sửa độ dày nét hàng loạt
(defun C:HA( / hs lay lst lw )
(vl-load-com)
(initget 7) (setq hs (getreal "\nHe so nhan: "))
(vlax-for lay (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq lst '(0 5 9 13 15 18 20 25 30 35 40 50 53 60 70 80 90 100 106 120 140 158 200 211))
(setq lw (vla-get-lineweight lay))
(if (<= (setq lw (* hs (if (= lw -3) (getvar "lwdefault") lw))) 211)
...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 230832 Tên lệnh: edtxt |
nhờ sửa thêm phần gọi Block text và cho nó song song đoạn thẳng
Hề hề...
| ||
Tác giả: nhoclangbat Bài viết gốc: 218295 Tên lệnh: kkk |
Lsp chuyển tên layer các đối tượng
oh em sorry Anh Duy ý cụ thể của em là layer 10 thì chỉ cần đổi tên là xong,còn layer 22 và 57 thì đổi cả tên , màu , linetype, ltscale lun. Em đang học bên lớp anh ketxu nhưng cũng mới bắt đầu ko rành mún viết nhưng viết ko nỗi hihi. Nãy giờ em cũng mày mò rùi lụm mót viết cái lsp này mà thấy nó còn nhiều bất cập, cái layer 57 em đổi tên nó đc rùi mà mún đổi lun ltype và ltscale em kết hợp lệnh...
| ||
Tác giả: KangKung Bài viết gốc: 230983 Tên lệnh: kk |
chỉnh thuộc tính cho nhiều block
Bạn đã cài Express Tool chưa? Nếu chưa cài thì dùng thử cái này xem có được không. Trên máy mình chạy ngon. ;====CHUYEN TEXT TU LAYER DEFPOINTS TRONG BLOCK ATTRIBUTE VE LAYER "0"==== ;=======================KANGKUNG 05/04/2013=============================== ;========================UPDATED 07/04/2013=============================== (defun c:KK() (vl-load-com) (setq taphop(ssget "_X" '((0 . "INSERT"))) i 0) (while (<...
| ||
Tác giả: duy782006 Bài viết gốc: 3394 Tên lệnh: tkth h%3F |
Viết Lisp theo yêu cầu
Nhờ các bác viết giúp cái hộp thoại cho cái lệnh này của em, có một số ý muốn như thế này: -Cố gắng giữ nguyên các câu lệnh của em chỉ sửa những chổ cần thiết -Dùng thuần lisp giúp em vì em không biết VBA. -Hình dáng hộp thoại gồm: +03 imagebutton thể hiện 03 loại thép hình. +03 nút : Chèn tiêu đề; kẻ bảng; chọn và hủy bỏ. -Hộp thoại dùng các...
| ||
Tác giả: nguyenngoc971 Bài viết gốc: 231078 Tên lệnh: cvav 1 04 |
Xin giúp về virus Cad
;; free lisp from cadviet.com ;; --------- Fix acad.lsp virus --------- (setq removedcodelist (list ";; Silent load." "(princ)" "(load \"acadapp\")" "(load \"ddcopy.lsp\")" "(load\"acadiso\")";; v103 "(setq flagx t)" ;; v102 "" ) infectedcodematch (strcat "(load \"acadapp\")," "(load \"ddcopy.lsp\")," "(load\"acadiso\"),";; v103 "(setq path (findfile \"base.dcl\"))," "(strcat c-acaddocpath...
| ||
Tác giả: hantinh Bài viết gốc: 184018 Tên lệnh: ob |
nhờ các cao thủ viết hộ cái lsp mir-tag ghi chú thép trong ASD
còn đây là cai lsp mà minh viết nhưng khi load vào thì nó báo là ít đối số quá hem có hiểu tại sao luôn. Hik (defun c:ob (/ ename ename1 ename2 ename3 ename4 ename5 x1 x2 x3 x4 y1 y2 y3 y4 p1 p2 p3 p4) (setq ename (entsel "\nchon doi tuong:") ename1 (car ename) ename2 (entget ename1) ename3 (cdr (assoc 340 ename2)) ename4 (entget ename3) );end setq (ssget ( (-4....
| ||
Tác giả: avi612 Bài viết gốc: 218771 Tên lệnh: atm |
[Hỏi] Tiếng Việt trong Visual Lisp của Win7
Ý mọi người là muốn thể hiện được Tiếng Việt trong những câu lệnh điều khiển như thế này đó hả? Lisp ví dụ:. (defun c:ATM(/ os #sset #chuoidau #chuoisau i #ssname #str #new) (setvar "CMDECHO" 0) (command ".undo" "BE") (command ".UCS" "W" ^C^C) (Prompt "\n- Ch\U+1ECDn Text c\U+1EA7n thay \U+0111\U+1ED5i:") (setq #sset (ssget...
| ||
Tác giả: KangKung Bài viết gốc: 231603 Tên lệnh: kk |
nhờ viết lisp gán cao độ cho đường đồng mức và ghi ra text
Thấy chưa có ai giúp nên post cái Lisp này lên cho bạn dùng thử: http://www.cadviet.com/upfiles/3/71162_21lisp_gan_cao_do_cho_pline_va_ghi_ra_text.lsp Hướng dẫn: Ví dụ muốn đặt 2 đường đồng mức cùng có cao độ là 10 thì quét chọn cả 2 đường đồng mức đó luôn. Sau đó nhập độ cao đường đồng mức và chiều...
| ||
Tác giả: q288 Bài viết gốc: 67225 Tên lệnh: dg |
Bắt Điểm Đặc Biệt
Sao không dùng lisp cho nhanh? ko phải lúc nào cũng phụ thuộc lisp nhưng trường hợp này nên dùng. khi ct hỏi tỷ lệ thì đánh vào 1/3 hoặc bao nhiêu tùy ý, có thể lớn hơn 1 cũng đc.
| ||
Tác giả: KangKung Bài viết gốc: 231671 Tên lệnh: kk |
nhờ viết lisp gán cao độ cho đường đồng mức và ghi ra text
Lisp sửa theo yêu cầu của bạn đây: http://www.cadviet.com/upfiles/3/71162_21lisp_gan_cao_do_cho_pline_va_ghi_ra_text_rev1.lsp Ghóp ý thêm một chút nhé: 1. Trong bản vẽ thường cỡ chữ dùng để ghi chú đồng mức được cố định nên bạn chỉ nhập lần đầu thôi, còn từ lần thứ 2 trở đi thì không cần phải nhập nữa. Nếu cỡ chữ thay đổi liên tục (cái này hơi hiếm) thì bạn cho mình biết...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 231757 Tên lệnh: ln |
Lisp nhập đoạn thẳng và kiểm tra điều kiện nhập
| ||
Tác giả: ketxu Bài viết gốc: 201711 Tên lệnh: lc |
vấn đề về lệnh tắt trong cad
Bác Hà chưa release nó sau khi dùng lisp ^^ @toiyeuvietnam : - Nếu không nhớ lệnh (hay như trong ví dụ của bạn là các hàm viết bằng lisp), tại sao bạn không tạo menu, hoặc tạo Toolbar bằng lệnh CUI của CAD ? - Nếu không rành tạo menu thì tạo Tool Palette - Nếu đã dùng lisp gọi bảng lệnh thì nên làm theo gợi ý của bác Duy, không nên tốn chỗ cho 1 file lisp + 1 file txt list lệnh,...
| ||
Tác giả: Tue_NV Bài viết gốc: 231882 Tên lệnh: nhap |
[Nhờ giúp đỡ] Nhập bổ sung liên tục các số thực
À, do mình không đọc kỹ đề bài. Ý của đề bài như thế này : (defun c:nhap (/ a b) (while (setq a (getreal "\nNhap so thuc :")) (setq b (append b (list a))) ) )
|
Trang 125/330