autocad
(6 bài viết)
-
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 block_rename , hoặc bạn có thể đổi tên hàm thành chuỗi dễ nhớ hơn.;; Rename block (defun c:block_rename (/ 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) )
