|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
Dorfy am 20.05.2009 um 22:57 Uhr (0)
hi,mal ein Schnellschuss für ein Objekt(defun c:C2PS( / doc space ent vobj copyobj ) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) space (vla-get-paperSpace doc) ent (entsel "Select object: ") vobj (vlax-ename-vla-object (car ent)) copyobj (car (vlax-invoke doc copyobjects (list vobj) space))) (princ) )... mfg heiko
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
Dorfy am 22.05.2009 um 18:34 Uhr (0)
Hi,na dann Schnellschuss die Zweite(defun c:C2PS (/ doc space elem vobj n asatz) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) space (vla-get-paperSpace doc) asatz (ssget) n 0 ) (repeat (sslength asatz) (setq elem (ssname asatz n) n (1+ n) vobj (vlax-ename-vla-object elem) ) (vlax-invoke doc copyobjects (list vobj) space) (vlax-invoke-method vobj DELETE) ) (princ))den Rest darfst du dann aber selber machen mfg heiko
|
| In das Form Lisp wechseln |
|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
Dorfy am 17.07.2012 um 22:04 Uhr (0)
ne Schleifewhile oder repeatund mit if oder sonstwas den Auswahlsatz prüfen------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."-Lots of irritating superfluous parentheses!-
|
| In das Form Lisp wechseln |
|
Lisp : Absturz beim Purgen
Dorfy am 21.07.2008 um 13:28 Uhr (0)
Hallo,vllt. die Zeichnung mal auf Fehler prüfen (wenn noch nicht geschehen)oder vllt. sind diverse Proxy-Element oder der gleichen am Absturz Schuld ... (nach und nach mal div. Teile der Zng. löschen und teseten)oder mal mit wblock alles in ne neue zeichnung packenmfg heiko
|
| In das Form Lisp wechseln |
|
Lisp : entlast nach ARRAY
Dorfy am 18.08.2009 um 09:44 Uhr (0)
Zitat:Original erstellt von fuchsi:...jetzt stehen wir wirklich auf dem allerletzten Entity in der Zeichnung. ...Nun muss nur noch ein Entity und somit ein "allerletztes Entity" vorhanden sein.Stichwort neue Zeichnung... (entlast) -- nil ------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Lisp wechseln |
|
Lisp : Fehlende Schriften / Fontalt Aktivierung melden
Dorfy am 16.04.2008 um 08:06 Uhr (0)
Morgen,beim normalen Öffnen einer Zeichnung mit 2007 erscheint ein Dialogfenster zum tauschen der Formatdatei.Dieses reicht dir nicht? Oder gibt es dieses Fenster bei 06 nicht?Mfg Heiko
|
| In das Form Lisp wechseln |
|
Lisp : Layoutnamen aus nicht geöffneten Zeichnungen
Dorfy am 20.07.2010 um 11:33 Uhr (0)
Hallo,"nicht geöffnete Zeichnung" -- das ist relativmit ObjectDBX aber ob da vla-open bei dir unter öffnen läuft ------------------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 : Auswahlmöglichkeit beim Plotten
Dorfy am 03.09.2009 um 08:42 Uhr (0)
hi,könnte/sollte diese Zeile sein(command "H") ; Ausrichtung der Zeichnung angebenversuchmal (command pause)besser wäre was mit Abfrage (inetget......------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Lisp wechseln |
|
Lisp : Insert mit BP-Definition
Dorfy am 02.07.2007 um 12:30 Uhr (0)
Hallo Jörn,... immer die selben ... aber erstmal DankeDer Block soll vorübergehend an seiner aktuellen Position in der Zeichnung abgelegt werden... Vorteil: ich kann den Block über einen anderen Punkt als seine Basispunkt einfügen...nur leider wird der Block vorübergehend auf 0,0,0 und nicht in der aktuellen Ansicht abgelegt......Dankemfg heiko
|
| In das Form Lisp wechseln |
|
Lisp : Wert von dynamischer Block lesen?
Dorfy am 01.02.2009 um 18:42 Uhr (0)
Hi,wenn dein Block vorhanden ist und eingefügt wurde, die Schreibweise von Kanal-Breite richtig ist (groß/klein), ein Wert für Breite eingegeben wurde, dann sollte es funktionieren.Versuch mal in einer neuen Zeichnung oder starte mal ACad neu...mfg HeikoEdit: eins zwei Worte mehr was net geht bzw. Fehlermeldungen sind oft auch hilfreich[Diese Nachricht wurde von Dorfy am 01. Feb. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Fehler Schnittpunkte im hohen Koordinatenbereich
Dorfy am 28.09.2009 um 19:25 Uhr (0)
Hi Jörn,habe manuell das BKS auf ein Objekt deiner Zeichnung gedreht und das Prog drüber laufen lassen -- kein Schnittpunktmit vlax-curve-getpa... oder der Gleichen prüfen ob der SP auf beiden Objekten liegt oder ob ein Abstand zum vermeindlichen SP besteht ist auch nicht wirklich ne Lösung...------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Lisp wechseln |
|
Lisp : warum gehts nicht ?? immer probleme mit if
Dorfy am 06.07.2011 um 08:59 Uhr (0)
Zitat:Original erstellt von chris888:...Bleibt nur noch die frage von oben:Kann man eine Variable in einer Zeichnung speichern?...häng sie als xdata an ein von dir definiertes Objektzum Thema xdata solltest du genug im Forum finden Edit: dictionary wäre auch noch möglich... viel spaß beim variablen speichern ------------------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 ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLisp-Funktion in DWG-Datei integrieren
Dorfy am 20.07.2010 um 12:22 Uhr (0)
@reltro ob das was wird...vllt solltest du dir die Grundlagen erstmal anschauen .hier mal ein kleines Beispiel - (ausführen in leerer Zeichnung)Code:(defun c:test1 (/) (entmake (list (0 . "MTEXT") (100 . "AcDbEntity") (100 . "AcDbMText") (10 0.0 0.0 0.0) (1 . "(defun c:test2 () (alert "HALLO"))")) ) ;(princ (cdr (assoc 1 (entget (car(entsel)))))) (princ (cdr (assoc 1 (entget (entlast))))) (eval(read(cdr (assoc 1 (entget (entlast)))))) (princ))erstmal test2 starten -- unbekanter Befehldann test1 st ...
|
| In das Form Lisp wechseln |
