Passdaten von VBA nach LISP

[carry]

hi.
ich installierte autocad 2012, die funktion unten, die daten von vba zu lisp, mit 2008 war perfekt funktioniert, jetzt mit 2012 es nicht mehr funktioniert.
das problem liegt in sym, wird als objekt erklärt, aber offensichtlich nicht genug, jemand hat irgendeine idee?
danke.

in lokalen variablen ich habe gelesen:
symbolname ="#listanomi" und ist ok
wert ="()" und ist ok sym = nichts vl è ok mi da "visual lisp"


sub putlisp(symbolname als string, wert als string)
dim sym als Objekt
Wenn nichts ist
set vl = thisdrawing.application.getinterfaceobject("vl.application.16")
'set vl = createobject('vl.application.16')end, wennset sym = vl.activedocument.functions.item("read").funcall(symbolname)vl.activedocument.functions.item("set"). funcall sym, wert
Endteil

 

[rpor66]

ich würde sagen, vl.application.18 und nicht 16.
Bye

 

[carry]

hallo rpor66
immer verfügbar, danke.
ich dachte, er hätte die 16 mit einer anderen nummer geändert. .
ich versuchte zu ändern, aber es macht mich falsch und akzeptiert keine anderen zahlen.
ich hatte diese routine hier. http://autolisp-exchange.com/forums/forum6/f6t8p1.htm vielleicht für diejenigen, die besser wissen, könnte die vba einige zusätzliche indikation finden
hallo und danke

 

[rpor66]

welche bibliothek in vba referenzen haben sie hochgeladen?
ich bitte sie, warum sie das erstelltobject("vl.application.16") verwenden, müssen sie unbedingt an vba kommunizieren, welche bibliothek verwendet werden soll.

bye

 

[carry]

hallo rpor66
wie ich immer denke, dass sie uns wahrscheinlich richtig bekommen, im autocad 2008 ich hochgeladene visuelle lisp acttivex modul, vl16.tbl, ist im autocad2xxx ordner.
jetzt kann ich nicht verifizieren, dass ich nur 2008 habe, sobald ich verifizieren kann, und ich werde sie wissen lassen.
danke.
hi.

 

[carry]

hi.
tut mir leid, dass ich zu spät bin, aber ich bin wieder im urlaub.
bestätigen, dass in autocad 2012 die visuelle bibliothek lisp bleibt vl16 und befindet sich
im hauptautocad-ordner und wird vl16.tlb genannt.
ich kehre zur ersten frage zurück, ich habe diese programmlinien
wenn ich f8 verwendet, um schritt für schritt zu überprüfen, es funktioniert,
es zu drehen will nicht funktionieren.

in lokalen variablen ich habe gelesen:
symbolname = "#listanomi" und ist ok
wert ="(hea200)" und ist ok sym = nichts vl è ok mi da "visual lisp"


sub putlisp(symbolname als string, wert als string)
dim sym als objekt
wenn es nichts ist
set vl = thisdrawing.application.getinterfaceobject("vl.application.16")
set vl = createobject("vl.application.16")
Endeset sym = vl.activedocument.functions.item("read").funcall(s ymbolname)vl.activedocument.functions.item("set"). funcall sym, wert
Endteil

ora mi si inchioda alla riga blond,
!
fehler lauf '2000'-Mitglied nicht gefunden:feinIdeen ausblenden
Danke.

 

[rpor66]

leider kann ich ihnen nicht bei der vba helfen, jetzt rebelliert, aber trotzdem, warum verwenden sie nicht .sendcommand? dass es ein string anstatt ein träger ist, eine variable setzen oder eine liste erstellen ist relativ einfach.

bye

 

[carry]

hi rpor66 senpre verfügbar und freundlich
gute idee ich habe nicht darüber nachgedacht.
danke.
grüße

 

[carry]

rpor66 ich habe dir eine private messe geschickt.
hi.