|
AutoLisp : Platzbedarf (Kontur) von AutoCAD-Objekten
cad-lisp am 27.02.2003 um 21:25 Uhr (0)
Hallo Axel, die Größe kannst du mit der Funktion vla-getboundingbox ermitteln. Hier ein keines Beispiel. (defun c:ufr ( / ELE LL P0 P1 UR ) ;Funktion gibt Punkte für umfassendes Rechteck zurück (vl-load-com) (setq ele(entsel
Bitte Element wählen: )) (vla-getboundingbox (vlax-ename- vla-object (car ele)) ll ur) (setq p0 (vlax-safearray- list ll));Punkt links unten (setq p1 (vlax-safearray- list ur));Punkt rechts oben (list p0 p1) ) hoffe es hilft dir weiter Gruß cad-lisp
|
|
AutoLisp : Gleiche Punkte oder doch nicht!?
cad-lisp am 13.02.2003 um 13:00 Uhr (0)
Hallo CADwiesel, hab es gerade einmal ausprobiert, bei mir klapp es mit equal. Kann es sein, das mit der Punktliste etwas nicht stimmt? (setq li ((-41.1235 -34.1954) (-41.1235 -34.1954) (-41.1235 -34.1954))) (= (car LI) (cadr LI)) ;= ergibt nil (eq (car LI) (cadr LI)) ;= ergibt nil (equal (car LI) (cadr LI)) ;= ergibt T Gruß cad-lisp
|
|
AutoLisp : elemente aus dem bruch abfragen
cad-lisp am 10.03.2003 um 14:55 Uhr (0)
Hallo Jan, hier ein kleines Beispiel wie es gehen könnte. (defun c:test (/ le le1 aw) (setq le (entlast)) (princ "
Bruchstelle wählen") (command "bruch" pause pause) (setq le1 le) (setq aw (ssadd)) (while le1 (if (and (member (cdr (assoc 0 (entget le1)))(list "POLYLINE" "LWPOLYLINE")) (/= le1 le)) (setq aw (ssadd le1 aw)) ) (setq le1 (entnext le1)) ) aw ) Ich hoffe es hilft dir weiter Gruß cad-lisp
|
|
AutoLisp : elementeigenschaften erweitern
cad-lisp am 18.03.2003 um 16:44 Uhr (0)
Hallo Georg, versuch es einmal so (SETQ lintyp (CONS 6 "VERDECKT")) (SETQ ele (ENTGET(ENTLAST))) (if (assoc 6 ele) (entmod(subst lintyp (assoc 6 ele) ele)) (entmod(append ele(list lintyp))) ) hoffe es hilft dir weiter. Gruß cad-lisp
|
|
AutoLisp : Text klebt am Mauszeiger
cad-lisp am 07.05.2003 um 10:58 Uhr (0)
Hallo Mario, versuch es mal so. (defun c:AU ( / obj flaeche umfang faktor exitflag) (setq exitflag nil) (setq obj nil) (setq faktor 0.001) (setq obj (entsel
Fläche wählen: )) (command _area o obj) (setq flaeche (* faktor faktor (getvar area ))) (setq umfang (* faktor (getvar perimeter ))) (command text (getpoint
Einfügepunkt für Fläche ) 25.0 0.0 (strcat A (rtos flaeche 2 2) qm )) (command _move (entlast) @ pause) (command _text (getpoint
Einfügepunkt für U ...
|
|
Rund um Autocad : Linie editieren
cad-lisp am 26.02.2003 um 11:52 Uhr (0)
Hallo Jürgen, hier einmal ein Versuch, eine Linie in eine Polyline zu ändern, mit zusätzlichen Stützpunkt in der Mitte. Gruß cad-lisp (defun c:li_pl ( / WAHL) ;;Funktion ersetzt eine Linie durch eine Polylinie ;;mit zusätzlichem Stützpunkt in der Mitte ;;Farbe und Layer bleibt erhalten ;;Objekthöhe und Erhebung gehen verloren (nur 2d) (setq wahl (entsel "
Bitte eine Linie auswählen:")) (cond (wahl (setq wahl (entget(car wahl))) (cond ((equal (cdr (assoc 0 wahl))"LINE") (f:line_to_polyl ...
|
|
Rund um Autocad : x , y , z Koordinatenabfrage
cad-lisp am 12.03.2003 um 12:58 Uhr (0)
Hallo jukni, entferne einmal der Leerzeichen zwischen "c:" und "DELTA_KORR" dann sollte das Lisp funktionieren. Gruß cad-lisp
|
|
Rund um Autocad : gedrehtes Rechteck zeichnen
cad-lisp am 19.03.2003 um 09:42 Uhr (0)
Hallo Fips, so sollte es auch unter ACAD2000 funktionieren ^C^C_UCS;_Z;\_rectang;\_UCS;VO es war ein vor _rectang zuviel. Gruß cad-lisp
|
|
Rund um Autocad : gedrehtes Rechteck zeichnen
cad-lisp am 19.03.2003 um 09:58 Uhr (0)
Hallo Fips, die Lösung von T. funktioniert natürlich auch, nur must du dann zwei Punkte picken für die Ausrichtung und nicht die Gradzahl eingeben. Gruß cad-lisp
|
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 12:24 Uhr (0)
Hallo Mario, eine Aufstellung findest du in der AutoCad Hilfe unter DXF-Reference. Gruß Cad-Lisp
|
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 12:39 Uhr (0)
Hallo Heinz, ich habe mir einmal erlaubt das Lisp zu ändern, damit es läuft. So sollte es funktionieren. Die Frabe stimmt aber nur dann, wenn der ausgewählte Layer die Farbe vonLayer hat. (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar "CLAYER")) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant (getint "
Startnummer 0 ")) (1- ant) 0 ) ;_ end of if th (getreal "
Texthöhe:") ) ;hier fehlte eine Klammer (while ...
|
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 13:22 Uhr (0)
Hallo Heinz, die Programmierung kam nicht von mir, habe nur die vorhandenen Fehler beseitigt. Aber trotzdem hier die gewünschte Änderung. Gruß Cad-Lisp (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar "CLAYER")) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant (getint "
Startnummer 0 ")) (1- ant) 0 ) ;_ end of if th (getreal "
Texthöhe:") ) ;hier fehlte eine Klammer (princ "
Wählen sie ein Element für die Layers ...
|