Info | File | ||
Tác giả: quoccuongvkt Bài viết gốc: 11968 Tên lệnh: ff |
AutoCAD với Excel
có bác nào có list chuyển từ exell sang cad xin gởi cho mình với, mình làm thống kêt thép trên exell nhưng mà chuyển qua cad rất khó khăn
| ||
Tác giả: Detailing Bài viết gốc: 200622 Tên lệnh: cir lisp |
Điều khiển AutoCAD bằng VC++ (ObjectARX)
Hôm nay, tự nhiên thắc mắc vì sao mình sử dụng ARX làm gì cho phức tạp nhỉ? Do nghe người ta đồn nó chạy nhanh lắm??? OK, vậy làm 1 cái test thử xem nó chạy nhanh đến mức nào và có đáng để "gặm" tiếp ko. Do chỉ biết có vài thứ nên biết bao nhiêu xài bấy nhiêu. yêu cầu test...
| ||
Tác giả: TaiNguyen79 Bài viết gốc: 250759 Tên lệnh: lw all |
XIN LISP
| ||
Tác giả: TaiNguyen79 Bài viết gốc: 250760 Tên lệnh: lw all |
XIN LISP
Còn nếu muốn change theo màu thì dùng như vầy : (defun c:lw_all (/ lw eg cor) (if (= (getvar "lwunits") 0) (setvar "lwunits" 1)) (setq lw (cdr (assoc 370 (setq eg (entget (car (entsel "\nselect obj : ")))))) cor (cdr (assoc 62 eg))) (if (null cor) (setq cor 256)) (cond ((null lw) (setq lw "bylayer")) ((= lw -2) (setq lw "Byblock")) ((= lw -3) (setq lw "default")) (T (setq lw (* 0.01 lw)))) (command ".change" (ssget "X" (list (cons 62 cor))) "" "P" "LW" lw...
| ||
Tác giả: TaiNguyen79 Bài viết gốc: 251323 Tên lệnh: laytd |
Cần giúp đỡ chỉnh sửa lisp chạy tọa độ
Chắc có lẽ ai cũng ngại sửa code. Hãy dùng lsp này nếu thấy đc ;--------------------------------------- ;lay toa do thuan chieu kim dong ho (defun c:laytd (/ p bound k lstpt lstx lsty newlst i bien t1 p1 diem x y ymax kmax n c new name ltext diemve pt p1 p2 p3 p4 p5 p6 pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt12 pt13...
| ||
Tác giả: hochoaivandot Bài viết gốc: 251590 Tên lệnh: ttt |
Lisp vẽ pline qua các text theo giá trị tăng dần
(defun LM:ss->ent ( ss / i l )
| ||
Tác giả: KangKung Bài viết gốc: 251996 Tên lệnh: test |
Lisp xoay bản vẽ trong khung chữ nhật Layout
Bạn thử Lisp này xem: (defun C:test( / n vp) (vl-load-com) (if (= (getvar "Tilemode") 0) (progn (if (/= (getvar "cvport") 1) (command "PSPACE")) (setq vp(car(entsel "\n Select viewport:"))) (setq n(cdr(assoc 69 (entget vp)))) (command "MSPACE") (setvar "cvport" n) (vla-put-twistangle (vlax-ename->vla-object vp) (/ pi 4)) (command "Zoom" "E") ) (alert "\n Chuyen sang Layout truoc khi...
| ||
Tác giả: HoaVien Bài viết gốc: 252012 Tên lệnh: rv |
Lisp xoay bản vẽ trong khung chữ nhật Layout
Sài thử Lisp này xem :
(defun c:rv( / n vp) (vl-load-com) (if (= (getvar "Tilemode") 0) (progn (if (/= (getvar "cvport") 1) (vla-Put-MSpace (vla-Get-ActiveDocument (vlax-Get-Acad-Object)) :vlax-False)) (prompt "\nChont viewport can xuay: ") (if (and (setq ss (ssget ":S+." '((0 . "VIEWPORT")))) (setq ang (getangle "\nNhap goc xuay: "))) (vla-Put-TwistAngle (vlax-EName->vla-Object (ssname ss 0)) ang) )...
| ||
Tác giả: toiyeuvietnam Bài viết gốc: 246026 Tên lệnh: ldd duong |
Lisp tạo các Layer cho trước trong một bản vẽ mới
cảm ơn anh Ket, gõ lệnh đó như vậy đúng là ổn rồi. em gộp cái CELTSCALE vào trong cái DUONG thì nó báo lỗi ; error: no function definition: C:CELTSCALE (không có định nghĩa chức năng: C: CELTSCALE). em gộp như vậy sai chỗ nào ảnh nhỉ?
(defun C:LDD() (c:CELTSCALE...
| ||
Tác giả: Skywings Bài viết gốc: 252462 Tên lệnh: t1 |
Biện pháp tăng tốc độ trong các chương trình Lisp
| ||
Tác giả: gia_bach Bài viết gốc: 252484 Tên lệnh: addpoint |
Biện pháp tăng tốc độ trong các chương trình Lisp
Gửi anh em hàm "phun" ngẫu nhiên 1 số Point để test. ;;generate random points (defun c:addPoint() ;;from internet (defun random () (setq seed (if seed (rem (+ (* seed 15625.7) 0.21137152) 1) 0.3171943 ) )) (defun random-n (n) (* n (random))) ;main (repeat 100000 ;2D Point (entmake (list (cons 0 "POINT") (cons 10 (list (random-n 100000) (random-n 60000) 0)) ) ) ) (repeat 5000 ;3D Point (entmake (list (cons...
| ||
Tác giả: gia_bach Bài viết gốc: 252484 Tên lệnh: test |
Biện pháp tăng tốc độ trong các chương trình Lisp
Gửi anh em hàm "phun" ngẫu nhiên 1 số Point để test. ;;generate random points (defun c:addPoint() ;;from internet (defun random () (setq seed (if seed (rem (+ (* seed 15625.7) 0.21137152) 1) 0.3171943 ) )) (defun random-n (n) (* n (random))) ;main (repeat 100000 ;2D Point (entmake (list (cons 0 "POINT") (cons 10 (list (random-n 100000) (random-n 60000) 0)) ) ) ) (repeat 5000 ;3D Point (entmake (list (cons...
| ||
Tác giả: hiepttr Bài viết gốc: 252562 Tên lệnh: ddd |
đo đường polyline
Viết bậy cho qua ngày Bạn dùng đc thì dùng, ko dc thì cũng đừng ném đá :D :D :D ;dim nhanh (defun c:DDD( / sel pl pre group) (setq sel (car (entsel "\nChon polyline: "))) (command ".copy" sel "" (list 0 0 0) "@0,0,0") (setq pl (entlast)) (command ".explode" pl) (setq pre pl group (ssadd) ) (while (setq pre (entnext pre)) (setq group (ssadd pre group)) ) (setq i 0) (while (< i (sslength group)) (progn (setq ename (ssname group...
| ||
Tác giả: huunhantvxdts Bài viết gốc: 252656 Tên lệnh: xotxt |
Mã dfx của text
Tôi đang viết lisp xử lý text có 1 vướng mắc chưa hiểu mong mọi người giúp đỡ Lisp thứ 1 Tính tổng các text chọn trên màn hình thay vào 1 text đã có trên màn hình text kết quả tự đổi màu (nhằm kiểm soát việc tính toán) vướng mắc là nếu text chọn để thay kết quả vơi màu của text không phải màu layer thì kết quả đúng ý muốn, còn ngược lại màu text là màu layer thì...
| ||
Tác giả: huunhantvxdts Bài viết gốc: 252656 Tên lệnh: ccc |
Mã dfx của text
Tôi đang viết lisp xử lý text có 1 vướng mắc chưa hiểu mong mọi người giúp đỡ Lisp thứ 1 Tính tổng các text chọn trên màn hình thay vào 1 text đã có trên màn hình text kết quả tự đổi màu (nhằm kiểm soát việc tính toán) vướng mắc là nếu text chọn để thay kết quả vơi màu của text không phải màu layer thì kết quả đúng ý muốn, còn ngược lại màu text là màu layer thì...
| ||
Tác giả: Tue_NV Bài viết gốc: 253149 Tên lệnh: fz |
Giúp dùm em lệnh Tolerance!
| ||
Tác giả: Skywings Bài viết gốc: 252524 Tên lệnh: test2 |
Biện pháp tăng tốc độ trong các chương trình Lisp
Sót là sót thế nào :huh: ? Có lẽ bạn chưa hiểu ý mình. Nếu bạn cũng cho rằng SSGET ko thể chọn tập điểm 3d thì hãy thử code mình post ở bài #15 nhé, xem có lọt điểm 3d nào trong vùng chọn...
| ||
Tác giả: Tue_NV Bài viết gốc: 253552 Tên lệnh: nent |
Hàm ssget trong Autolisp
| ||
Tác giả: duy782006 Bài viết gốc: 34368 Tên lệnh: textfitm |
Xin các pác viết dùm lisp ở lệnh text fit
Lệnh là TEXTFITM. -Vì áp dụng cho nhiều text nên tiện ích không tự nhận điểm đầu tiên mà bạn phải chọn cả điểm bắt đầu và kết thúc (nhập giá trị độ dài bằng số cũng được). -Tiện ích chỉ thay đổi độ rộng các dòng text bằng với khoảng độ dài mới (chọn 2 điểm hoặc nhập giá trị số) còn lại điểm canh lề thứ nhất và góc quay vẫn giữ nguyên.
| ||
Tác giả: girl Bài viết gốc: 241022 Tên lệnh: jff |
Lisp chuyển Line sang PL !
Vâng, anh có cho em xin cái EXplode, cảm ơn anh đã gợi ý, em làm được rồi : (defun C:jff() (SETQ SS (SSGET)) (command ".pedit" "M" ss "" "Y" "X" "") (princ) )
|
Trang 142/330