|
Lisp : Drucken aus Lisp mit mit VLA-
joern bosse am 22.06.2010 um 12:26 Uhr (0)
Hallo Niggemann,mit folgendem Konstrukt kannst Du prüfen, ob Deine CTB-Datei vorhanden ist:Code:(defun c:test ( / plotstil) (setq plotstil "niggemannS_W.ctb") (if(vl-catch-all-error-p (vl-catch-all-apply JB_Plotten:Put:StyleSheet (list plotstil))) (alert (strcat "Die Plotstiltabelle "" plotstil "" ist nicht vorhanden."))) ) (defun JB_Plotten:Put:StyleSheet (plotstil / ) (vla-put-StyleSheet (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))plotstil))------------------ ...
|
| In das Form Lisp wechseln |
|
Lisp : Drucken aus Lisp mit mit VLA-
Niggemann am 22.06.2010 um 12:54 Uhr (0)
@CADmiumDanke,das mit dem "vla-RefreshPlotDeviceInfo" war das Richtige, mit dem vla-... werd ich wohl noch was zu kämpfen haben.@joern bosseMeine "NiggemannS_W.ctb" ist ja vorhanden und wird ja von Autocad beim öffnen des normalen Plottfenster angezeigt und korrekt ausgeführt. Werde mir deine Zeilen heute abend mal in ruhe ansehen, du hast mich auf neue Ideen gebracht.mfg Niggemann
|
| In das Form Lisp wechseln |
|
Lisp : Blockreferenzen mit Bemassungen werden nicht aktualisiert
Dorfy am 24.06.2010 um 09:35 Uhr (0)
Hi,mal ein entupd oder vla-update versucht(setq activelayout (vla-get-activelayout (vla-get-ActiveDocument (vlax-get-acad-object)))) (vlax-for item (vla-get-block activelayout) (vla-update item)) ohne Code oder Beispielzng... wer weiß was du gemacht hast ------------------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 |
|
Lisp : Blockreferenzen mit Bemassungen werden nicht aktualisiert
peterba am 24.06.2010 um 09:11 Uhr (0)
Hallo Forum,Für die Umsetzung einer Änderung des Firmenstandards sollen dieexistierenden Bemassungen einer Zeichnung, die mit dem altenBemassungstil erstellt wurden, entsprechend korrigiert werden.Vorgaben:- Nur anzuwenden auf Bemassungen mit dem Bemassungsstil BWBEMSTIL- Masslinien und Führungslinien auf neue Standardfarbe setzen.- Einigen alten Farben des Masstextes laut Tabelle eine neue Farbe zuweisen.Ich habe die Aufgabenstellung mit Visual-Lisp realisiert:1. Auswahlsatz mit allen Bemassungen der Zeic ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockreferenzen mit Bemassungen werden nicht aktualisiert
Dorfy am 25.06.2010 um 22:11 Uhr (0)
Zitat:Original erstellt von peterba:... Mal abgesehen von den undokumentierten "vla-..." Funktionen ...Mal die Hilfe unter "vlide" bemüht?Mal ne Suchmaschiene gefüttert?... man kann viel finden ... sehr viel, man muss nur suchen ------------------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 |
|
Lisp : (vla-addvertex - Parameter?
Dorfy am 28.06.2010 um 14:11 Uhr (0)
Cadmiums Zeilen gehen...probier mal die:(setq #vlaobj (vlax-ename-vla-object (car (entsel "
PolyLinie wählen: "))))(setq pt (getpoint))(vlax-invoke #vlaobj AddVertex 2 (list (car pt) (cadr pt)))------------------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 |
|
Lisp : Tabelle RowType ändern
Dorfy am 01.07.2010 um 13:41 Uhr (0)
Wieso willst du den Typ ändern?"normalerweise" hast du einen Titel einen Kopf (Zeile 1und 2) und die Datenzeilen.Mit gc 280 bzw 281 kannst du Titel bzw. Kopf "ausschalten".Die "Datenzeile" liegt dann in Zeile 2 bzw 1...Wo soll die Reise denn genau hinführen.Ich würde die Rückgabewert als "read only" interpretieren aber Acad-Tabellen nutze ich nicht so oft ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin ...
|
| In das Form Lisp wechseln |
|
Lisp : Tabelle RowType ändern
Dorfy am 01.07.2010 um 14:41 Uhr (0)
Zitat:Original erstellt von CADlsp:Jetzt habe ich eine Tabelle mit dem ganzen Excel Inhalt aber alle Reihensind vom Typ Daten, obwohl der "Standard" Tabellenstil dies anders vorsieht.GC280 und gc281 sind gesetzt?nimm die mal raus... dann sollte Zeile 1+2 (bzw 0 und 1) Titel und Kopf acTitleRow and acHeaderRow) enthaltenAber so richtig verstanden hab ich dein Anliegen noch nicht...Ne Beispielzeichnung und deine Systeminfo wäre ggf auch hilfreich------------------Mfg Heiko Elefantenjagd in Afrika "... LISP ...
|
| In das Form Lisp wechseln |
|
Lisp : mline
MARTINLE am 06.07.2010 um 06:56 Uhr (0)
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!Guten Morgen! Auch ich möchte mehrere Multilinienstile in einem Lisp laden. Ich krieg das mit obigen Beispielen einfach nicht hin!Kann da vieleicht ein Profi ran?Bitte um Hilfe! Danke!lg Martin
|
| In das Form Lisp wechseln |
|
Lisp : CADcal - GeomCAL Funktionalität jetzt auch für ZWCAD
archtools am 05.07.2010 um 13:38 Uhr (0)
CADcal bringt die Funktionalität des Geometrierechners GeomCAL nun für ZWCAD. Alle Funktionen können sowohl transparent als Eingabe auf Aufforderungen vonm AutoCAD Befehlen eingegeben werden und auch als Lisp-Aufrufe in allen Lisp-Programmen.Download von: http://www.archtools.de/d-download.html Anleitung hier: http://www.archtools.de/cadcal.html Applikationsentwickler können die Redistributionsrechte und auch den Quellcode erwerben. Anfragen an berger@archtools.de
|
| In das Form Lisp wechseln |
|
Lisp : Markierte Objekte auf einen anderen Layer legen
cadffm am 06.07.2010 um 12:25 Uhr (0)
Also ob du das SSSETFIRST nun benutzten mußt oder nicht kann ich nicht wissen,für die Änderung auf der Lisp-Seite ist nur ein Auswahlsatz nötigt, unabhängigdavon ob etwas "markiert" ist oder nicht: (foreach elem (bau_elemli (ssget "_X" ((2 . "meinlieblingsblock")))) (entmod (subst(8 . "MeinLayer")(assoc 8 (entget elem))(entget elem))) )Die Funktion (defun bau_elemli findest du hier auch im Forum.------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form Lisp wechseln |
|
Lisp : Markierte Objekte auf einen anderen Layer legen
CADmium am 06.07.2010 um 12:30 Uhr (0)
Hmm ich dachte mit der Markierung eigentlich an ein Ändern im Eigenschaftsfenster .. Befehl _propertiesmit Lisp würd ich das rudimentär so machen :(defun C:LAYMECH(/ AWS) (if(setq AWS (ssget "_x" ((0 . "INSERT") (2 . "*AQA_dpv*,*AQA_upv*,*AQA_dps*,*AQA_dpm*,*AQA_upm*,*AQA_upj*,*AQA_dpf*,*AQA_dpn*,*AQA_dpb*") ) ) ) (progn (setq I -1) (repeat (sslength AWS) (setq DATA(entget(ssname AWS (setq I(1+ I)))) ...
|
| In das Form Lisp wechseln |
|
Lisp : Markierte Objekte auf einen anderen Layer legen
Daniel Möller am 06.07.2010 um 13:29 Uhr (0)
leider funktioniert keine Variante. Wenn ich den Code in den Visual LISP Editor lade danach speichere und über Anwendung laden ausführe ist das ja richtig oder?Beim Ausführen kommt keine Fehlermeldung, wenn ich dann aber einen Block anklicke liegt er immer noch auf dem alten Layer. Der Layer Mechanisch existiert auch.Grüße
|
| In das Form Lisp wechseln |
