|
Lisp : InsertionPoint auslesen
Dorfy am 28.07.2009 um 10:14 Uhr (0)
Hi Gregor,der Code sieht identisch aus und gibt im Schnelldurchlauf auch gleiche Werte zurück...Nur das du beim zweiten Code zweimal den Namen abfragst.Verstehe die Frage/das Problem nicht ganz.Bis du im Layout/Model? BKS gedreht? Dynamischer/Statischer Block?Zählst du ggf. den index2 hoch -- anderes Entity???? Besser einfach mal ne Beispielzeichnung hochladen. ------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant dar ...
|
| In das Form Lisp wechseln |
|
Lisp : Toolbars im V-Lisp Editor werden blas dargestellt
Dorfy am 28.07.2009 um 15:25 Uhr (0)
Hi Theo,du bist nicht ganz allein aber ne Lösung ist das auch nur nicht.siehe hier oder hier oder hierBack to 2000 ------------------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)[Diese Nachricht wurde von Dorfy am 28. Jul. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : grread / grdraw
Dorfy am 31.07.2009 um 09:47 Uhr (0)
Zitat:Original erstellt von Steff179:... nur das wenn ich Pan dazwischen verwende (mittlere Maustaste) dann zeichnet es immer das letzte neu wenn ich mal still halte (auf die letzte Cursor Position),was schräg aussieht ...Sehr schwer zu verstehen was du da willst Was möchtest du denn genau?! Die Linie soll von Punkt zu Punkt im BKS gehen und sich bei pan nicht verändern?" grdraw - Draws a vector between two points, in the current viewport"------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Progr ...
|
| In das Form Lisp wechseln |
|
Lisp : grread / grdraw
Dorfy am 31.07.2009 um 10:00 Uhr (0)
hi,vllt. was mit grvecs ------------------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 : grread / grdraw
Dorfy am 31.07.2009 um 10:32 Uhr (0)
hmmmmmmmmmmmmm(defun c:Test ( / p1) (defun vSpur ( / P) (while (and (setq viewctr (getvar"viewctr")) (/= 3 (car (setq P (grread t))))) (redraw) (if (equal (getvar"viewctr") viewctr) (grdraw p1 (cadr P) 7 1)) ) ) (setq p1 (getpoint)) (vSpur) ) ------------------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 : AfraLisp - Seite
Dorfy am 04.08.2009 um 07:13 Uhr (0)
Morgen,hat zwar alles nicht mir viel mit Lisp zu tun aber egal...Grafikproblem ... neuer Grafiktreiber (ATI) und geht ------------------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 : ssget mit Farben
Dorfy am 05.08.2009 um 14:48 Uhr (0)
hi,mal auf die schnelle(ssget "X" ((-4 . "NOT")(62 . -Farbe- )(-4 . "NOT")))------------------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 : ssget mit Farben
Dorfy am 05.08.2009 um 15:04 Uhr (0)
ja auf die Schnelle(-4 . "or")...(-4 . "or") vergessen analog mit and(ssget "X" ((-4 . "AND") (0 . "LINE") (-4 . "OR") (62 . 2) (62 . 5) (-4 . "OR") (-4 . "AND")))------------------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 : ssget mit Farben
Dorfy am 05.08.2009 um 15:13 Uhr (0)
mmh...(setq filter (append (list (-4 . "OR")) (mapcar (function (lambda (x) (cons 62 x)));dxf (list 2 5);farbliste ) (list (-4 . "OR")) ))Edit: das not vergessen(ssget filter)------------------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)[Diese Nachricht wurde von Dorfy am 05. Aug. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : ssget mit Farben
Dorfy am 05.08.2009 um 15:31 Uhr (0)
;sub(defun or_filter (dxf numlist /)(append (list (-4 . "not")) (list (-4 . "OR")) (mapcar (function (lambda (x) (cons dxf x)));dxf numlist;liste ) (list (-4 . "OR")) (list (-4 . "not")) ));aufruf(ssget (or_filter 62 (list 2 5))------------------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 : auswahlsatz
Dorfy am 11.08.2009 um 13:41 Uhr (0)
hi,ich werf mal "die Hilfe" in die RundeActiveX... Properties...(vla-get-freeze item)(vla-get-lock... noch hinterher------------------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 : Text in Attribut kopieren
Dorfy am 11.08.2009 um 13:34 Uhr (0)
hi,mit netsel könnte es so gehen(setq vlaObj(vlax-ename-vla-object(car (nentsel))))(vl-catch-all-apply vla-put-TextString(list vlaObj "blabla_dein_string_blabla"))Aber Ernst sein Weg ist wohl besser aber auch etwas komplizierter ------------------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 : Text in Attribut kopieren
Dorfy am 11.08.2009 um 15:35 Uhr (0)
Versuch mal...(defun C:TXT2ATT_Dimension (/ ele ele_list txt_inhalt bl atts tagname) ;;Inhalt von Text in Attribut eines anderen Blocks kopieren (setq ele (nentsel "
Welchen Text kopieren ?")) (if ele (progn (setq ele_list (entget (car ele))) (if (= (cdr (assoc 0 ele_list)) "TEXT") (progn (setq txt_inhalt (cdr (assoc 1 ele_list))) (setq ele (entsel "
Wohin kopieren ?")) (if ele;;;;;;;;;;;;;;;;;;;;;;;;;;;; (progn (setq bl (vlax-ename-vla-object (car ele)) tagname "Dimension" ;;---- ) ...
|
| In das Form Lisp wechseln |
