|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 09:58 Uhr (0)
Hallo zusammen, ich habe folgenden Code verbrochen der mir mit der Auswahl [A]bstand: , ermöglichen soll einen Abstand über das Kontextmenü einzugeben. Leider bricht Lisp nach der Eingabe des Abstands ab. Was muss ich ändern damit Lisp nach eingabe des Abstands mit dem Rest weitermacht? (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 15743) (setq abst 100) (initget A ) (setq antw (getkword
Punkt wählen oder [A]bstand: )) (if antw (progn(setq abst (progn(getdist
Abstand wä ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Oje Reactor
dan_rather am 26.07.2005 um 09:11 Uhr (0)
Hallo zusammen, das Thema Reactor wurde hier schon des öfteren Besprochen. Aber trotz aller Themenbeiträge werde ich nicht daraus schlau. Wäre nett wenn mir dummy mal einer erklären könnte wie ich einen Reactor anwenden muss der bei einem Rechtsklick einen Befehl abbricht und dann die Lisp Datei weiter verarbeitet. Hier mal ien codefragment: (if (= KA_ART "0") (progn (setq PKT1 (getpoint " Erster PUNKT :")) (setq KA_start (getvar "lastpoint")) (setq PKT2 (getpoint PKT1 " Zweiter PUNK ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reactor Antwort auswerten
dan_rather am 24.06.2005 um 12:23 Uhr (0)
Danke Holger, Holger der LISP GOTT!!!
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Lisp laden beim ändern des Arbeitsbereichs
dan_rather am 09.06.2005 um 08:13 Uhr (0)
Hallo pirilao, ich habe bei mir mehrere Arbeitsbereiche eingerichtet. Da ich mit der Applikation Pit-cup arbeite (Version 6) wird bei einem Modulwechsel (z.B. Heizung zu Sanitär) auch immer ein anderes Zusatmenü geladen. Da Pit 6.0 nicht für Acad 2006 geschrieben wurde funktioniert das Laden der Menüs jedoch nicht einwandfrei. Darum habe ich mir verschiedene Arbeitsbereiche eingerichtet in denen die Menüs und Werkzeugkästen eingerichtet sind die zum entsprechenden Modul gehören. Damit die dazugehörigen AR ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Textbreite als vorgabe für bruchbreite
dan_rather am 04.05.2005 um 11:49 Uhr (0)
Hallo Thomas, wenn ich (textbox (entget(car(entsel)))) in der Befehlszeile eingebe funktionierts, aber in einer Lisp datei nicht. Woran kann das liegen?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp starten beim ändern des Arbeitsbereichs in Acad2006
dan_rather am 10.06.2005 um 10:02 Uhr (0)
natürlich habe ich nichts gegen pirilao, war mir aber nicht sicher ob jeder der vieleicht eine Lösung hat auch in alle Foren schaut
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : von Block zu Block
dan_rather am 12.07.2005 um 09:24 Uhr (0)
ähm.. wollte diesen Beitrag eigentlich ins Lisp-Forum stellen. Bitte um entschuldigung. Kann einer der Moderatoren Bitte eingreifen? (peinlich)
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Nach Fensterwechsel LISP aufrufen
dan_rather am 21.06.2005 um 12:39 Uhr (0)
@Holger (vlr-docmanager-reactor (if (= GEW 1)(load heiz )) :vlr-documentBecameCurrent) ist das die richtige Syntax???? Zitat: Original erstellt von Brischke: Hallo dan_rather, ja, das kann man mit einem Reactor machen. Es ist der Document.Activate-Reactor, welchen du in jeder Zeichnung laden solltest. Grüße Holger
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp starten beim ändern des Arbeitsbereichs in Acad2006
dan_rather am 10.06.2005 um 07:54 Uhr (0)
Hallo zusammen. hatte meine Frage schon mal hier gestellt: http://ww3.cad.de/foren/ubb/Forum54/HTML/011064.shtml aber keine Lösung gefunden. Darum noch mal meine Frage etwas anders gestellt, gibt es die möglichkeit eine lsp zu starten wenn ich aus der Toolbar Arbeitsbereich einen Eintrag auswähle?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 10:40 Uhr (0)
Danke cadffm, aber Null bekomme ich zurück wenn ich enter drücke und dann läuft das Prog bis zum Ende.(so soll es auch sein :-) ) Wenn ich jedoch A wähle kann ich noch den Abstand eingeben aber das Prog läuft dann nicht mehr weiter. Anm.: Das Prog soll eine Linie an einem Punkt mit dem Standard Abstand 100 nach links bzw rechts vom angegebnen Punkt brechen. Wie schreibe ich also: Wenn der Abstand eingegebn ist mache mit dem Eingegebenen Abstand weiter?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 14:51 Uhr (0)
Tja, Nochmal Hallo. Also das prog läuft... aaaaber wie bekomme ich das voreingestellte Maß in die Zeile? (setq antw (getkword
Enter oder [A]bstand %i : )) bei %i hätte ich gerne das vorher eingestellte/gewählte Maß stehen. Weiß jemand wie das geht mit dem Platzhalter? Prog: (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 15743) (princ
Aktueller Abstand: ) (princ abst) (initget A ) (setq antw (getkword
Enter oder [A]bstand: )) (if antw (setq abst (progn(getdist
Abst ...
|
| In das Form AutoLisp wechseln |
|
Autocad VBA : Endpunkte in VBA ansteuern
dan_rather am 24.08.2004 um 13:35 Uhr (0)
Hallo Axel, leider sind meine Kenntnisse in Lisp noch viel besch...eidener als in VBA. Die Frage ist wie sag ich in VBA suche alle Linnien in meiner Auswahl die mit ihrem Endpunkt auf einer Linie des gleichen Layer liegen und setze mir dort einen Punkt(besser noch einen Ring, aber den scheint VBA nicht zu kennen?). hier erstmal der bisherige code: Sub Massenermittlung() Dim startPoint As Variant Dim endPoint As Variant Dim Vpunkt As AcadCircle Dim LayerAkt As AcadLayer Dim intPoint ...
|
| In das Form Autocad VBA wechseln |
|
Rund um Autocad : von Block zu Block
dan_rather am 12.07.2005 um 09:12 Uhr (0)
Morgen zusammen, ich würde gern die Attributwerte von Block 1 zu Block 2 übertragen. Leider komme ich mit meinem Code hier nicht weiter. Ich hänge mal die ganze Lisp als zipp dran um eventuelle Fragen zu klären ;-) (defun R:Attribute() (setq ATTRIBNAME nil) (princ "
Block wählen") (if (and(setq INSERTNAME (ssget "_:S" ((0 . "INSERT")))) (setq INSERTNAME (ssname INSERTNAME 0))) (progn (if (assoc 66 (setq OBJEKTDATEN (entget INSERTNAME))); GC 66 fehlt, wenn Block keine Attrib s hat (while (/= ...
|
| In das Form Rund um Autocad wechseln |
