|
Lisp : Blöcke aus BIM mit Basispunkt 0,0 mt Geo-Bezug
Andreas Kraus am 10.05.2022 um 13:08 Uhr (1)
Hallo Peter,ich versteh da was nicht:Zitat:- einen Einfügepunkt von 0,0 und- einen Basispunkt gemäss seiner Position im Lageplan hatEinfügepunkt und Basispunkt ... ist das nicht das Selbe ???Hast du mal einen Beispielblock ?Es wäre, denke ich, kein Problem die Basispunkte aller dieser Blöcke zu ändern und die Inserts an die Änderung anzupassen/zu verschieben.------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de
|
| In das Form Lisp wechseln |
|
Lisp : text konstant verschieben
cadplayer am 08.10.2009 um 08:11 Uhr (0)
ich möchte eine routine schreiben, die folgendes macht.am Beispiel "Text mit einer Polylinie".1) der Text soll um einen konstanten Betrag bzw. exakt auf den pline-start-punkt verschoben werden2) anschliessend soll die pline in den layer Defpoints verschoben werden.Könntet Ihr mir vielleicht einen Ansatz geben ?!/cp[Diese Nachricht wurde von cadplayer am 08. Okt. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : text konstant verschieben
cadplayer am 08.10.2009 um 10:03 Uhr (0)
Jungs danke ich rühr mich, wenn ich nicht weiterkommen sollte. /cp09-10-16bin leider jetzt erst zum Anschauen gekommen, und bin mächtig begeistert was deine Routine betrifft Jörn, rafiniert . Mir ist alles soweit einleuchtend, bis auf das Zusatzschmankerl (was ich grob verstehe)(vl-sort koord_poly (lambda(e1 e2) ( (distance e1 basis_text) (distance e2 basis_text)))));wie interpretiert man diesen Aufruf?Gruss cp[Diese Nachricht wurde von cadplayer am 16. Okt. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
AutoLisp : schräge Linien finden
HBo am 20.06.2004 um 19:04 Uhr (0)
kennt jemand ein Tool, mit dem es möglich ist, alle schräg verlaufenden Linien zu finden? Hintergrund ist, wir haben schonmal mit Zeichnungen zu tun, bei denen die Schraffur aus lauter einzelnen Linien besteht. Diese sind für die weitere Verarbeitung bei uns zu eng beieinander und außerdem auf dem falschen Layer. Bis jetzt müssen die alle von Hand herausgesucht werden. D.h. wir klicken natürlich nicht alle Schraffurlinein an, sondern die Umgrenzungslinien und verschieben die auf einen anderen Layer ;-)
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linie auf der Letzter Punkt(lastpoint) liegt wählen
gmk am 09.05.2005 um 09:13 Uhr (0)
eine lösung wäre noch ein eigener punktfang. (defun pf ( / obj) (SETQ obj (ENTSEL)) (SETQ ele (CAR obj)) (CADR obj) ) ele als globale variable definieren = line oder pline die du angeklickt hast (CADR obj) koordianten des klickpunktes zum verschieben des textes und unterbrechen der linie. punkt evtl. mit inters oder vlax-curve-getClosestPointTo noch auf die linie schieben. ciao georg
|
| In das Form AutoLisp wechseln |
|
Lisp : Brauche Hilfe bei Lisp- Programierung
marfie87 am 20.11.2008 um 09:14 Uhr (0)
Guten Tag liebe Lispler,bin neu hier im Forum hab auch schon die Suche benutzt, konnte aber leider nichts passendes zu meinem Problem finden...Es ist folgendes:Ich kenn mich zwar mit Autocad recht gut aus konnte mich aber noch nie wirklich mit lisp beschäftigen und hab hier einige Probleme.Es geht darum eine Kennlinie eines Diagrams mit Hilfe eines in Autocad erstellten Buttons um eine gewisse Zahl "X" zu verschieben. Quasi eine Linie die auf einem eigenen Layer liegt, in +X bzw. -X Richtung zu verschieben ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Automatisation mit Script s
samberger am 17.05.2005 um 16:45 Uhr (0)
Entschuldigung ! SDI ist auf 0 (null) gesetzt, mit der Einstellung 1 habe ich schon herumexperimentiert, aber auch keinen Lösungsansatz erhalten; das Script (Lisp-Programm schließt die Zeichnung) bricht nach der Abarbeitung des ersten Lispprogrammes ab und schreibt die Meldung : _close Befehl SCHLIESSEN ist im SDI-Modus nicht verfügbar. Wie müßte die Struktur (Script bzw. Lisp) aussehen, damit es mit SDI=1 funktioniert bzw. muß ich den _Close - Befehl aus dem Lisp-Programm in das Script verschieben ?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linie zeichnen und verschieben
Brischke am 25.12.2005 um 18:26 Uhr (0)
Zitat:Original erstellt von stk:... ob mir jemand diesen Code schreiben kann. ...Hallo stk,zur Info (auch wenn Weihnachten ist) : Dies ist nicht das Wunschforum, indem man Code bestellen kann. Hier wird eine Menge Code ausgetauscht, das ist richtig. Zweck des Forums ist jedoch bei Problemen der Lisp-Programmierung Hilfe zu finden und/oder zu geben.Ein frohes Fest wünschtHolger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.
|
| In das Form AutoLisp wechseln |
|
Lisp : Koordinatentext vom Punkt verschieben
Brischke am 04.10.2011 um 05:59 Uhr (0)
Hallo Madler,nachfolgend dein Code, den ich mal ein wenig erweitert habe. 2 Wege der Addition von Koordinaten sind darin aufgezeigt.Code:(defun c unktid ( / xyz xyz1 uprec ptx pty ptz lname PunktNeu PunktMoved MoveVector fil) (command "-layer" "machen" "Punkt-ID" "farbe" "rot" "" "") (setq uprec (progn (initget 5)(getint "Nachkommastellen: ")) lname "?" ) ;;- Layer abfragen und sicher stellen, dass der NAme gültig ist. Layer erzeugen(wenn nicht vorhanden) (while (not (snvalid lname)) (initget 1) ...
|
| In das Form Lisp wechseln |
|
Lisp : Texte nach Inhalt in Layer verschieben
Meldin am 08.03.2016 um 15:03 Uhr (1)
Ich denke du hast die falsche Dokumentation Das was ein entity beinhaltet gibt dir dumpallproperties preis allerdings nur im ACAD fenster. Diese kannst du dann mit den folgenden befehlen bearbeiten.AutoCAD 2011Newdumpallproperties - Retrieves an entity’s supported properties.getpropertyvalue - Returns the current value of an entity’s property.ispropertyreadonly - Returns the read-only state of an entity’s property.setpropertyvalue - Sets the property value for an entity.------------------Gruß Wolfgang Alia ...
|
| In das Form Lisp wechseln |
|
Lisp : Übernahme Modellpunkt als Layoutpunkt
spider_dd am 11.03.2020 um 12:29 Uhr (1)
Hallo Hausmeister,folgendes sollte funktionieren:Code:; nach Auswahl des Punktes im Modellbereich Punkt erzeugen(command "punkt" Punkt); diesen in Papierbereich verschieben(command "berwechs" "l" "" "") ; damit ist man dann auch schon selbst im PB und braucht nicht mehr dorthin wechseln; Koordinaten des Punktes abfragen und in pkood_pb speichern(setq pkoord_pb (cdr (assoc 10 (entget (entlast)))); punkt wieder löschen(entdel (entlast))HTHGrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : Pick- oder EnterTaste
Geos am 07.05.2007 um 15:28 Uhr (0)
Das Tool schaltet den Layer des angeklickten Objekts aus und bei Enter wieder ein. Ein Pick ins Leere würde mir eine zusätzliche Möglichkeit eröffnen (wenn von Enter unterscheidbar), nämlich das Aus-/Einschalten mit dem vorherigen Layer zu wiederholen ohne ein neues Objekt anzuklicken. (weil nach dem Verschieben des Bildausschnitts könnte das gewünschte Objekt wieder unter einem anderen liegen).grread werd ich mir gleich mal anschauen.------------------Schöne GrüßeErnst www.geopaint.at
|
| In das Form Lisp wechseln |
|
Lisp : vlax-curve-getDistAtPoint
CADmium am 24.02.2012 um 12:28 Uhr (0)
Zitat:Original erstellt von GottesGeschenk:die idee mit dem verschieben zum ursprung habe ich schon selbst gehabt, die möchte ich aber ungern benutzen.warum nicht ?oder warum nicht mit ner Kopie der Originalkurve und des Originalpunktes ?anders wird du die Rechenungenauigkeiten nicht wegbekommen .. oder ACAD rechnet mit größeren Datentypen und mehr Bits .... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösun ...
|
| In das Form Lisp wechseln |
