|
Lisp : dyn Blöcke 2
Christian B. am 10.02.2010 um 00:42 Uhr (0)
Hallo,danke für eure Tips, stimmt die Hilfe ist wirklich "hilfreich" (defun c:aa() (vl-load-com) (setq blkSET (ssget)) (setq blkNrCurr 0) (setq blkNrInSET (sslength blkSET)) (setq blkObj (vlax-ename-vla-object (ssname (blkSET) blkNrCurr))) ;(setq blkObj (vlax-ename-vla-object (ssname (ssget) 0))) PRIMA!!! ;(foreach blkObj blkSet (setq blkProps (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties blkObj)))) (foreach blkProp blkProps ; Name Liste (cond ((and (= (vla-Get-PropertyNam ...
|
| In das Form Lisp wechseln |
|
Lisp : Modellmaßstab per Lisp ändern
copymaster am 15.10.2006 um 11:35 Uhr (0)
Hallo,also zuerst ma...ja, bin noch mittlerer Anfänger hab vor ein paar Jahren ein bisschen mit Lisp Programmiert...hab aber wieder ne lange pause gemacht. In der Zeit hab ich meist VBS und Basic programmiert. Aber jetzt wollt ich halt wieder etwas einsteigen...hab nur noch keine gescheite literatur..also bezieh ich meine infos im moment noch aus hilfe-dateien..is net so prickelnd aber naja Nun zum Thema...Hab in einem anderen Forum den Befehl amggetdwgsetting gefunden. War aber nicht weiter dokumentiert. ...
|
| In das Form Lisp wechseln |
|
Lisp : ActiveX results by ref?
slowCad am 16.06.2007 um 14:34 Uhr (0)
Hi,arbeite mich gerade in Vlax ein auf MDT 2007.Vielleicht zuerst meinTest:Code:(defun t1 (/) (vl-load-com) (setq aobj (vlax-get-acad-object)) (setq gobj (vla-getinterfaceobject aobj "ge.Application.2")) (setq mobj (vla-getinterfaceobject aobj "Mcad.Application.3")) (setq activeDoc (vla-get-activedocument mobj)) (setq util (vla-get-utility activedoc)) (setq pick (vlax-invoke-method util Pick "select first curve" 0 nil nil nil nil nil nil ) ) (setq curve1 (vlax-invoke-method util Ge ...
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 13:23 Uhr (0)
Ah danke dir CADchup, damit bin ich jetzt schon einen großen Schritt weitergekommen. Das ist Magie Ich hab eure Vorschläge jetzt übernommen und meine LSP sieht mittlerweile so aus:(defun c:feexplode(/ dn pa pawbdn flag fesel) (setq dn (getvar "dwgname")) (setq pa (getvar "dwgprefix")) (setq pawbdn (strcat pa "explode"dn)) (setq flag (getvar "qaflags")) (setvar "qaflags" 5) (sssetfirst nil(setq fesel (ssget "_x" (list(cons 410(getvar"CTAB")))))) (command "_EXPLODE" fesel "") (setvar "qaflags" flag) (command ...
|
| In das Form Lisp wechseln |
|
Lisp : ACAD 2009 abwärts kompatibel
mkl-cad am 04.11.2009 um 10:55 Uhr (0)
Habe selber noch ACAD 2000 und einen Kunden der ACAD 2009 hat.Wenn ich ihm DWG Pläne zusende kann er die in ACAD 2006 (seine alte Version) öffnen. Bei ACAD 2009 erscheint eine Fehlermeldung das die Datei beschädigt ist. Reparieren geht nicht. Wenn ich die als DXF versende kann er die ,zwar auch mit Fehlermeldung das Fehler enthalten sind, öffnen. Beim überprüfen der Datei findet er aber keine Fehler. Wenn er die dann als DWG speichet ist alles in Ordnung. Meine DWG Datei kann ich aber auch mit anderen CAD- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Reihenfolge im Programmablauf nicht logisch!
CADwiesel am 12.08.2005 um 08:21 Uhr (0)
eine Klammer war außerdem zuvielmehr als 2 Punkte kann mann aber nicht bemaßen - da mußt du nochmal nacharbeiten.Du solltest sowiso den gesamten code überarbeiten und den Unterfunktionen entweder die benötigten Parameter übergeben, oder wenigstens die Rückgabe der Unterfunktionen in lokalen Variablen übergeben lassen.Code:(Defun c:bodim ( / oldCmde oldOs ma cen pt1 pt2 a1 a2 ad r d x pt3) (defun Bogma () (setq oldCmde (getvar "CMDECHO")) (setq oldOs (getvar "OSMODE")) (setvar "CMDECHO" 0) (setq ma (getvar ...
|
| In das Form AutoLisp wechseln |
|
Lisp : AutoLisp-Funktion in DWG-Datei integrieren
archtools am 27.03.2010 um 19:42 Uhr (0)
Zitat:Original erstellt von aRakun:Hallo AutoLisp-Profis,ich bin neu im Forum und AutoLisp-Anfänger:Ich habe eine Funktion in Lisp geschrieben und möchte diese jetzt zusammen mit der DWG-Datei weitergeben. Nun scheint es nicht so einfach, diese Funktion in eine DWG-Datei einzubinden. Das ist zwar nicht besonders einfach und nicht vorgesehen, aber machbar ist das schon. Ich habe vor ungefähr 15 Jahren schon ein Programm geschrieben, das das macht: objectiveCAD. Das erzeugt aus einfachen geometrischen Besch ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
autocart am 09.01.2009 um 23:06 Uhr (0)
@Theodor:1) Freut mich, dass es mit der Batch-Datei funkt. Ist wahrscheinlich die einfachere Lösung.2) Nur noch zur Klarstellung: Wie ich beim wiederholten Durchlesen der Beiträge merkte, hast du mein Programm falsch angewendet. Dem Prog darf natürlich NICHT der Dateiname von der Datei übergeben werden, die von deinem Programm erstellt wird. Wenn die Datei nachher 0 Byte hat, zeigt das geradezu, dass mein Prog schon wartet weil es die von deinem Prog gerade erzeugte Datei überschreibt.Weil du geschrieben h ...
|
| In das Form Lisp wechseln |
|
Lisp : Parametertyp ermitteln
Andreas Kraus am 04.03.2014 um 08:00 Uhr (1)
Ich brauch den Parametertyp um einen bestimmten Parametertyp nicht zu bearbeiten.Ich lese Daten aus und schicke die an Excel für z.B. Massenermittlung, Bautellisten, usw.Wenn ich jetzt im Excel etwas an den Daten ändere (Tippfehler, Änderungen, usw.) lese ich diese Daten zurück ins ACAD.Hat aber ein Block eine Blocktabelle wird mir alles was da dranhängt im jeweiligen Block so eingestellt ohne Rücksicht darauf ob gegenüber den Einstellungen der Blocktabelleneinträge etwas geändert wurde.Beispiel:Ich habe h ...
|
| In das Form Lisp wechseln |
|
Lisp : Map Civil 3D DGM Objekt via ActiveX erstellen
CAD-Huebner am 26.01.2006 um 15:01 Uhr (0)
Ich versuch ein Civil/Map 3D DGM zu erstellen.Leider gibts dafür nur spärliche VBA Tipps und gar keine Lisp Tipps.Mein Programm sieht so aus:Code:(DEFUN C:Test() ; Neue DGM Fläche in MAP/ Civil 3D anlegen ; aber wie definiere ich eien Variable vom Typ TinCreationData ? (setq acadObj (vlax-get-acad-object) ; connect to Civil oder Map3D aeccApp (vla-getinterfaceobject acadObj "AeccXUiLand.AeccApplication") aeccDoc (vlax-get-property aeccApp "activedocument") aeccSurfs (vlax-get-property aeccD ...
|
| In das Form Lisp wechseln |
|
Lisp : Grundlagenfrage
autocart am 03.10.2006 um 14:21 Uhr (0)
@rabbit&Ernst:Befor ich (command (c:Befehl)) schreibe, schreibe ich aber gleich (c:Befehl). @Ernst only:Was meinst du mit Parameter?@Markus:Das stimmt mit dem Umweg! (Hätte ich auch schon selbst oben versucht anzudeuten.) Was mich verwundert ist allerdings folgendes: Ich dachte immer, die Funktion (command ...) tut nichts anderes, als die Argumente in die Befehlszeile zu schreiben und dann auf Enter zu drücken, so als würde man es händisch machen. Wäre das der Fall, dann verstehe ich nicht, warum bei so ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Lisp auf Funktion einer DLL warten lassen
Dabrunz am 10.02.2004 um 10:56 Uhr (0)
Zitat: Original erstellt von fuchsi: hm also ich kenn das anders, wenn du eine activeX dll schreibst, und diese [..] startest [..] dann wartet lisp sehr wohl, biss die funktion beednet ist Eben - so ist es in allen Fällen. LISP wartet grundsätzlich auf die Rückgabe der angestoßenen Funktion, sonst würde die Sprache wohl auch nicht funktionieren. Die Betonung liegt hier allerdings auf Funktion . Startet ein eigener Prozess, dann schaut LISP nur hinterher - genau genommen nicht mal das, es setzt ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Lisp Programme von R14 nach 2007 portieren
Zoff am 03.09.2006 um 18:22 Uhr (0)
Hallo,nach dem Umstieg von R14 auf Autocad 2007 funktionieren einige unserer LISP Programme nicht mehr.Dummerweise ist der Autor nicht mehr greifbar, die Listings sind komplett unkommentiert und meine Kenntnisse auf diesem Gebiet sind leider nur gering.Die Programme sehen z.B. aus wie folgt. (Schnitt durch eine Fensterscheibe)(defun c:fens1 ()(graphscr)(setq L1 (getpoint "
Winkel P1: "))(setq WIN (getangle L1 "
Winkel P2: "))(setq PI2 (+ (/ pi 2) WIN))(setq XPI2 (+ (/ (* 3 pi) 2) WIN))(setq PIWIN (+ pi WIN ...
|
| In das Form Lisp wechseln |
