Đến nội dung


Hình ảnh

Định dạng font trong bản vẽ cad!


  • Please log in to reply
3 replies to this topic

#1 lhlaptecco5

lhlaptecco5

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 10 May 2011 - 09:17 AM

CTY mình muốn sử dụng một loại font cho tất cả bản vẽ autocad cho CTY mình xuất bản.
mình có một số vướn mắc, mong các chuyên gia Autocad giúp đỡ:
1. Chuyển tất cả các "Style" về một loại font nhanh nhất (mình đang chuyển bằng lệnh ST rồi chọn từng "Style" để chuyển, cách này chậm quá và đôi khi có bản vẽ có cả trăm Style)

2. Chuyển mã giữa các font với nhau

Thank!
  • 0

#2 huyphan

huyphan

    biết dimbaseline

  • CADViet Team
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 71 (tàm tạm)

Đã gửi 10 May 2011 - 09:34 AM

Bản vẽ cả hàng trăm Style? chắc là Copy và Paste chứ gì. Các BV chuyên nghiệp thường chỉ có 1 vài Style thôi. Đúng và đẹp.
Các cao thủ có lisp nào giúp bạn ấy đi.
  • 0

#3 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 10 May 2011 - 09:41 AM

Vấn đề của bạn đã bàn nhiều trên diễn đàn
1.Ví dụ 1 : Đối sang font Romans.shx
(defun c:cf()
(command "undo" "be")
(vlax-for x (vla-get-textstyles
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-put-fontfile x "Romans.shx"))
(command "regen")
(command "undo" "en")
Ví dụ 2 : đổi thêm 1 số thứ khác của style :
(defun C:cf (/ FontName tH tW tO)
(command "undo" "be")
(setq oCmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq tbl (tblnext "STYLE" T)
FontName (getstring "\nT\U+00EAn Font :")
tH (getreal "\nChi\U+1EC1u cao Text :")
tW (getreal "\nWidth Factor :")
tO (getangle "\nG\U+00F3c :")
)
(while tbl
(command "-style"
(cdr (assoc 2 tbl))
FontName
tH
tW
tO
"N"
"N"
"N"
)
(setq tbl (tblnext "STYLE"))
)
(setvar "cmdecho" oCmd)
(command "undo" "en")
(princ)
)

2.ChUnicode

P/S : nhắc bạn post đúng topic và tìm kiếm trước khi hỏi
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#4 linhctr

linhctr

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 23 October 2013 - 07:41 AM

:mellow:


  • 0