Arkadaşlar merhaba. .
elimde bir autocad projesi var. Burdaki bütün yazılar txt yazı tipinde yazılmış. Ben hepsini örneğin times new roman yapmak istiyorum. Acaba bunun bir yolu varmı? match properties komutu kullanmak istedim ancak yazıların üzerine tıkladığımda sadece yönlerini değiştiriyor. yazı tipine ve kalınlığına etkisi olmuyor. Acil yardımlarınızı bekliyorum. kontrol mühendisiyle başım belada açıkcası. . :(
Text style (yazı sitili) ve font kavramlarınız biraz biribirine karışmış.
sizin durumunuzda, bir text style'ın font'unu değiştirmek söz konusu.
bunun için style<┘ girip açılan pencerede ilgili text style'ı seçip font'unu değiştirmeniz yeterli.
text objelerinin text style'larını pratik olarak değiştirmek için de,
Kod:
(defun c:chgstyle (/ p nst l n e chm)
(setvar "cmdecho" 0) (command "undo" "group")
(if (not (setq p (ssget (list (cons 0 "*text"))))) (exit))
(setq chm 0 ost (strcase (getstring "\nold style: ")))
(if (= "" ost) (setq ost (cdr (assoc 7 (entget (car (entsel "\npick an object")))))))
(setq nst (strcase (getstring "\nnew style: ")))
(if (= "" nst) (setq nst (cdr (assoc 7 (entget (car (entsel "\npick an object")))))))
(setq l -1 n (sslength p))
(while (< (setq l (1+ l)) n)
(setq e (cdar (entget (ssname p l))))
(if (= ost (cdr (assoc 7 (setq f (entget e)))))
(progn
(setq f (subst (cons 7 nst) (assoc 7 f) f))
(entmod f) (setq chm (1+ chm)))))
(princ (strcat "\nchanged " (itoa chm) " object's text style"))
(command "undo" "e") (prin1)
)
Cevap için teşekkür ederim ancak ben anlayamadım tam anlamıyla. Bu kodla önceden yazılmış olan yazıların hepsini birden nasıl değiştireceğim. biraz daha açık anlatırmısınız?
