|
AutoLisp : Num.LSP (Einfügepunkt)
CADmium am 10.08.2004 um 15:30 Uhr (0)
@Caddfm .. schöne Möglichkeit mit einfachen Mitteln ans Ziel zu kommen!! @Alpschorsch: wenn du es gleich in dein Tool implementieren willst, anbei mal ein Codfragment: (setq DATEN (entget(car(entsel)))) (if (not(equal (cdr(assoc 11 DATEN)) (0.0 0.0 0.0))) (progn (setq XYZ (cdr(assoc 11 DATEN))) (entmod (subst (cons 11 (list (car XYZ) (- (cadr XYZ) 10) (caddr XYZ) ) ) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Stempelattribute
CADmium am 18.02.2005 um 12:32 Uhr (0)
Zitat: Original erstellt von MaxWachtl: ich suche .. Könnt Ihr mir da weiterhelfen ? Ja sicher : zum Suchen versuchs mal mit www.google.de .. wo hast du eigentlich schon geguckt, ob du was findest ?? Im Ernst: klar ist sowas per Lisp lösbar: Das Papierformat des Layouts liefert dir z.B. folgende Funktion: (defun LAYOUT-GET-PAPERSIZE ( / WIDTH HEIGHT) (vla-GetPaperSize (vla-get-activelayout (vla-get-activeDOCUMENT (vlax-get-acad-object) ) ) WIDTH HEIGHT ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Wer kann mir sagen, warum der Lisp-Befehl nicht funktioniert?
CADmium am 19.02.2013 um 10:46 Uhr (0)
Die Hinweise des Vorposters sind nicht aus der Luft gegriffen und da brauch man nicht zynisch drauf zu reagieren .. aber vielleicht lese ich das ja auch bloß so raus .... egal :Probier dich mal an folgendem Code:(defun LAYOUTNAMESUFFIX(PRA SUF / N) (vl-load-com) (or(=(type PRA)STR)(setq PRA"")) (or(=(type SUF)STR)(setq SUF"")) (vlax-for L(vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (and(setq N (vla-get-name L)) (/=(strcase N)"MODEL") (setq N(strcat PRA N SUF)) (not(vl-catch-al ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD VBA : Punkt innerhalb von Polygon
CADmium am 10.04.2008 um 14:00 Uhr (0)
Zitat:Original erstellt von pistolpete1:Aber ich glaube, diese Funktion müsste es ja auch schon längst in VBA geben, oder?Da das Universum wohl unendlich ist, und damit auch die Möglichkeiten, gibt es sicher eine Wahrscheinlichkeit 0 , das eine VBA-Lösung für das Problem existiert.Bei Lisp-Lösungen bin ich mir sicher Mann, quatsch und tipp nicht so lange rum, sondern mach einfach das Teil fertig, ist bestimmt schneller als suchen Und außerdem lernste was dabei!!Und wenn du fertig bist, postest du ...
|
| In das Form AutoCAD VBA wechseln |
|
Rund um AutoCAD : umwandlung von linien zu punkten
CADmium am 27.11.2007 um 11:44 Uhr (0)
ist zwar noch nicht Weihnachten, aber gleich Mittag ..(defun c:L2PKT(/ AWS INDEX OBJ DATA) (if (setq AWS(ssget ((0 . "LINE")))) (progn (setq INDEX -1) (repeat (sslength AWS) (setq OBJ (ssname AWS (setq INDEX(1+ INDEX)))) (setq DATA (Entget OBJ)) (and (equal(distance (cdr(Assoc 10 DATA))(cdr(Assoc 11 DATA))) 0 0.00000001) (entmake (list (0 . "POINT") (100 . "AcDbEntity") (cons 67 (cdr(ass ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : 1.attribut auslesen
CADmium am 18.07.2008 um 08:18 Uhr (0)
Zitat:Original erstellt von Bauvermesser:ich möchte in einer LSp in der ein Attr ausgelesen wird, dieses am Ende der Lisp von Mtext in Text umwandeln und habe diese Zeile eingefügt: (command "_explode" "Mtxt") direkt nachdem dein MTEXT im Programm erzeugt worden ist,baust du die Zeile(setq MTEXT (entlast)) ein. Damit merkst du dir das zuletzt erzeugte Objekt(den Mtext)am Ende kannst du dann (command "_explode" MTEXT)aufrufen, wo dem Explode-Befehl dann das gemerkte Objekt übergeben wird.P.S: Warum ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Länge über Eigenschaften ändern
CADmium am 10.04.2007 um 09:30 Uhr (0)
Weil gerade Ostern war : Probiers mit folgendem ( schnell zusammengestoppeltem) Lisp:(defun c:ELTA-L(/ AWS FAKTOR INDEX OBJ) (if(and(or(setq AWS(ssget "_I" ((0 . "LINE")))) (setq AWS(ssget ((0 . "LINE")))) ) (or(setq FAKTOR(getreal "
Faktor 0.5 :")) (setq FAKTOR 0.5) ) ) (progn (setq INDEX -1) (repeat(sslength AWS) (setq OBJ(entget(ssname AWS(setq INDEX(1+ INDEX))))) (setq P1 (cdr(assoc 10 OBJ))) (setq P2 ( ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Zwei Layer in Wechselwirkung frieren und tauen
CADmium am 22.07.2004 um 15:13 Uhr (0)
@Cadzia : das Lisp von Holger schaltet die Layer an und aus. das hier friert sie : (defun LAYER-FR-T ( LAYERNAME / LDATEN GC70) (if (and(=(type LAYERNAME) STR) (setq LDATEN (tblobjname LAYER LAYERNAME)) (setq LDATEN (entget LDATEN)) ) (progn (setq GC70 (cdr(assoc 70 LDATEN))) (setq LDATEN(subst(cons 70 (if(=(logand GC70 1)1) (boole 2 GC70 1)(boole 7 GC70 1))) (assoc 70 LDATEN) LDATEN ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Visual Lisp
CADmium am 01.03.2005 um 19:29 Uhr (0)
Bitte: (defun Test (DWGNAME / DWG) (if;vorhandene Datei (or(not(vl-catch-all-error-p (setq DWG(vl-catch-all-apply vla-open (if (=(getvar SDI )1) (list (vla-get-Activedocument(vlax-get-acad-object)) DWGNAME ) (list ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Linienstärke - Farbe
CADmium am 26.09.2008 um 08:49 Uhr (0)
Zitat:Original erstellt von kh-arnold:Hallo Leute,ich benötige Eure Hilfe, .. und ich das richtige Programm dazu noch nicht gefunden habe.Könnt Ihr mir Helfen ???Eine Variante könnte so aussehen ... für deinen Zweck kann man das abspecken und Ini-gesteuert realisieren...Ohne Lisp mit Bordmitteln geht das für Top-Level-Geometrieobjekte aber auch mit der Schnellauswahl und dem Eigenschaftsfenster.Mit "bescheidenen" Lispkenntnissen sollte man aber nicht unbedingt gleich so ein Projekt angehen .. das wird d ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Mal wieder Koordinaten in Zeichnung schreiben
CADmium am 30.03.2007 um 12:50 Uhr (0)
Zitat:Original erstellt von fraga:Warum habe ich nur das Gefühl, dass wir unterschiedliche Auffassungen über den Sinn eines Forums haben?Keine Ahnung was du für eine Auffassung von cad.de hast?!Wenn du meinst , du sprichst einen Toolwunsch aus, und andere Forenmitglieder, nehmen sich dem an und programmieren dir so einfach nebenbei dein WUNSCHTOOL (was auch mal ab und zu vorkommt) .. ja, da haben wir dann unterschiedliche Auffassungen. Und woher soll hier ein Leser deine eingesetzten Lisp kennen. Du hast ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD VBA : Herausforderung Mechanical Part
CADmium am 28.01.2008 um 10:11 Uhr (0)
Zitat:Original erstellt von cadx:_explode hilft nicht, da ich 1. die Zeichnungselemente nicht zerstören möchte .. es gibt ja noch ein _undo ..und 2. ja gezielt auf ausgewählte Objekte per SelectionSet zugreife.kannst du doch ... diese werden dann halt der acadfunktion übergeben ( ist mit vba etwas komplizierter als mit Lisp, aber sollte gehen)Suche eine Lösung in VBDa wird es wohl keine geben, da das Applicationsobjekte sind und deren ActivXschnittstelle keinen Zugriff auf evtl. ACAD-Subelemente enthält. ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Was ist möglich mit VBA
CADmium am 02.08.2006 um 15:18 Uhr (0)
Zitat:Original erstellt von Stelli1:Grundsätzlich kannst du mit VBA alles machen. Jaein .. nur das, was die ActivX-Schnittstelle bietet, und da sind ein paar Sachen leider nicht implementiert. Zur Not gibts zwar noch "Sendcommand", aber naja .... und ActiveX und Mechanical hat leider bei den Mechanicalobjecten mächtig Defizite, da such ich auch schon ewig nach evtl. Dokumentationen.Aber zum Thema :Als erstes analysiert man die gestellte Aufgabe, überlegt, ob sich ein Programm rentiert, und dann wählt man ...
|
| In das Form Autocad VBA wechseln |
