|
Lisp : Pläne abgleichen - Daten v. INSERTs aus XREF
cadffm am 15.10.2013 um 10:14 Uhr (1)
Ja da bin ich jetzt zugegeben etwas platt.Wenn ich das mache (nentsel-Abfrage) dann schaut das so aus:Befehl: (plist(nentsel))1.Kreis in XREFObjekt wählen:Objektname: 7ddb5f78(41895.9 109205.0 0.0)((1000.0 0.0 0.0) (0.0 1000.0 0.0) (0.0 0.0 1000.0) (0.0 0.0 0.0))(Objektname: 7e575f48 )2.Insert/Blockobjekt im XREFObjekt wählen:Objektname: 7ddb5ec0(20913.8 29318.9 0.0)((1000.0 0.0 0.0) (0.0 1000.0 0.0) (0.0 0.0 1000.0) (0.0 0.0 0.0))(Objektname: 7ddb5ed8 Objektname: 7e575f48 )3.Attribut eines Inserts im XREF ...
|
| In das Form Lisp wechseln |
|
Lisp : Pläne abgleichen - Daten v. INSERTs aus XREF
cadffm am 15.10.2013 um 14:06 Uhr (1)
Hallo Ernst,mein Lieber,Achtung: es folgt eine Wiederholungbitte schau dir an was dir NENTSEL zurück gibt !1. In der Hilfe nachlesen und2. in der DWGDas habe ich auch in meiner letzten Antwort gemacht/gepostet,das was du machst (letzte Anwort) ist : Das geklickte Objekt untersuchen - statt der Rückgabe von nentsel (nentsel)das was Acad antwortet ist die Rückgabe !und das sieht dann so aus wie bei mir (plist: gibt ein Listenelement einer Liste pro Zeile mit princ aus , mehr nicht) ------------------CAD o ...
|
| In das Form Lisp wechseln |
|
Lisp : Linien in 3dPolys umwandeln
cadffm am 17.10.2013 um 13:15 Uhr (1)
Ich denke das der Code noch nicht soweit ist wie du denkst (das kann aber nur der Künstler prüfen dem bekannt ist was genau geschehen soll) (= "" (getstring "weitere Linien einsammeln? N/J"))Das ist hoffentlich nur zum testen so, denn N,Nein wird so ignoriert und zudem J,Ja ebenfalls,zudem wäre es immer chic den AutoDesk Syntax zu nutzen (wenn die sich schon selbst nicht immer daran halten)Im fertigen Code sollte das dann so aussehen: (getstring "
blahbla [Ja/Nein] N:")oder besser gleich mit initget und ge ...
|
| In das Form Lisp wechseln |
|
Lisp : Linien in 3dPolys umwandeln
cadffm am 17.10.2013 um 18:50 Uhr (1)
"die Linien sich berühren" aha, danke für die Infosoll das Programm automatisch nach der 1. Linie weitermachen oder wählst du jede Linie einzeln wie im Beispielcode ?Du mußt irgendwie bestimmen wo es anfängt, angenommen der Anfang ist geschafft:(P1 P2 P3 ...)((0 0 0)(0 5 0)(2 7 0))Die nächste Linien:automatik: Sucht ein Linienobjekt im kleinen Umkreis von (2 7 0), der jeweils andere gc ist deine neue Koordinate.((0 0 0)(0 5 0)(2 7 0)(10 11 0))Die nächste Linien:automatik: Sucht ein Linienobjekt im kleinen ...
|
| In das Form Lisp wechseln |
|
Lisp : VISUAL LISP EDITOR
cadffm am 18.10.2013 um 11:53 Uhr (1)
na Jörg, wenn schonn denn schon: Egal welches Windoof[ALT]+[Space] und danach Vnun kannst du die Pfeiltasten zum verschieben nutzen(macht Sinn das mal mit einem Fenster zu testen das man bereits sieht, so versteht man wenigstens was man da macht)------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Linien in 3dPolys umwandeln
cadffm am 18.10.2013 um 15:13 Uhr (1)
Als Erstes: Es wäre nett wenn du deinen Code international gestaltest damit auch andere den Code 1:1 ausführen können, danke.Zum Code: "grob die Richtung" könnte man bejahen, aber im Grunde ist noch keine einzige Zeile fertig.Für den ersten Punkt nimmst du automatisch den gc10, das würde ich noch einmal überdenken, aber das ist ja jetzt nicht Thema.Entweder der Endpunkt an dem man näher ist beim anklicken, oder das Programm soll sowieso in beide Richtungen suchen ?Aber dann müßte das Programm ja noch etwas ...
|
| In das Form Lisp wechseln |
|
Lisp : Linien in 3dPolys umwandeln
cadffm am 19.10.2013 um 21:29 Uhr (1)
Den Code schaue ich mir nicht mehr an, aber:Zitat:Der Fall, dass die Koord. gleich sind tritt nicht auf, weshalb ich gegenläufige Linienpaare nicht finden kann. Weiss einer, das zu lösen?Wenn das eine Ende nicht gleich ist, dann ist das andere Ende vielleicht gleich ?Code: (setq nextpoint (cond ((equal lastpoint (cdr(assoc 10 elist)) 0.0000001) (cdr(assoc 11 elist)) ) ((equal lastpoint (cdr(assoc 11 elist)) 0.0000001) (cdr(assoc 10 elist) ...
|
| In das Form Lisp wechseln |
|
Lisp : Linien in 3dPolys umwandeln
cadffm am 22.10.2013 um 14:01 Uhr (1)
Einmal steckt mir der code in der while schleife fest, weil immer die gleiche Linie gewählt wird.Da habe ich ja vorab bereits drauf hingewiesen, damit du da nicht lang herumdoktern mußt,also schließe das letzt Objekt als neues aus - egal wie.Zu anderen bricht der code einfach vor der gegenläufigen Linie ab.Es gibt zwei Möglichkeiten - Start(10) und Endpunkt(11), der Punkt der deiner letzten Koordinate entspricht ist es nicht, sondern der andere.Ich glaube, ich glaube ich verbringe die Zeit noch ein wenig m ...
|
| In das Form Lisp wechseln |
|
Lisp : Linien in 3dPolys umwandeln
cadffm am 22.10.2013 um 15:51 Uhr (1)
Sorry, war nur ein Versuch zuu helfen das "lasse den Monitor weg"------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Ermitteln des Blocknames bei nentsel
cadffm am 25.10.2013 um 11:36 Uhr (1)
Hast du denn nicht mehr Objectnamen die du selbst mal untersuchen kannst ?(Ich verweise mal auf das bereits aktuelle Thema von GEOS) - KLICK!------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Plotstildatei
cadffm am 27.10.2013 um 18:17 Uhr (1)
Es bleibt wie hier beschrieben, mit LISP kannst du die Datei nicht auslesen, dafür brauchst du ein anderes Programm welches dir dann die Daten zur Verfügung stellt.------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Plotstildatei
cadffm am 27.10.2013 um 19:57 Uhr (1)
Dort müßte man nach einer Consolenversion nachfragen (gibt es derzeit nicht 4free glaube ich, oder?)AutoDesk hat sein Tool dazu lange nicht erneuert, aber evtl. reicht es in der Exe die Dll Namen anzupassen: Klick!(PS: Auch wenn ich es nicht brauche, per PM bin ich an Infos interessiert )------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz über länger Zeit erstellen
cadffm am 31.10.2013 um 13:32 Uhr (1)
Du "erzeugst" sie mit SETQ und du kannst sie auch ändern mit SETQ Befehl: (setq obj (car(entsel)))Objekt wählen: Objektname: 7dca5748Befehl: !objObjektname: 7dca5748Befehl: (setq OBJ nil)nilBefehl: !objnil------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
