|
Lisp : Layer Variablen?!?!
Dorfy am 29.07.2011 um 12:33 Uhr (0)
alternativ kannst du dich durch die gcs hangelnden vl-Ansatz hast du bekommenoder für dicj die einfache command-lösungCode:(defun c:lay1 (/ name) (setq name "lay1");name des layers (command "-layer" "T" name "EN" name "se" name "") (princ))(ungetestet)------------------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 : Layer Variablen?!?!
Dorfy am 29.07.2011 um 13:08 Uhr (0)
Zitat:Original erstellt von CADblue:...außerdem sollte es wenn möglich eine automatische Funktion sein...wie schaltest du denn deinen Layer ein? mittels Lisp?oder mittels Layersteuerung? oder...?bei Lisp kannst du obiges mit einbindensonst wäre ein reactor vorstellbar der clayer überwacht und die gewünschten Layereigenschaften schaltet - nur musst du hier über die gcs oder die vla-Geschichte gehen ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klamme ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer ber tasten umschalten
Dorfy am 31.07.2011 um 20:57 Uhr (0)
vor dem no plot sind 2x ""?! sieht verdächtig aus ------------------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 : Blockattribute drehen
Dorfy am 01.08.2011 um 16:12 Uhr (0)
Zitat:Original erstellt von cadplayer:Danke für Eure Anworten@Dorfy attsync ist doch meiner Meinung nach nur möglich, wenn man Blockeigenschaften von einem Original zur Kopie überträgt....ähm - nöwie rübe schin sagt, einfach mal probieren...ungetestet so Code:(DEFUN c:rb (/ ele wi ) (SETQ ele (CAR (ENTSEL "Block wählen: "))) (setq bname (vla-get-Name (vlax-ename-vla-object ele))) (SETQ ele (ENTGET ele)) (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele))) (SETQ wi (+ (CDR (ASSOC 50 ele)) (GETANGLE (TRA ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 14:14 Uhr (0)
jag mal attsync drüber...------------------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 : Farbe VonLayer in Objektfarbe umwandeln
Dorfy am 01.08.2011 um 21:17 Uhr (1)
Die Jungs von d-tools haben da sicher was (meist für kleines Geld).PS.: nein - ich gehöre nicht dazu und nein - ich bekomme keine Provision oder sonstige Vergütungen ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 02. Aug. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 19:46 Uhr (0)
Zitat:Original erstellt von cadplayer:...@Dorfy Du warst jetzt schneller mit posten - Danke aber ich bekam Deine Lösung nicht richtig zum Laufenlass mich raten (vl-load-com) fehlt?!sollst du dir mal in die acad.lsp packen oder irgendwo, wo es immer mitgeladen wirdbei mir läuft es - wenn man es so nennen kann sollstest mal noch ein Paar Abfangseile einbauen Edit: greift dein entlast immer? auch wenn dein Block nicht das letzte Objekt ist?nein - macht es nicht...------------------Mfg Heiko Elefanten ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 02.08.2011 um 10:25 Uhr (0)
(command "_rotate" (setq en (car(entsel))) "" (cdr(assoc 10 (entget en))) (getpoint)))dein Winkel - Zielpunkt fehlt------------------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 : Blockattribute drehen
Dorfy am 02.08.2011 um 13:42 Uhr (0)
ich versuch es mal(DEFUN c:rb ( / obj ele pkt wi ) (if ;if schleife auf( (setq obj (car (ENTSEL "Block wählen: "));bedingung( ele (entget obj);bedingung pkt (CDR (ASSOC 10 ele));bedingung );bedingung)(progn;fehlt hier sicherlich (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele)));koordinatensystem verschieben (SETQ wi ;neuen drehwinkel berechnen(+ ;du addierst (CDR(ASSOC 50 ele));die Drehung vom insert (GETANGLE ;mit einem Winkel aus Basispunkt und einer Eingabe(TRANS ;Transformieru ...
|
| In das Form Lisp wechseln |
|
Lisp : Ermittlung der Koordinaten eines Blockes
Dorfy am 11.08.2011 um 16:22 Uhr (0)
der gc 50 liefert dir den winkel(Rotation angle (optional; default = 0)der gc 210 (wenn vorhanden) liefert dir den 3D Vektor(Extrusion direction (optional; default = 0, 0, 1) DXF: X value; APP: 3D vector)der Rest lässt sich berechnen... Vektorrechnung...Beispiele?! ... ich such mal ... nee der Hefter liegt ganz unten ------------------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 : Brauche Hilfe
Dorfy am 24.08.2011 um 14:57 Uhr (0)
Zitat:Original erstellt von cadplayer:...wie würde denn so eine routine ausschauen, die es erlaubt wieder an den Programmursprung zu gelangen. ... ich helf dir mal beim Suchen einfach mit vl-catch-all-apply füttern - beißt auch nicht ------------------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 : Blockattribute bearbeiten
Dorfy am 25.08.2011 um 10:07 Uhr (0)
vergleiche mal die entity list von zwei Blöckeneinen mit und einen ohne Attributachte aufGC 66 und "SEQEND"und bei dem mit gc 66 mal entnext entity ansetzen und schauen was passiertggf in einer Schleife (while entnext....)und die entity list anschauen wenn ein seqend auftaucht Neue Erkenntnisse? ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute bearbeiten
Dorfy am 25.08.2011 um 12:06 Uhr (0)
Zitat:Original erstellt von cadplayer:wie soll ich weiter mit entnext vorgehen, um an die Attribute zu kommenna du erhältst ein entity - was kann man damit machen?löschen, verschieben, kopieren und wieder löschen versuch doch mal die entity liste von dem entnext entity zu erhalten (mit entget)und schau dir diese an...und dann die nächste ... usw ... bis gc 0 seqend kommt...wo ist das attribut und wo ist der wert und ...steht oben alles im code ------------------Mfg Heiko Elefantenjagd in Afrika "... L ...
|
| In das Form Lisp wechseln |
