fon çıktıda içi boş gözüküyor | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 267, Üye: 1
mttlp

Detaylar »

Forumlar > AutoCAD Acil Yardım > fon çıktıda içi boş gözüküyor

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
17.08.2012 09:06 69784	mateus Üstad 446 ileti tek.öğrt ist
yazı fontu ekranda dolu iken eps aldığımda içi boş gözüküyor nedeni sizce neolabilir

17.08.2012 09:14 69785	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Fillmode değeri değişecekti sanırım

17.08.2012 17:59 69797	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
TEXTFILL<┘1<┘ Beğenmek için anlamak lazım...

25.08.2012 18:39 69827	mateus Üstad 446 ileti tek.öğrt ist
teşekkürler

09.10.2015 05:48 82150	halilozcakir Üstad 608 ileti Mekanik Teknik Ressam /Teniker İstanbul
merhaba aynı sorun bende de var ve TEXTFILL de işe yaramadı , sorun fontlarda sanırım yazı fontları için style leri birleştiren bir komut yada lisp vardı ama bulamadım arkadaşlar güncel sorun arkadaşlar laytrans ile layerlarda olduğu gibi , text stylerini birleştirmeliyim ama nasıl halilozcakir (12.10.2015 09:30 GMT)

17.10.2015 07:19 82224	halilozcakir Üstad 608 ileti Mekanik Teknik Ressam /Teniker İstanbul
Merhaba bu text style tipler çok fazla ve birleştirmem gerekli. (acaba dosya boyutuna boyut yönünden nasıl etki eder ? ) Prohibit hocamızın lispi bende tam çalışmadı , aşağıdaki lispi deneyebilir misiniz arkadaşlar ? tarayıcımdaki sorun nedeniyle kod yapıştıramıyorum site yönetimi dikkatine. ;\|**************************************************************************\|; ;\| ChStyL: Change Text StyLe. \|; ;\| Seçilen Text Objeleri içindeki belirlenen Text Style'a sahip objelerin \|; ;\| Text Style'larını Seçilen Objeninkine Degiştirir. \|; ;\|---------------------------------------------------------------------------\|; (defun C:ChStyL (/ chm p ost nst n e) (ssv) (if (setq chm 0 p (ssget (list (cons 0 "Text")))) (progn (if (= "" (setq ost (getstring "\nOld style: "))) (setq ost (cdr (assoc 7 (entget (car (entsel "pick an object."))))))) (if (= "" (setq nst (getstring "\nNew style: "))) (setq nst (cdr (assoc 7 (entget (car (entsel "pick an object."))))))) (setq n (sslength p)) (while (not (minusp (setq n (1- n)))) (if (= ost (cdr (assoc 7 (setq e (entget (ssname p n)))))) (setq e (subst (cons 7 nst) (assoc 7 e) e) e (entmod e) e (entupd (cdr (assoc -1 e))) chm (1+ chm)))))) (princ (strcat "\nChanged " (itoa chm) " text lines")) (rsv))

17.10.2015 08:26 82227	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı halilozcakir : Hocamizin yazdigi kodda (ssv) ve (rsv) adinda bilinmeyen 2 modul var. (tabi siz kodu buraya eksik yapistirmadiysaniz.) Kod: (defun c:st (/ ss r o i ob) (vl-load-com) (if (setq ss (ssget '((0 . "text")))) (progn (prompt "\nSelect the reference object (Old Style):") (if (setq r (ssget ":s" '((0 . "text")))) (progn (prompt "\nSelect the reference object (New Style):") (if (setq o (ssget ":s" '((0 . "*text")))) (progn (repeat (setq i (sslength ss)) (setq ob (vlax-ename->vla-object (ssname ss (setq i (1- i))))) (if (= (vla-get-StyleName ob) (vla-get-StyleName (vlax-ename->vla-object (ssname r 0)))) (vla-put-StyleName ob (vla-get-StyleName (vlax-ename->vla-object (ssname o 0)))))) ) ) ) ) ) ) (princ) )

17.10.2015 09:18 82228	halilozcakir Üstad 608 ileti Mekanik Teknik Ressam /Teniker İstanbul
Linkleri görebilmek için ÜYE olmalısınız. alumina haklısın olabilir lispi buradan aldım birçok fonksiyon arasından kestim . komutu girip all ile komple seçim bir adet de baz textstyle seçince çalışmıyor . tek tek seçince çalışıyor. komutu gir , tek obje seç , eski stil tıkla , yeni stil tıkla. bunu; komutu gir , tümünü seç , yeni stil tıkla , şeklinde yapamadım.

17.10.2015 10:04 82232	alumina Editör 769 ileti Insaat Muhendisi Istanbul
komutu gir, nesneleri sec enterle , eski stili sec, yeni stili sec. bitti.

17.10.2015 10:34 82234	halilozcakir Üstad 608 ileti Mekanik Teknik Ressam /Teniker İstanbul
olmadı , eski stil birden fazla olduğundan çalışmıyor galiba

17.10.2015 12:08 82235	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı halilozcakir : Revize ettim. eski stil, nesneleri sec enter, yeni stil Kod: (defun c:st (/ ss r o i ob) (vl-load-com) (prompt "\nSelect the reference object (Old Style):") (if (setq r (ssget ":s" '((0 . "text")))) (progn (if (setq ss (ssget (list (cons 0 "text") (cons 7 (cdr (assoc 7 (entget (ssname r 0)))))))) (progn (prompt "\nSelect the reference object (New Style):") (if (setq o (ssget ":s" '((0 . "*text")))) (progn (repeat (setq i (sslength ss)) (setq ob (vlax-ename->vla-object (ssname ss (setq i (1- i))))) (if (= (vla-get-StyleName ob) (vla-get-StyleName (vlax-ename->vla-object (ssname r 0)))) (vla-put-StyleName ob (vla-get-StyleName (vlax-ename->vla-object (ssname o 0)))))) ) ) ) ) ) ) (princ) )

19.10.2015 13:02 82244	halilozcakir Üstad 608 ileti Mekanik Teknik Ressam /Teniker İstanbul
Alıntı alumina : komutu gir, nesneleri sec enterle , eski stili sec, yeni stili sec. bitti. şöyle çoğaltılabilir mi ; komutu gir, nesneleri sec enterle , eski stilleri sec, yeni stili sec.

19.10.2015 13:24 82245	alumina Editör 769 ileti Insaat Muhendisi Istanbul
bu daha pratik.

> 1 <