autolisp
(2 bài viết)
-
lisp tạo thước đo góc Thực ra cái này thì bạn có thể hoàn toàn tạo được bằng lệnh ARRAYPOLAR nhưng việc đánh số khá mất thì giờ; vậy nên bạn có thể tham khảo lisp này.(defun c:nosine_tdg360 ( / pt r ang p x y txt) (setq pt (getpoint "\nChọn tâm đường tròn: ")) ; Tâm đường tròn (setq r (getreal "\nNhập bán kính đặt số: ")) ; Khoảng cách ra ngoài (setq ang 0) ; Bắt đầu từ góc 0 độ (repeat 36 (setq p (* pi (/ ang 180.0))) ; Chuyển độ sang radian (setq x (+ (car pt) (* r (cos p)))) (setq y (+ (cadr pt) (* r (sin p)))) (setq txt (strcat "GOC=" (itoa ang))) (command "TEXT" (list x y) "0" "5" "0" txt) (setq ang (+ ang 10)) ; Tăng lên 10 độ mỗi bước ) (princ "\nĐã đánh số đủ số góc quanh đường tròn.") (princ) )Để sử dụng lisp này, bạn cần tạo thêm 1 file txt ngang hàng với file này có nội dung dạng:GOC=0 GOC=10 GOC=20 GOC=30 GOC=40 GOC=50 GOC=60 ... GOC=350Cuối cùng, thực hiện lệnh valedrat_tdg360 để vẽ thước đo góc 360deg -
lisp đổi tên block cho tất cả các block có cùng tên Lưu code sau vào file .lsp => sau đó vào autocad nhập lệnh APPLOAD với chế độ always để load lisp này vào.Để sử dụng, vui lòng nhập lệnh nosine_rnbl , hoặc bạn có thể đổi tên hàm thành chuỗi dễ nhớ hơn.;; Rename block (defun c:nosine_rnbl (/ find replace blocks blkName newname) ;; Input (setq find (getstring "\nNhập tiền tố ban đầu (vd: EL_TE-): ")) (setq replace (getstring "\Nhập tiền tố sau khi thay thế (vd: ME_TE-): ")) ;; Duyệt tất cả block definitions (setq blocks (tblnext "BLOCK" T)) (while blocks (setq blkName (cdr (assoc 2 blocks))) ;; Bỏ qua block ẩn hoặc xref (if (and (/= (logand (cdr (assoc 70 blocks)) 1) 1) (wcmatch blkName (strcat find "*"))) (progn ;; str_replace (setq newname (vl-string-subst replace find blkName)) ;; Gọi lệnh RENAME của autocad (princ (strcat "\nRenaming: " blkName " -> " newname)) (command "_.RENAME" "Block" blkName newname) ) ) ;; next block (setq blocks (tblnext "BLOCK")) ) (princ "\nHoàn tất.") (princ) )
