Hani Rezayan

اگر از قدرت و تجربه لازم براي جمع کردن اجزا ناشي از تجزيه و تحليل و ايجاد بازسازي را نداريم به تجزيه و تحليل هيچ پديده يا شخصي نپردازيم که جز دردسر و دلخوري نتيجه اي به بار نمي آيد.

1. استفاده از برنامه ليسپ KATEB روش استاندارد است. توجه داشته باشيد که در تعريف Style براي متن هايي که بدين ترتيب نوشته مي شوند حالت Backward را فعال کنيد.
2. استفاده از فونت هاي Glyph مانند IPT. دو روش پيشنهادي براي اين منظور عبارتند از:

• استفاده از نرم افزارهاي واسطي که متن را به فرمت IPT تبديل مي نمايند مانند IPT5. مشکل معمول اين نرم افزارها عدم انتقال مستقيم برخي حروف به محيط CAD است که با Paste کردن متن در محيطي مانند MS Word و سپس انتقال از محيط MS Word به محيط CAD مشکل برطرف مي گردد.
• استفاده از کتابخانه FarsiConverter که من تهيه کرده ام و در اين وبلاگ ارائه نموده ام که نيازمند کمي برنامه نويسي است اما انعطاف پذيري بالايي را به همراه مي آورد. مثلا کد زير موقعيت، ارتفاع و متن را از کاربر مي گيرد و آن را به صورت IPT درج مي نمايد. مي توانيد قابليت اخذ جهت را نيز به آن بيافزاييد.
  

Dim fpc As New FarsiConverter.clsFarsiConverter

Sub add_ipt_text()

On Error GoTo add_ipt_text_Error

Dim insertionPoint As Variant
insertionPoint = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
On Error GoTo add_ipt_text_Error

Dim height As Double
height = ThisDrawing.Utility.GetReal("Enter text height:")
On Error GoTo add_ipt_text_Error

Dim txt As String
txt = InputBox("Enter your text here:", "IPT Text Writer")

Dim textObj As AcadText
Set textObj = ThisDrawing.ModelSpace.AddText(fpc.ASCII_to_IPT(txt), insertionPoint, height)

On Error GoTo 0
Exit Sub

add_ipt_text_Error:

End Sub