|
AutoLisp : Koordinateneingabe bei (command "_offset")...
Schachinger am 16.12.2003 um 14:12 Uhr (0)
also einen herzlichen dank für eure hilfe! am objektfang is es bei meinem code leider auch nicht gelegen- keine ahnung was da los war - aber egal hauptsache es funktioniert jetzt ich rechne jetzt auch nur vom WKS aus - dann hauts hin. hintergrund ist das ich das selbe schon mal für den 3D-Bereich gemacht habe (Linien und Bögen mit Rohr überziehen) und dort bin ich nicht drumrum gekommen mit dem OKS zu arbeiten - hat aber auch gefuntzt dann. darum hab ich hier auch so angesetzt mit der lösung. der funkti ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : versetzen
flaschenpost am 03.01.2005 um 15:32 Uhr (0)
Hallo Marc, alle Forumsmitglieder sind dankbar über konstruktive Hinweise. Schließlich profitieren wir alle davon. Doch einen Userwunsch, der Schwachsinn wäre, habe ich im Forum noch nicht entdeckt. Wären die Werkzeuge der AutoCAD-Familie ausgereifter, dann gäbe es eine ganze Reihe von Wünschen gar nicht. Die meisten Bauherren wären schließlich auch nicht begeistert, wenn ihre Vorhaben nur als Rohbau + Selbstbausatz realisiert würden. Hallo Bu und Judith, mit einer kleinen Veränderung kann man den le ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : Text versetzt einfügen
Bauvermesser am 20.08.2013 um 11:55 Uhr (15)
Ich bedanke ich bei de umfangreichen Hilfe.Das mir der Textdrehung (polar Pkt (* rot (/ pi xxx)) 0.25) werde ich aufnehmen um dadurch einen markanten Unterschied zu den anderen Texten um den Punkt zu erreichen.------------------Gruß vom Bauvermesser;
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemassung
joern bosse am 11.05.2005 um 10:55 Uhr (0)
Hallo, ich denke die Variableneinstellung von DIMEXO ist nicht das Problem, den das ist ja nur der Abstand vom zu vermasssenden Objekt zur Hilslinien selbst. Die Hilsfslinie soll aber wohl eine fest Länge bekommen. Ich würde da einfach den Anfangspunkt der ersten und zweiten Hilfslinie um ein variables Maß verschieben, so daß die Hilfslinien immer die gleiche Länge hat. probiert habe ich es mal aber das klappt nur bei gedrehten Bemassungen, ist nur ein Gedankenansatz, mehr nicht. (defun c:test ( / ent def1 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Extrudern um Spirale
startrek am 12.07.2004 um 23:09 Uhr (0)
Edu, Axel, war wirklich nix mit mal schnell suchen ;;-(( Hier isser: http://ww3.cad.de/foren/ubb/Forum54/HTML/001584.shtml hope you mean it lg Nancy & HTH -- A polar bear is a rectangular bear after a coordinate transform.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Parallele Koordinaten berechnen
axeld am 29.01.2004 um 14:06 Uhr (0)
Nur eine theoretische Überlegung: Mit (polar pkt winkel abstand) müßte zu jedem Vertexpaar die senkrechte Koordinate berechnet werden können. Aus 2 Vertexen (Vertextpaar) wird die Richtung bestimmt, dann 90° dazu. ------------------ Axel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lispproblem
CADwiesel am 17.03.2005 um 15:56 Uhr (0)
dann machs doch so: Code: (defun positionstart (/ pstart pende a b c alpha_rad alpha_grad pbasis) ;;; (load lispbasis_1.lsp ) (setq cmddia (getvar cmddia )) (setvar cmddia 0) (setvar clayer 5 ) (setvar osmode 512) (if (setq pstart (getpoint
StartpunktPositionierung )) (if (setq pende (getpoint
EndpunktPositionierung )) (progn (command _qleader pstart pende ) (setq a (- (car (cdr pende)) (car (cdr pstart)))) (setq b (- (car pen ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Trennen von Linien
fca_mi2 am 14.06.2005 um 07:18 Uhr (0)
hallo,so müsste es gehen:(Defun C:Trenne() (setq abst nil) (setq abst (getdist "
Abstand der Auftrennung 0.15: ")) (if (null abst) (setq abst 0.15) ) (prompt "*** Trennen von gekreuzter Linien mit Abstandangabe ***") (setvar "CMDECHO" 0) (while (and (setq ger_1 (car (entsel "
Wahl der ersten Linie (oben): "))) (setq ger_2 (car (entsel "
Wahl der zweiten Linie (unten): "))) ) (setq p1 (cdr (assoc 10 (entget ger_1)))) (setq p2 (cdr (assoc 11 (entget ger_1)))) (setq p3 (cdr (assoc 10 (entget ger_2)))) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
fuchsi am 11.08.2004 um 09:31 Uhr (0)
hallo alpschorsch wenn du den text um 10 einheiten nach oben haben möchtest ist das einfachst diese lösung ersetz in deinem code vom 1. posting diese zeile (cons 10 ipt) mit (cons 10 (polar ipt (/ pi 2.) 10)) ------------------
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linienteile stutzen innerhalb einer Ellipse
Geos am 22.11.2004 um 08:06 Uhr (0)
Hi Du hast also die beiden Linienendpunkte, wobei einer gleichzeitig der Ellipsenmittelpunkt ist. Wie wärs, wenn Du mit (polar) einen Punkt etwas außerhalb des Zentrums errechnest und dann (nentselp) mit diesem Pkt verwendest? ------------------ Gruß, Ernst
|
| In das Form AutoLisp wechseln |
|
Lisp : Radius über drei Punkte berechnen
Bernd10 am 07.11.2016 um 13:28 Uhr (15)
Hallo,ich versuche den Radius eines Kreises über drei vorhandene Punkte zu berechnen. Ich mache einen Fehler und finde ihn aber nicht.Hier mein Programmcode dazu:( defun test ( / ) (setq lpkt1 (list -2.0 4.0 0.0)) (setq lpkt2 (list 1.0 -3.0 0.0)) (setq lpkt3 (list 5.0 7.0 0.0)) (setq rabst (distance lpkt1 lpkt2)) (setq ra (/ rabst 2.0)) (setq rwin12 (angle lpkt1 lpkt2)) (setq lmp12 (polar lpkt1 rwin12 ra)) (setq rwinm3 (angle lmp12 lpkt3)) (setq rabstm3 (distance lmp12 lpkt3)) (setq rm32 (expt rabstm3 2)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Trennen von Linien
fuwe-cad am 27.09.2005 um 14:43 Uhr (0)
Die Macke lässt sich umgehen:Objektfang abfragen (OSMODE) auf Null schalten und später wieder zurücksetzen.(Defun C:Trenne() (setq abst nil) (setq abst (getdist "
Abstand der Auftrennung 0.15: ")) (if (null abst) (setq abst 0.15)) (setq xy (getvar "OSMODE")) (setvar "OSMODE" 0) (prompt "*** Trennen von gekreuzter Linien mit Abstandangabe ***") (setvar "CMDECHO" 0) (while (and (setq ger_1 (car (entsel "
Wahl der ersten Linie (oben): "))) (setq ger_2 (car (entsel "
Wahl der zweiten Linie (unten): ")))) (setq ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributposition verschieben
cadplayer am 22.08.2013 um 13:31 Uhr (1)
Hallo!Ich möchte gern die Position eines Attributes in mehreren Blöcken gleichzeitig verschieben.In meiner Zeichnung befinden sich Blöcke mit und ohne Attributen, dehalb habe ich zunächst eine Funktion, die mir alle Blöcke MIT Attributen rausfiltert.Als Ergebnis habe ich eine Blockliste als Block im VLA-format und dessen Richtungswinkel.Wenn ich diese Funktion so ausführe verschiebt es mir den Block (bei Auswahl nur mit Attribut)Code:(foreach x werte (setq attr (getattributes (vlax-vla-object-enam ...
|
| In das Form Lisp wechseln |
