|
Lisp : nochmal Cogo Punkte
proyectista am 17.07.2008 um 01:27 Uhr (0)
Moin Dorfy, vielen Dank fuer den Tipp - leider hat das nicht geklappt - das lisp scheint sich nur auf Land Desktop Cogo Points zu beziehen: (Add_CGpoint (list 1.0 5.0 3.0) 1)Land Desktop Cogo application not loaded.nilIm Land 2005 hatte ich das Problem mit DXF-Group-Codes geloest, naemlich so:(defun MkCogoPto (pto3d ptoIns ptoNum desc1 desc2 lay / )(entmake (list (0 . "AECC_POINT")(100 . "AcDbEntity")(67 . 0)(410 . "Model") (cons 8 lay)(100 . "AecDbEntity")(102 . "{AEC_SUBOBJECT") (300 . "AeccImpPoint") ...
| | In das Form Lisp wechseln |
|
Lisp : verschwunden
proyectista am 27.05.2008 um 17:56 Uhr (0)
... weil Du der Variablen ERG das Ergebnis aus der (foreach ...) Schleife zuweist, etc...- ach ja, der Rueckgabewert.... einleuchtend, was Du erklaerst! Warum ich selber nicht draufkam, ist, dass mir die ganze Funktion eingegeben "ATT1" und "ATT4" zurueckgibt, nicht nur "ATT4". (siehe Beispiel)Wenns um Perfomance geht: CAR, CDR und diese Funktionen sind absolute Basisfunktionen in LISP, und die sind auch bestimmt bei 10maligem Aufruf immer noch sehr viel schneller als ein (setq ...) mit anschließende ...
| | In das Form Lisp wechseln |
|
Lisp : nochmal Cogo Punkte
proyectista am 16.07.2008 um 04:05 Uhr (0)
Hallo Leute,hab wiedermal (oder besser gesagt immernoch) das Problem, keine cogo points (C3D 2008) via Lisp erzeugen zu koennen;Ich kann Daten vorhandener Punkte auslesen oder sogar aendern, aber neue Punkte in die Zeichnung einzufuegen bekomm ich einfach nicht hin...Kann mir da jemand helfen?mein Datensatz sieht so aus:(("y" "x" "z" "description")...) ;;; auslesen und aendern klappt bestens:(setq cogopto (vlax-ename-vla-object (CAR (ENTSEL))));;#VLA-OBJECT IAeccPoint 129c6968(vlax-get-property cogopto "N ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
