ADeko Technologies
http://www.adeko.com/phpBB3/

Yazıda satır yaparken.
http://www.adeko.com/phpBB3/viewtopic.php?f=3&t=2151		 1. sayfa (Toplam 1 sayfa)
Yazar:  yenal [ 27 Tem 2009 11:58 ]
Mesaj Başlığı:  Yazıda satır yaparken.
Firmada eskiden beri kullanılan intellicad programında örneğin ölçülendirme yazısında \p ile alt satıra atlanabiliyordu, Adekoda \P olmazsa bunu kabul etmiyor. 8 yılda oluşan tüm dosyalar için bu duruma çözüm varmı? Adekonun \p yi tanıması sağlanabilir mi?
Yazar:  Destek/Support [ 28 Tem 2009 12:01 ]
Mesaj Başlığı: 
Doğru, bu problemi bir dahaki ara güncellemede çözmek üzere not alıyoruz.

Geçici bir çözüm olarak, bir çizimdeki tüm \p leri \P ile değiştiren bir lisp kodu yazabiliriz, dilerseniz.
Yazar:  yenal [ 29 Tem 2009 18:17 ]
Mesaj Başlığı: 
Eğer kolay ise şimdilik lisp kodu ile çözmek isterim. Teşekkürler.
Yazar:  Destek/Support [ 29 Tem 2009 20:03 ]
Mesaj Başlığı: 
Aşağıdaki kod, çizimdeki tüm ölçülendirmeleri dolaşır ve içinde \p geçen ölçü yazılarını \P olarak değiştirir.

[code]
(defun c:<b>PPP</b> (/ i ss nmDim rbList szOld szNew)
(setq ss (ssget "X" '((0 . "DIMENSION"))))
(setq i 0)
(if (and ss (< 0 (setq sslen (sslength ss))))
(progn
(while (setq nmDim (ssname ss i))
(setq rbList (entget nmDim))
(setq szOld (cdr (setq rbOld (assoc 1 rbList))))
(if (setq szNew (strreplace szOld "\p" "\P"))
(entmod (subst (cons 1 szNew) rbOld rbList))
)
(setq i (1+ i))
)
)
)
(princ)
)

(defun strreplace (str old new / part1)
(if (setq part1 (parse str old))
(strcat part1 new (strreplace (parseRGT str old) old new))
str
)
)

(defun parseRGT (ktr what / Uktr i lenktr lenwhat)
(setq Uktr ktr ;(strcase ktr)
;what (strcase what)
lenktr (strlen ktr)
lenwhat (strlen what)
)
(setq i 1)
(while (and (<= i lenktr)
(/= what (substr Uktr i lenwhat))
)
(setq i (1+ i))
)
(if (<= i lenktr)
(substr ktr (+ i lenwhat))
""
)
)

(defun parse (ktr what / i)
(setq i 1)
(while (and (<= i (strlen ktr))
(/= what (substr ktr i (strlen what)))
)
(setq i (1+ i))
)
(if (<= i (strlen ktr))
(substr ktr 1 (1- i))
nil
)
)
[/code]
Yazar:  Destek/Support [ 31 Tem 2009 13:25 ]
Mesaj Başlığı: 
<i>yenal yazdı:</i>
<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote">
Teşekkür ederim, ölçülendirmelerdeki yazılar tamam. Eğer yazılar için de benzer bir çözüm varsa sevinirim.
Saygılarımla.

Konu kilitli olduğundan yeni konu açtım, bu mesajı ilk konuya ekleyebilirsiniz. <hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">
Yazar:  Destek/Support [ 31 Tem 2009 13:30 ]
Mesaj Başlığı: 
Yazı derken Metin nesnelerini kastediyorsunuz sanırım.

Programdaki 2.satırı şöyle değiştiriseniz, MTEXT nesneleri de kapsam içine alınır:

[code]
(setq ss (ssget "X" '( (-4 . "<OR") (0 . "DIMENSION") (0 . "MTEXT") (-4 . "OR>"))))[/code]
Yazar:  yenal [ 31 Tem 2009 14:20 ]
Mesaj Başlığı: 
Malesef tüm yazıların karakterleri ve içerikleri bozuluyor
Örnek dosya gönderebilieceğim bir mail adresi veya paylaşım ortamı varsa uygulama yaparak sonucu görebilirsiniz.
Yazar:  Destek/Support [ 31 Tem 2009 20:17 ]
Mesaj Başlığı: 
Gördük, düzeltiyoruz...
Yazar:  Destek/Support [ 01 Ağu 2009 13:52 ]
Mesaj Başlığı: 
9. satırı aşağıdaki gibi değiştirerek dener misiniz?

[code](if (setq szNew (strreplace szOld "<font color="red"><b>\</b></font id="red">\p" "<font color="red"><b>\</b></font id="red">\P"))[/code]

Yani tek ters kesmeler '\' çift olacak '\\'
1. sayfa (Toplam 1 sayfa) Tüm zamanlar UTC + 2 saat [ GITZ ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/