Visual LISP, AutoLISP and General Customization

Reply
Member
Posts: 3
Registered: ‎08-08-2003
Message 1 of 2 (319 Views)

Find what fonts are missing

319 Views, 1 Replies
09-12-2012 01:28 PM

We are receiving drawings from all around the globe and obviously people “forget” to send font files within the drawings.

As a result wile opening we are recieve something like this:

Substituting [simplex.shx] for [휴먼엑스포].

Substituting [simplex.shx] for [Malgun Gothic].

Substituting [simplex.shx] for [-윤고딕120].

Substituting [simplex.shx] for [HY울릉도M].

Substituting [simplex.shx] for [휴먼엑스포].

Substituting [simplex.shx] for [-윤고딕130].

Substituting [simplex.shx] for [-윤고딕150].

 

I want to take “automated” care of this, but need to get list of missing fonts in Autolisp.

Script:

(vlax-for style (vla-get-TextStyles

                  (vla-get-ActiveDocument

                    (vlax-get-acad-object)

                  )

                )

  (print

    (list

      (vla-get-Name style)

      (vla-get-fontFile style)

      (vla-get-BigfontFile style)

    )

  )

)

 

Returns:

("SSSSSSS" "" "")

("STANDARD" "symbol.ttf" "")

("??? ??" "malgun.ttf" "")

("XADOS000MP1$0$z_???? ???(?????)$0$Standard" "txt.shx" "whgtxt.shx")

("XADOS000MP1$0$z_???? ???(?????)$0$??? ??" "" "")

("XADOS000MP1$0$z_???? ???(?????)$0$SITE2008$0$SITE0113(???)$0$GHS" "" "")

("XADOS000MP1$0$z_???? ???(?????)$0$SITE2008$0$STANDARD" "" "")

("XADOS000MP1$0$z_???? ???(?????)$0$????" "DotumChe.ttf" "")

("handlet" "handlet.shx" "")

("KEY-HANDLET" "handlet.shx" "")

("z_???? ???(?????)$0$SIM1" "simplex.shx" "")

("???" "Dotum.ttf" "")

("forrec-dim-handlet" "handlet.shx" "")

("HDEC" "" "")

("???-???" "" "")

("hsw" "romans.shx" "whgtxt.shx")

("SIM" "simplex.shx" "")

 

So instead of missing font's name  it returns “”.

Command STYLE shows all the names, so they are somewhere in database.

Please help me to find the right procedure.

 

Thank you in advance

Distinguished Contributor
Posts: 205
Registered: ‎09-04-2002
Message 2 of 2 (291 Views)

Re: Find what fonts are missing

09-14-2012 03:50 AM in reply to: software

Hi,

Have a look to mappage and file name acad.fmp to substitue policy.

No need lisp.

 

romanc.shx;times.ttf

 

Daniel OLIVES

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Announcements
Are you interested in helping shape the Autodesk Community?
We’re looking at a few different ways to improve the “All Forums” landing page and need your feedback! If interested, please take a few minutes to fill out the following Usability Study. Thank you for your time!

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community