• Dieses Forum ist die maschinengenerierte Übersetzung von www.cad3d.it/forum1 - der italienischen Design-Community. Einige Begriffe sind nicht korrekt übersetzt.

Polylines zu tragen in der Höhe

  • Ersteller Ersteller mirabeau
  • Erstellt am Erstellt am

mirabeau

Guest
bye to all,

ich brauche eine lispe (zahlung ist gemeint), die folgende operationen auf spline und/oder polyline durchführt:

das referenzkontingent eingeben;
polylinea (oder spline) auswählen;
den höhenabstand der polylinien eingeben;
wählen sie die nächste polylinie.

im wesentlichen habe ich isoipse, dass ich einen nach dem anderen ansprechen muss, um sie in die jeweilige quote zu bringen. ich brauche den prozess, der automatisiert werden soll, d.h. die niveaukurve auswählen und automatisch auf die höhe nehmen.
natürlich ist der abstand in den höhen der isoipse konstant.

danke.
 
hier finden sie den deckel für sie:
http://www.sepram.com/applicazioni_lisp.htm


änderung der kurvenansicht mit dieser funktion können sie schnell die erhöhung auf polylinien ändern, die die niveaukurven darstellen. das programm fragt die quote der ersten polylinie, die punkte des abschnittes und die fairness zwischen den kurven der ebene.
 
danke.

nach oben ich schrieb die nachricht, ich suchte im netz und fand die sperma lisp. leider funktioniert es nicht mit der spline. ich versuchte es zu ändern, aber ohne erfolg. meine anfrage bleibt gültig.

hi.
 
die von liber ist eine ausgezeichnete lösung, aber ich denke, dass, um eine gute definition in der geometrie der spline zu halten, wird es notwendig sein, sie in ein poly mit einer flut von vertikeln umzuwandeln.

wenn sie versuchen, die lispe zu ändern, indem sie die in rot markierten codezeilen hinzufügen.

für mich funktioniert es, bis zur testgrenze.

ich habe die modifizierte lisp nicht posten, weil es das copyright des autors gibt und ich keine casinos kombinieren will.

