|
Lisp : Polylinie versetzen und enden schließen
tklingler am 27.10.2008 um 10:07 Uhr (1)
Hallo, mit folgenden Script versetze ich ene Polylinie und runde diese ab.Wie kann ich di noch offenen ende schließen ? ;Erstelle eine Blech mittels versetzten ; blech1(defun zpolyo (p) ; Polylinie ohne schließen (setq dp p) ; dp = Liste der Punkte (setq dl (length p)) ; dl = Anzahl der Punkte (command "plinie") (repeat dl ; Schleife = Anzahl Punkte (command (car dp)) ; erster Punkt aus Liste (setq dp (cdr dp)) ; löschen erster Punkt aus Liste ) (command "") ; Abbruch Plinie) ;end zpolyo(defun grad (w) ; ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 03.05.2012 um 14:34 Uhr (0)
@cadmium: Ja ist mir klar, Stützpunkte kann ich einfach löschen. Aber geht das auch gleich, dass ich ganze Liniensegmente aus der Polylinie rauslösche@Wolfgang: Ich hab deinen Code nicht ganz zum laufen gekriegt. Vielleicht kannst du nochmal kurz einwerfen, wie du dir das vorgestellt hast mit xline/entdel - kommt mir irgendwie merkwürdig vor.Zu meinem zusammengekritzelten: Ich würde gern einen sauberen Abschluss des progn am Ende finden. Gedacht war eigentlich abzufragen ob die Variablen für das 1. Objekt ...
|
| In das Form Lisp wechseln |
|
Lisp : Basispunkt Schraffur
Andreas Kraus am 24.02.2009 um 09:02 Uhr (0)
Hallo Jörn,ich hab da mal was zusammengebaut aus einer anderen Sache in der es um Polylinien geht, aber die Stützpunkte kannst du ja auch aus der Schraffur ermitteln.Ich hab da Punkte innerhalb der Polylinie gebraucht und ich denke das lässt sich mit geringem Umbau verwenden.(defun c _in_pline () (defun intersect (ent1 ent2 extend / ar) (defun gather (ls len / tmp rl i) (setq i 0) (foreach item ls (setq tmp (append tmp (list item))) (setq i (1+ i)) (if (zerop (rem i len)) (setq rl (cons tmp rl) tmp ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Layer in vorh. Lisp ändern
AsSchu am 17.09.2003 um 09:04 Uhr (0)
Hallo, leider bin ich kein Lispler. Kann mir jemand vo Euch helfen? Ich möchte, dass er die lisp auf dem aktuellen Layer ausführt und nicht auf Layer 0 wäre wirklich schön ;; BOESCH.LSP ;;; ;;; 10.11.1997 (c) Christoph Candido, Wien ;;; E-Mail: h8540418@edv1.boku.ac.at ;;; ;;; Boeschungssignaturen erstellen. ;;; (defun C:BOESCH (/ *boesch_err* getent getd oerr oech obm en1 en2 d ss ssneu ssd i en ent pt1 pt2 pt3 ang j) (defun *boesch_err* (s) ; Fehlerroutine (set ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
ABDN am 10.05.2004 um 09:49 Uhr (0)
Hallo, ich habe in den nachfolgenden Code den Layer mit eingearbeitet. Das heißt er soll sich bei Programm start den aktuellen Layer merken und einen neuen zugewiesen bekommen z.B. 0_Li_Gr_018. Nach Programm ende soll dann der gemerkte Layer wieder aktiv sein. Wenn ich nun den nachfolgenden Code ausführe bekomme ich manchmal die Meldung : Fehler: „Einstellung für CAD-Variable zurückgewiesen“ Woran kann das liegen ? Wie kann ich das mit dem Layer sauber reinkriegen. Mit den Code kann man Böschungslinien ers ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blockattributdaten
Detlef.w am 22.02.2006 um 20:18 Uhr (0)
Hallo Lispler,bisher habe ich mit euren Beiträgen gut helfen können, nun aber brauche eure HilfeIch habe mir eine eigene Layer und Ebenensteuerung erstelltSo kann ich z.B. Automatisch den Layer -2estrich erstellen und ein und ausschalten. Somit kann ich im Kellergeschoß den Estrich auf dem Layer -2Estrichzeichnen. Der Layer für das Erdgeschoß würde dann 10Estrich heißen.Nun zu meinem Problem. Ich habe mir ein Programm geschrieben, mit dem ich die Zimmertüröfnung mit zwei punkten anklicken kann und dann mit ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
marc.scherer am 10.05.2004 um 19:28 Uhr (0)
Uuund anbei noch mal n komplettes Ding... Code: (vl-load-com) ; Macht einen Layer aktuell (defun SET-LAYER (NAME / RETVAL) (vla-put-activelayer (CURRENT-DOCUMENT) (setq RETVAL (vla-item (DOCUMENT-LAYERS) NAME)) ) ;_ Ende von vla-put-ActiveLayer RETVAL ) ;_ Ende von defun ; gibt das Vla-Object zu einem ; Layernamen zurück (defun layer-object(name / result) (vlax-for layer(document-layers) (if (=(strcase name) (strcase(vla-get-name layer)) ) (setq result lay ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : hilfe um befehl textsize in lsp einzubauen
CADwiesel am 23.05.2006 um 07:44 Uhr (0)
(SETVAR "CMDECHO" 0)(SETQ S (GETPOINT "
Startpunkt: ") E (GETPOINT S "
Endpunkt: "))(COMMAND "PLINIE" S "H" "0" (/ (* 2.0 (GETVAR "TEXTSIZE")) 3.0) (POLAR S (angle s e) (- (Distance S E) (GETVAR "TEXTSIZE"))) "")------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form AutoLisp wechseln |
3D-Kanal-DWG.txt |
Lisp : 3D Objekte Zeichnen
Nano am 18.05.2013 um 07:35 Uhr (0)
HalloHier Versuche ich ein 3D-Kanal zu erstellen.Das kleine Lisp geht auch, jedoch möchte ich den letzten Schnitt sparren, den Befehl "3DDREHEN".Das heisst das ich mit 3D-Polar mühe habe.Weiß jemand wie, vielen Dank.... mfg NanoIm Anhang eine DWG mit Darstellung und Erleuterung.(DEFUN c:3dKanal() (SETVAR "cmdecho" 0) (SETQ $breite (Getreal "
Kanal-Breite angeben: ") $hoehe (Getreal "
Kanal-Höhe angeben: ") $laenge (Getreal "
Kanal-Länge angeben: ") $flansch 22 $flanschbreite (+ (* $flansch 2) $bre ...
|
| In das Form Lisp wechseln |
3dKanal_Problem-DWG.txt |
Lisp : 3D Objekte Zeichnen
Nano am 18.05.2013 um 09:52 Uhr (0)
Hallo JürgenKannst du behilflich sein, da wäre ich froh.bei diese Zeile habe ich noch ein Problem und ich weiss nicht mehr weiter.Habe noch eine Zeichnung im Anhang, so dass mann den Fehler sieht.Lisp:(DEFUN c:3dKanal() (SETVAR "cmdecho" 0) (SETQ $breite (Getreal "
Kanal-Breite angeben: ") $hoehe (Getreal "
Kanal-Höhe angeben: ") $laenge (Getreal "
Kanal-Länge angeben: ") $flansch 22 $flanschbreite (+ (* $flansch 2) $breite) $flanschhoehe (+ (* $flansch 2) $hoehe) $blechdicke 5 ) (command "bks" " ...
|
| In das Form Lisp wechseln |
|
Lisp : Probleme mit (polar ... )
Oberpeilsteiner Florian am 28.06.2011 um 09:16 Uhr (0)
Hallo Marco,danke noch für denk Tipp mit Prüfen. Ist auf jeden Fall hilfreich das zu wissen.mfg Florian
|
| In das Form Lisp wechseln |
|
Lisp : OT: Funktion polar in C++
alfred neswadba am 18.10.2010 um 14:02 Uhr (0)
Hi,ist der Syntax das Problem oder die Berechnung?P_neu_X = P_alt_x + cos(Winkel)*LängeP_neu_Y = P_alt_Y + sin(Winkel)*Länge- alfred -------------------www.hollaus.at
|
| In das Form Lisp wechseln |
|
AutoLisp : Linienteile stutzen innerhalb einer Ellipse
cadking am 22.11.2004 um 10:15 Uhr (0)
Hallo Ernst auch einen Punkt mit Polar kann ich nicht anwählen, denn auch da liegen u.U. Linien die ich nicht stutzen will. Gruß Stefan
|
| In das Form AutoLisp wechseln |
