Font Style Problem

Hi AUGI Members,

I have a lisp routine that creates a font style on the fly and then places the text string. However, on a few workstations the routine fails stating it cannot create that font style and I have no idea why this is happening because the "Arial.ttf" font style is installed on all workstations.

Below is an example of the code that is failing on several workstations......and it would be greatly appreciated if anyone could identify the problem or recommend / suggest how to resolve this issue..!!

Code:

---

(Defun C:TX18 ()
  (SetVar "CMDECHO" 0)
  (Setq DTS (TBLSEARCH "STYLE" "TXT18"))
  (IF (= DTS NIL)(Progn
    (Command "-Style" "TXT18" "Arial.ttf" "8.7" "1" "0" "N" "N")
    (COMMAND "SETVAR" "TEXTSTYLE" "TXT18")
    ))
 
  (Command "Dtext")
  (Setq DTS NIL)
  (SetVar "CMDECHO" 1)
)

---

Thank you in advance for your assistance,
CADdancer

Just a thought, you mention that the fonts are installed in all machines..
Where are the fonts? Are they in Windows\fonts? or some other location?
Do you have the proper support and trusted paths for all the machines?
In other words, maybe AutoCAD can't find them because they are not in the support path list

Hi Ted,

Thank you for your response..!! We have approximately 175 workstations running AutoCAD and only 3-5 are experiencing this problem, However, I did go on one of the stations where this is happening and incorporated the "C:\Windows\Fonts" path in the "Options-->Support File Search Path" and it did not resolve the difficulty..!!


Any other thoughts..??


Thank you,
CADdancer

Quote:

---

Originally Posted by CADdancer

Hi Ted,

Thank you for your response..!! We have approximately 175 workstations running AutoCAD and only 3-5 are experiencing this problem, However, I did go on one of the stations where this is happening and incorporated the "C:\Windows\Fonts" path in the "Options-->Support File Search Path" and it did not resolve the difficulty..!!


Any other thoughts..??


Thank you,
CADdancer

---

No new thoughts at this time.
Quick question, did you restart AutoCAD on that station you added the support path?
If you didn't you might want to try that first and then run the lisp.

TrueType and OpenType (ttf & otf extensions) do not need to be in the support path for AutoCAD. As long as they are properly installed in Windows, they should work. Verify that they are available in other Windows applications (word, excel, powerpoint, and if they work there, then they ought to be available in Acad.

If not, try removing them from the problem machines, and re-installing the ttf from a machine that works. possibly the files are corrupted just enough for Acad to fubar on them.

[QUOTE=CADdancer;1343951]Hi AUGI Members,

I have a lisp routine that creates a font style on the fly and then places the text string. However, on a few workstations the routine fails stating it cannot create that font style and I have no idea why this is happening because the "Arial.ttf" font style is installed on all workstations.

Your code only sets TXT18 current if it's not found and setting TX18 as a global variable may conflict with a command or function on one of those workstations. This version doesn't use any global variables and always starts Dtext with TXT18 as the current style.

Code:

---

(Defun C:TX18 ()
 (setvar "CMDECHO" 0)
 (or
  (TBLSEARCH "STYLE" "TXT18")
  (command-s "-Style" "TXT18" "Arial.ttf" "8.7" "1" "0" "N" "N")
 )
 (setvar "TEXTSTYLE" "TXT18")
 (command "Dtext")
 (setvar "CMDECHO" 1)
)

---

Thank you for your response Tom..!!

This problem only exists on 2 - 3 workstations......on all other computers the code works fine. I would think if the code created a conflict it would occur on all workstations..??


Thank you,
CADdanced

Quote:

---

Originally Posted by CADdancer

Thank you for your response Tom..!!

This problem only exists on 2 - 3 workstations......on all other computers the code works fine. I would think if the code created a conflict it would occur on all workstations..??


Thank you,
CADdanced

---

Assuming the Text Style was modified in the drawings open on those PC's removing the "if" in your code will either add or fix the TXT18 Text Style which should work properly on all workstations.

Code:

---

(Defun C:TX18 ()
  (SetVar "CMDECHO" 0)
  (Command "-Style" "TXT18" "Arial.ttf" "8.7" "1" "0" "N" "N")
  (COMMAND "SETVAR" "TEXTSTYLE" "TXT18")
  (Command "Dtext")
  (SetVar "CMDECHO" 1)
)

---