Topic: Geographiclocation command in lisp

[dubb]

Is there a geograpphiclocation command or variable in lisp? I want to set my drawing environment without the dialogue windows.

[VovKa]

it is most likely stored somewhere in the dictionary
compare the output of (entget (namedobjdict) (list "*")) before and after assigning geograpphiclocation

[dubb]

It seems like the dictionary list of entities are the same. I haven't looked any deeper into each entity yet.

Blank cad file

Code: [Select]

((-1 . <Entity name: 2060781e8c0>) (0 . "DICTIONARY") (330 . <Entity name: 0>) (5 . "C") (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "ACAD_CIP_PREVIOUS_PRODUCT_INFO") (350 . <Entity name: 20607816830>) (3 . "ACAD_COLOR") (350 . <Entity name: 2060781ee30>) (3 . "ACAD_DETAILVIEWSTYLE") (350 . <Entity name: 2060781eea0>) (3 . "ACAD_GROUP") (350 . <Entity name: 2060781e8d0>) (3 . "ACAD_LAYOUT") (350 . <Entity name: 2060781ee20>) (3 . "ACAD_MATERIAL") (350 . <Entity name: 2060781e900>) (3 . "ACAD_MLEADERSTYLE") (350 . <Entity name: 2060781ee60>) (3 . "ACAD_MLINESTYLE") (350 . <Entity name: 2060781edf0>) (3 . "ACAD_PLOTSETTINGS") (350 . <Entity name: 2060781ee10>) (3 . "ACAD_PLOTSTYLENAME") (350 . <Entity name: 2060781e8e0>) (3 . "ACAD_SCALELIST") (350 . <Entity name: 2060781ec20>) (3 . "ACAD_SECTIONVIEWSTYLE") (350 . <Entity name: 2060781ee80>) (3 . "ACAD_TABLESTYLE") (350 . <Entity name: 2060781ee40>) (3 . "ACAD_VISUALSTYLE") (350 . <Entity name: 2060781ea90>) (3 . "AcDbVariableDictionary") (350 . <Entity name: 206078168a0>))

After adding geographiclocation

Code: [Select]

((-1 . <Entity name: 2060781e8c0>) (0 . "DICTIONARY") (330 . <Entity name: 0>) (5 . "C") (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "ACAD_CIP_PREVIOUS_PRODUCT_INFO") (350 . <Entity name: 20607816830>) (3 . "ACAD_COLOR") (350 . <Entity name: 2060781ee30>) (3 . "ACAD_DETAILVIEWSTYLE") (350 . <Entity name: 2060781eea0>) (3 . "ACAD_GROUP") (350 . <Entity name: 2060781e8d0>) (3 . "ACAD_LAYOUT") (350 . <Entity name: 2060781ee20>) (3 . "ACAD_MATERIAL") (350 . <Entity name: 2060781e900>) (3 . "ACAD_MLEADERSTYLE") (350 . <Entity name: 2060781ee60>) (3 . "ACAD_MLINESTYLE") (350 . <Entity name: 2060781edf0>) (3 . "ACAD_PLOTSETTINGS") (350 . <Entity name: 2060781ee10>) (3 . "ACAD_PLOTSTYLENAME") (350 . <Entity name: 2060781e8e0>) (3 . "ACAD_SCALELIST") (350 . <Entity name: 2060781ec20>) (3 . "ACAD_SECTIONVIEWSTYLE") (350 . <Entity name: 2060781ee80>) (3 . "ACAD_TABLESTYLE") (350 . <Entity name: 2060781ee40>) (3 . "ACAD_VISUALSTYLE") (350 . <Entity name: 2060781ea90>) (3 . "AcDbVariableDictionary") (350 . <Entity name: 206078168a0>))

[mjfarrell]

I think this document answers your question....

GEO Location Informationl

[VovKa]

Is there a geograpphiclocation command or variable in lisp? I want to set my drawing environment without the dialogue windows.

have you tried (setvar "LATITUDE" Deg) and (setvar "LONGITUDE" Deg)?

[Mark]

Is there a geograpphiclocation command or variable in lisp? I want to set my drawing environment without the dialogue windows.

I use this.

Code: [Select]

(defun set-state-plane ()
  (if (ade_projsetwscode "FL83-WF")
    (prompt "Changed to NAD83, Florida State Plane, West Zone, US Survey Foot")
    )
  (princ)
  )