Info | File | ||
Tác giả: damvinhduy Bài viết gốc: 207003 Tên lệnh: tm |
Xin lisp căn Text vào chính giữa ô
Bạn dùng thử lisp này. Lệnh là TM dùng được cho Text lẩn MText. Have fun! ;;;=========================================================;;; ;;; Cong dung: ALign Text Middle =====================================;;; ;;; Version: 1.0 =====================================================;;; ;;; Create by damvinhduy =============================================;;; (defun C:TM (/ Txt PTxt PTX SS n OSMLAST lstpoint1 lstpoint2 pc pt pp)
| ||
Tác giả: luckylucke_2009 Bài viết gốc: 207006 Tên lệnh: chaythu |
[Nhờ chỉnh sửa]: Kiểm tra file tồn tại không để thoát hẳn dòng lệnh của lisp.
Nhưng khi tôi bỏ hẳn alert trong hàm IF thì vẫn không hiểu ^C^C để thoát lệnh. Vẫn chưa hiểu, xin chỉ giúp thêm! (Prompt "\Thi hanh bang lenh \"chaythu\".") ;Chuong trinh chinh (Defun C:chaythu () (chophep) (command "_.TEXT" "mc" (list 0.0 0.0 0.0) 5.0 0.0 "CHAY BINH THUONG") (alert "Chuong trinh chay binh...
| ||
Tác giả: hamster2102 Bài viết gốc: 206964 Tên lệnh: bmi |
lisp tính chỉ số BMI
em định up vào đây không biết có sai box không^^nếu có sai thì mod chuyển cho em ra thư giãn ạ lisp em có gõ tìm kiếm chưa có nên mạo hiểm up lên đây lisp tính chỉ số BMI cho các bác cadviet vừa làm vừa có cái giải trí trong lúc căng thẳng ạ do em mới học lỏm được 1 2 hàm nên nó còn sơ sài...
| ||
Tác giả: Tue_NV Bài viết gốc: 207016 Tên lệnh: a1 | |||
Tác giả: ketxu Bài viết gốc: 207019 Tên lệnh: test |
[Cần giúp đỡ] gộp giúp em lisp lệnh bật, tắt Layer với
Khi ấn Esc thì bạn khỏi bảo nó cũng thoát lệnh rồi ^^ (defun c:test () (mapcar '(lambda(x)(eval (read (strcat "(c:" x ")"))) (getstring (strcat "\nDone to " x ", space to continue, esc to stop")) ) '("n1" "n2" "n3")) (alert "Done! Good luck!") (princ) )
| ||
Tác giả: Tue_NV Bài viết gốc: 129857 Tên lệnh: h1 |
Viết lisp theo yêu cầu [phần 2]
Cả 2 cách sửa trên của Tue_NV và ketxu đều can thiệp vào file Lisp, tức là phải mở file Lisp lên và sửa Tue_NV nghĩ rằng nên gán các giá trị mặc định cho Hatch và tiến hành Hatch theo giá trị này. 1. Lisp của bạn ketxu Hatch các mẫu theo 1 giá trị mặc định ở trong Lisp, muốn thay đổi giá trị lại vào trong Lisp mà sửa lại. Hơi phiền nhỉ? Cách gán giá trị mặc định của...
| ||
Tác giả: mathan Bài viết gốc: 206745 Tên lệnh: tkd |
: lisp sao chép số liệu kích thước
Bạn thông cảm cho mình vì mình code quá nhanh nên thành ra quên cả những cái cơ bản nhất Tạm thời mình reply đặt gạch giải quyết 3 vấn đề của bạn đã nhé. Lúc khác rảnh mình sẽ xử tiếp những yêu cầu còn lại 1. Kích thước bảng: Nó sẽ phù hợp với chiều cao text bạn nhập vào ...
| ||
Tác giả: erikce Bài viết gốc: 207188 Tên lệnh: kt2 |
: Lisp ghi kích thước
Em có cái lisp ghi kích thước sưu tầm được của 1 bác trên diễn đàn. Xin các bác giúp em chỉnh sửa lisp này để có thể chọn đường thằng cần ghi kích thước theo một layer nào đó. Thanks! ;----kich thuoc duong thang -------- (defun c:kt2(/ vl ov ss d1 d2 d3 d4 d5 ent kc) (vl-load-com) (command "_.undo" "_begin") (setq vl '("osmode" "orthomode"...
| ||
Tác giả: ketxu Bài viết gốc: 207224 Tên lệnh: test |
lisp chuyển các đối tượng về 1 layer
Quên béng mất lời hẹn ^^ (defun c:test ( / lst ss blkName change) (defun change ( block layer ) (vl-load-com) (if (not (vl-catch-all-error-p (setq def (vl-catch-all-apply 'vla-item (list (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object) ) ) ...
| ||
Tác giả: ketxu Bài viết gốc: 207220 Tên lệnh: cat |
[Yêu cầu] Lisp cắt đường thẳng giao với 1 đường thẳng
Quick code : (defun c:cat(/ ent p) (setq ent (car (entsel "\nChon doi tuong bi cat :")) p (getpoint "\nDiem giao :")) (or d (setq d 1)) (setq d (cond ((getdist (strcat "\nKhoang cach <" (rtos d) "> :"))) (d))) (command ".break" (list ent (polar p (angle p (cdr (assoc 10 (entget ent)))) (* 0.5 d)))(polar p (angle p (cdr (assoc 11 (entget ent)))) (* 0.5 d))) )
| ||
Tác giả: phamthanhbinh Bài viết gốc: 207260 Tên lệnh: clb |
lisp chuyển các đối tượng về 1 layer
Hề hề hề, Sorry vì đúng là có lỗi do mình test với block thuộc tính mà block của bạn không phải block thuộc tính. Mình đã bổ sung để dùng được với cả block thuộc tính và block thường. Bạn test lại nhé. Trong lisp mình viết không đụng chạm gì tới màu sắc của đối tượng. Vì vậy nếu bạn thấy nó bị đổi màu ở đâu thì gửi cái đó cho mình để mình check lại...
| ||
Tác giả: dung_can Bài viết gốc: 207282 Tên lệnh: dkt |
Lisp ghi kích thước mà không ghi đường gióng kích thước
Bác Pro nào giúp em sửa đoạn lisp này của bác Tue_NV sao cho khi chọn 2 điểm xong thì kết quả chỉ ghi khoảng cách 2 điểm mà không thực hiện Dimlinear (Không có đường gióng kích thước) với nhé. Em cảm ơn nhiều. Ví dụ: http://img822.imageshack.us/img822/6663/dokichthuockhonghienduo.png (vl-load-com) (defun Tue:ss-drag-move (ss p / el lp) ;;;copyright by Tue_NV (setq...
| ||
Tác giả: thanhduan2407 Bài viết gốc: 207283 Tên lệnh: taotamgiac |
Hỏi cách tạo đường đồng mức
Các bác thử nghiên cứu lisp tạo tam giác này xem rồi chế nó thành của mình. Đây là thuật toán tạo tam giác của người Nga (defun c:taotamgiac (/ I L S) (princ (strcat "\n select points")) (if (setq i 0 s (ssget '((0 . "POINT"))) ) ;_ setq (progn (repeat (sslength s) (setq l (cons (cdr (assoc 10 (entget (ssname s i)))) l) i (1+ i) ) ;_ ...
| ||
Tác giả: huunhantvxdts Bài viết gốc: 207403 Tên lệnh: batter b1 |
[Nhờ sửa lisp] vẽ taluy
đây là lisp mình tìm trên mạng đã sữa lại theo những gì mình muốn nhưng còn một số chỗ chưa sữa được mong mọi người sữa lại giùm những yêu cầu sau: 1. Có thể undo lại khi vẽ thấy taluy không hợp lí: - Thay đổi khoảng cách giữa các vạch ngắn dài - Thay đổi chiều đánh taluy 2. Có chọn điểm bắt đầu và điểm kết thúc ( bỡi trên đường mình chọn chỉ...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 207443 Tên lệnh: clb |
[Yêu cầu] lisp chuyển các đối tượng về 1 layer
Hề hề hề, Đây là cái mình bổ sung thêm, không biết đã đúng ý bạn chưa. bạn lưu ý là màu của block khác với màu của các đối tượng trong block nhé. Ở đây mình đổi tuốt luốt để nó giữ nguyên màu i sì như block gốc, chỉ chuyển tên layer mới là block thôi. Chúc bạn vui
| ||
Tác giả: huunhantvxdts Bài viết gốc: 207463 Tên lệnh: batter b1 |
lisp vẽ taluy
Đây là lisp vẽ taluy mà mình đã chỉnh sửa theo mong muốn của mình nhưng còn 1 số vướng mắc không biết làm sao mong mọi người giúp đỡ. Những vướng mắc sau đây. 1. Có thể undo lại sau khi vẽ - Nhập lại khoảng cách giữa các vạch ngắn dài -Đổi chiều đánh taluy từ đắp sang đào hoặc ngược lại 2. Có thể chọn được điểm bắt đầu và kết thúc đánh taluy (vì chỉ...
| ||
Tác giả: phamthanhbinh Bài viết gốc: 207471 Tên lệnh: xv |
[Nhờ chỉnh sửa] Lisp tạo Print Area
Hề hề hề, Gửi bạn một đoạn lisp dùng để xóa sạch các view trong bản vẽ mà bạn đã tạo ra bởi cái lisp bạn gửi. Mình không muốn ghép nó vào trong lisp củ vì e rằng nhỡ bạn làm lộn thì lại mất công làm lại. Nếu bạn muốn ghép hai cái lisp với nhau thì mình sẽ chỉ bạn ghép sau nhé. Hãy thử và cho ý kiến. Chúc bạn vui.
| ||
Tác giả: gia_bach Bài viết gốc: 91978 Tên lệnh: blk |
Viết lisp theo yêu cầu [phần 2]
Bạn tham khảo Lisp sau : hoặc Lisp TRIM giữa Block và các đối tuợng khác. http://www.cadviet.com/forum/index.php?sho...ost&p=81690
| ||
Tác giả: ketxu Bài viết gốc: 207561 Tên lệnh: bf2 |
[Yêu cầu] Lisp cắt đường thẳng giao với 1 đường thẳng
1. Bạn thay (* 0.5 d) thành d 2. Toàn Line : 3. Bạn tìm Google với từ khóa (defun c:bf cadviet. Lisp này trên diễn đàn có mấy cái rồi.K nhầm thì mới mấy hôm trước mình viết 1 cái kiểu thế theo yêu cầu haanh. Thực chất là thực hiện lệnh Break sau đó ấn F để cho phép chọn lại điểm đầu, sau đó điểm thứ 2 lấy trùng điểm đầu
| ||
Tác giả: gia_bach Bài viết gốc: 207586 Tên lệnh: brk2 |
[Yêu cầu] Lisp cắt đường thẳng giao với 1 đường thẳng
(1 +2 ) (defun C:brk2(/ d ent ipts ss) (defun ssget->ss-list (ss / i obj allobj) (setq i -1) (while (setq obj (ssname ss (setq i (1+ i))) ) (setq allobj (cons obj allobj)) ) allobj ) (defun break_obj (ent pt dis / brkpte brkpts len) (setq brkptS pt brkptE pt) (if (> dis 0) (progn (setq len (vlax-curve-getDistAtPoint ent pt)) (if (> len dis) (setq brkptS...
|
Trang 100/330