VLisp - Nehmen Sie Werte aus Excel-Dateien, wenn sie Formeln enthalten

[Dr.Lube]

Hallo.
Ich machte ein kleines Programm, das x und y die Koordinaten eines Punktes zuordnet, den ich dann in cad einfügen würde.
der aus einer Verarbeitung abgeleitete Punkt (es gibt ein Loch in dieser Zelle), kann den Wert nicht annehmen. Wie kann ich das machen?

(defun c:pin (/ x y xy)
(vl-load-com)
(setq xl (vlax-get-or-create-object "excel.application"))
(setq x 10)
(setq y 5)

(getexcel "c:\\users\studio 3\cobiax\xls\\inerzia.xls" "inerzia" nil)

(setq x (getcell "k6"); problem: in questa cella ho una Formel e non trova quindi il valore
(setq y (getcell "l6");Problem: in questa cella ho una Formel e non trova quindi il valore
(setq xy)

(Befehl "Punkt" xy \r)
(princ)
)

grazie, dennis

 

[Dr.Lube]

Ich könnte lösen, indem ich ein Makro auf Excel, das die Werte dieser Zellen in zwei anderen wichtigen kopiert. Ist das der einzige Weg?

 

[Dr.Lube]

Okay, ich erkannte, dass das nicht das Problem ist. noch exportiert den Wert, auch wenn es eine Formel gibt. .

das Problem ist, dass es nicht alle Dokumente, sondern nur die ersten 8 Spalten spielt.

(getexcel "c:\\users\studio 3\cobiax\xls\\inerzia.xls" "inerzia" nil)
("1" "10" "0.13653246" "0.00853317" "x" "0.13653246" "0.0853317" "5") usw.

ergo ist falsch die Syntax des getexcel

Bearbeitung: Korrektur

(getexcel "c:\\users\studio 3\cobiax\xls\\inerzia.xls" "inerzia" "s35")

Import bis zur Zelle s35

 

[Dr.Lube]

Ich habe ein Problem, ich kann es nicht sagen.

_$ (setq xy (list x y)
(10 20)
_$ (setq x (getcell "k6")
1185681175
_$ (setq y (getcell "l6")
"11.09372276"
_$ (setq xy (list x y)
("11.85681175" 11.09372276")

Vielleicht ist der Fehler die Struktur von xy als Liste. .

(Befehl "punto" xy \r)

Stimmt das?

 

[Dr.Lube]

gelöst!

(defun c:pin (/ x y xy)
(vl-load-com)

(setq xl (vlax-get-or-create-object "excel.application"))
(setq z 0)

(getexcel "c:\\users\studio 3\cobiax\xls\\inerzia.xls" "inerzia" "l6")

(setq x (atof (getcell "k6")))
(setq y (atof (getcell "l6")))
(setq xy (list x y z))

(Befehl "Punkt" xy \r)
(princ)
)