(fun c:cec)
(Setvar "cmdecho" 0)
(falls nicht äquivalent)(c:cec-x)
(setq qt(gereal)\n.... anfangskurve <m>"
(setq p1(getpoint "\n.... erster schritt des abschnittes:)
(setq p2(getpoint p1 "\n.... zweiter punkt des abschnitts:")
(setq grouppoly(sget "_e" (list p1 p2)) (list (cons -4 "<or")(cons "polyline")<="" 0="" m=""></or")(cons></m>(cons 0 "Spline")(cons 0 "lwpolyline")(cons -4 "or>"))
(setq i 0 zpunto-new qt)
(Repeat)
(setq polyx(entget(ssname gruppopoly i)))


(if (= (cdr(assoc 0 polyx)) "Polyline")
(Prog.)
(setq punto(cdr(assoc 10 polyx)))
(setq punto-new(list (car punto) (cadr punto) zpunto-new))
(setq polyx (subst (cons 10 punto-new) (assoc 10 polyx) polyx))(entmod polyx)
)
(progn(setq polyx (subst (cons 38 zpunto-new) (assoc 38 polyx) polyx))))))
)(if (= (cdr (assoc 0 polyx)) "Spline")
(Prog.)
(setq lista2 nil)
(setq cont 0)
(Repeat)
(setq lista1 (nth cont polyx))
(Fälle (= PKW-Liste) 10)
(setq lista2 (subst zpunto-new (letzte Liste) lista1))
)
(Fälle (= PKW-Liste) 11)
(setq lista2 (subst zpunto-new (letzte Liste) lista1))
)
(setq cont (1+ cont))
(falls lista2 (setq polyx (subst lista2 lista1 polyx))))
)
(entmod polyx)
)
)(seq zpunto-new(+ zpunto-new equi))
(seq i(1+) (i)
)
(princ "\n work perform!")(princ)
)
(Defun c:cec-x)
(setq equi(getreal "\n....... Fairness <m>: "
(princ)
)
(princ) <copyright: claudio="" granuzzo="" ing.=""> typ cec, um das programm zu starten!")
(princ "\n type cec-x to change fairness!")
(princ)</copyright:></m>
 
danke noch mal.
wenn ich zu meiner seite kommen musste, bezahlte pizza und bier.
natürlich auch dank liber, auch seine lösung ist nicht schlecht.

hi.
 
bitte, ich hoffe, es funktioniert.

da sie jedoch unausgewogen sind, können sie auf jeden fall befreien.
 
GP. schrieb:
die von liber ist eine ausgezeichnete lösung, aber ich denke, dass, um eine gute definition in der geometrie der spline zu halten, wird es notwendig sein, sie in ein poly mit einer flut von vertikeln umzuwandeln.

wenn sie versuchen, die lispe zu ändern, indem sie die in rot markierten codezeilen hinzufügen.

für mich funktioniert es, bis zur testgrenze.

ich habe die modifizierte lisp nicht posten, weil es das copyright des autors gibt und ich keine casinos kombinieren will.

(fun c:cec)
(Setvar "cmdecho" 0)
(falls nicht äquivalent)(c:cec-x)
(setq qt(gereal)\n.... anfangskurve <m>"
(setq p1(getpoint "\n.... erster schritt des abschnittes:)
(setq p2(getpoint p1 "\n.... zweiter punkt des abschnitts:")
(setq grouppoly(sget "_e" (list p1 p2)) (list (cons -4 "<or")(cons "polyline")<="" 0="" m=""></or")(cons></m>(cons 0 "Spline")(cons 0 "lwpolyline")(cons -4 "or>"))
(setq i 0 zpunto-new qt)
(Repeat)
(setq polyx(entget(ssname gruppopoly i)))


(if (= (cdr(assoc 0 polyx)) "Polyline")
(Prog.)
(setq punto(cdr(assoc 10 polyx)))
(setq punto-new(list (car punto) (cadr punto) zpunto-new))
(setq polyx (subst (cons 10 punto-new) (assoc 10 polyx) polyx))(entmod polyx)
)
(progn(setq polyx (subst (cons 38 zpunto-new) (assoc 38 polyx) polyx))))))
)(if (= (cdr (assoc 0 polyx)) "Spline")
(Prog.)
(setq lista2 nil)
(setq cont 0)
(Repeat)
(setq lista1 (nth cont polyx))
(Fälle (= PKW-Liste) 10)
(setq lista2 (subst zpunto-new (letzte Liste) lista1))
)
(Fälle (= PKW-Liste) 11)
(setq lista2 (subst zpunto-new (letzte Liste) lista1))
)
(setq cont (1+ cont))
(falls lista2 (setq polyx (subst lista2 lista1 polyx))))
)
(entmod polyx)
)
)(seq zpunto-new(+ zpunto-new equi))
(seq i(1+) (i)
)
(princ "\n work perform!")(princ)
)
(Defun c:cec-x)
(setq equi(getreal "\n....... Fairness <m>: "
(princ)
)
(princ) <copyright: claudio="" granuzzo="" ing.=""> typ cec, um das programm zu starten!")
(princ "\n type cec-x to change fairness!")
(princ)</copyright:></m>
Zum Vergrößern anklicken....
ich bin neu und verstehe sehr wenig. ich brauche auch diese lippe.
ich habe alles getan, was sie beschrieben haben, ich habe es auf mein autocad hochgeladen, aber ich kann die anwendung nicht starten!
entschuldigen sie die unwissende frage!
vielen dank für ihre verfügbarkeit
danke.
 
davide new schrieb:
ich bin neu und verstehe sehr wenig. ich brauche auch diese lippe.
ich habe alles getan, was sie beschrieben haben, ich habe es auf mein autocad hochgeladen, aber ich kann die anwendung nicht starten!
entschuldigen sie die unwissende frage!
vielen dank für ihre verfügbarkeit
danke.
Zum Vergrößern anklicken....
es wird auch am ende der lisp geschrieben, was der befehl ist:
Princ " <copyright: claudio="" granuzzo="" ing.=""> </copyright:>typ Blinddarm das Programm den Start!“(durch) typ cec-x Pro-Äquivalentzähne!
(Snaps)
Zum Vergrößern anklicken....
 

Statistik des Forums

Themen
58.521
Beiträge
499.056
Mitglieder
104.110
Neuestes Mitglied
ChristianR

Zurzeit aktive Besucher

Keine Mitglieder online.
Gesamt: 0 (Mitglieder: 0, Gäste: 0)
Zurück
Oben