|
Lisp : Boesch.lisp - Objekt schneidet keine Kante
CADwiesel am 26.08.2009 um 16:15 Uhr (0)
habe mal spontan eine neue Version erstellt und zum Download auf cadwiesel.de unter Sonstiges / Sonstiges bereitgestellt------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : DXF-EXPORTIEREN
udouk am 26.08.2009 um 13:56 Uhr (0)
Hallo Leute,ich hoffe hier jemanden zu finden, der mir eventuell helfen kann.Ich habe eine Zeichnung mit vielen Elementen und möchte nun einige auswählen, kopieren und diese als dxf speichern, wobei ich wärend des speicherns den neuen Nullpunkt der DXF-Datei auswälen möchte, damit z.B. die Ecke eines Rechteckes in der neuen DXF-Datei auf 0,0,0 liegt.Leider sind meine Lisp-Kentnisse als sehr mäßig zu bezeichnen und darum hab ich schon mal versucht, eine fertige Copieren und dann Drehen Datei umzuscheiben - ...
|
| In das Form Lisp wechseln |
|
Lisp : DXF-EXPORTIEREN
udouk am 26.08.2009 um 15:00 Uhr (0)
Danke für die superschnelle Antwort!!!Also, mein Versuch eine Vorhandene Kopieren & Drehen LISP-Datei umzuschreiben sieht nun so aus:_________________________________________________________________________(VL-LOAD-COM)(defun C XF-EX (/ SGET)(princ "
Objekte zum Exportieren wählen: ")(if (setq SGET (ssget))(DXF-EX SGET))(princ))(defun DXF-EX (AUSWAHL / LST-ORGOBJECTS P SSET-COPIED)(if (setq LST-ORGOBJECTS (DT:SELSET-VLA-OBJECTLIST AUSWAHL))(while (setq P (DT:SAFE-EVAL(list getpoint"
Nullpunkt wählen: ")))( ...
|
| In das Form Lisp wechseln |
|
Lisp : DXF-EXPORTIEREN
Hunchback am 26.08.2009 um 15:50 Uhr (0)
wenn schon copy/paste, dann aber richtig Versuch malCode:(DT:SAFE-EVAL (setq Name (getfiled "DXF speichern unter" "C:Dokumente und EinstellungenukrFavoriten" "dxf" 1) )durchCode:(setq Name (DT:SAFE-EVAL (list getfiled "DXF speichern unter" "C:Dokumente und EinstellungenukrFavoriten" "dxf" 1 ) ) )zu ersetzen.(nicht getestet)grüßeLisp programmer (but I could be ...
|
| In das Form Lisp wechseln |
|
Lisp : _lweight schaltet Linienstärkeanzeige um
walter.f am 27.08.2009 um 12:39 Uhr (0)
Hallo!In einem Lisp verwende ich an einer Stelle den Befehl _lweight (mit command), um für die folgenden Operationen die Linienstärke festzulegen. Leider schaltet er mir dabei auch jedesmal die Linienstärkeanzeige am Bildschirm ein (mit ACAD 2010). Das Verhalten habe ich so mit ACAD 2004 nicht in Erinnerung (ist mir aber jetzt zu aufwendig, das nochmal am eingemotteten Rechner zu testen ).Da die Linienstärkeanzeige das Programm ziemlich ausbremst, möchte ich das möglichst abstellen. Leider finde ich hier ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Dateien von ACAD14
archtools am 29.08.2009 um 17:25 Uhr (0)
Zitat:Original erstellt von Theodor Schoenwald:ich wurde gefragt, ob Lispdateien die für ACAD14 erstellt wurden, auch in neueren ACAD-Versionen funktionieren.Kennt jemand Gründe (Funktionen), warum diese Lispdateien eventl. nicht funktionieren?Außer den schon genannten teilweise leicht veränderten Befehlsabläufen in COMMAND aufrufen haben sich teilweise auch die notwendigen DXF-Gruppencodes für ENTMAKE geändert. Dazu kommen teilweise neue bzw geänderte oder obsolet gewordene Systemvariablen.Sind die Progr ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Dateien von ACAD14
Theodor Schoenwald am 29.08.2009 um 17:30 Uhr (0)
Danke für die Antworten!Ich werde dem Fragesteller, den Link aus diesen Beitrag listen.GrußTheodor
|
| In das Form Lisp wechseln |
|
Lisp : Sound in Lisp?
Niggemann am 29.08.2009 um 23:12 Uhr (0)
Hallo,kann mir jemand sagen wie ich Axels Vorschlag in ein Lisp-Prog einbinden kann.Kenne mich überhaupt nicht mit VBA aus, ausprobieren möchte ich Axels Vorschlag aber mal gerne. Danke im voraus.GrüßeNiggemann
|
| In das Form Lisp wechseln |
|
Lisp : Sound in Lisp?
CADmium am 30.08.2009 um 08:33 Uhr (0)
(vl-vbaload "MAKRO.dvb" )(vl-vbarun "Modulname.Prozedurname" )oder (command "_vbaload" .. )(command "_vbarun" ..)aber guck dir auch mal das zu dem Thema an ...------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Datei für Dynamische Blöcke
Christian B. am 30.08.2009 um 18:03 Uhr (0)
Hallo,Hab mal eine Frage als Anfänger...Ich habe einen Dynamischen Blöck, der Rohre in verschiedenen Längen über den Sichtbarkeitsparameter enthällt.Wenn ich in einer Zeichnung nun ganz viele Rohre in verschiedenen Längen hätte und nun über ein Lisp-Skript alle ausgewählten Blöcken die "Länge 4,0m" über den Sichtbarkeitsparameter geben will; wie kann ich so etwas in etwa Programmieren?Freue mich auf Eure Antworten, Christian B.
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Datei für Dynamische Blöcke
CAD-Huebner am 30.08.2009 um 21:04 Uhr (0)
Zitat:Original erstellt von Christian B.:Hallo,Hab mal eine Frage als Anfänger.......über den Sichtbarkeitsparameter geben will; wie kann ich so etwas in etwa Programmieren?So in etwa:Code:(setq blkProps (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties blkObj))))(foreach blkProp blkProps (cond ((and (= (vla-Get-PropertyName blkProp) "Anzeige") ...) ; Sichtbarkeitsname (vla-Put-Value blkProp "Länge 4,0m") ; Sichtbarkeit )...------------------Mit freundlichem GrußUdo Hübnerwww.CAD ...
|
| In das Form Lisp wechseln |
|
Lisp : Optionen / Position der Zeichnungsvorlagendatei
Bernd10 am 31.08.2009 um 10:37 Uhr (0)
Hallo,in den Optionen gibt es unter der Registerkarte Dateien den Punkt Vorlageneinstellungen mit dem Eintrag für Position der Zeichnungsvorlagendatei (siehe Anlage).Wie kann ich diesen Eintrag per Lisp ermitteln?Danke im Voraus und viele GrüßeBernd
|
| In das Form Lisp wechseln |
|
Lisp : Punktliste
Dorfy am 19.08.2011 um 10:05 Uhr (0)
auf die schnellCode:(mapcar (lambda (x) (car x) ) ((10 20 30)(10 20 30)(10 20 30)))(mapcar (lambda (y) (cadr y) ) ((10 20 30)(10 20 30)(10 20 30)))(mapcar (lambda (z) (caddr z) ) ((10 20 30)(10 20 30)(10 20 30)))------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
