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?

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.

Eğer kolay ise şimdilik lisp kodu ile çözmek isterim. Teşekkürler.

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]

<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">

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]

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.

Gördük, düzeltiyoruz...

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 '\\'