Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Schräge Linie in prozent anzeigen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Schräge Linie in prozent anzeigen (2202 mal gelesen)
Kleiner_pally
Mitglied
Zeichner


Sehen Sie sich das Profil von Kleiner_pally an!   Senden Sie eine Private Message an Kleiner_pally  Schreiben Sie einen Gästebucheintrag für Kleiner_pally

Beiträge: 74
Registriert: 03.05.2004

AutoCAD 2002 Netzwerk
mit Express Tool
Mein Os: XP prof.
AMD Athlon 2000+
512 MB RAM
NIVIDA GEFORCE Grafikkarte

erstellt am: 31. Aug. 2004 09:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Lispfreunde,
gibt es ein lisp o. hat wer eins, womit es mir anzeigt wenn ich auf einer schrägen linie klicke die schräge in prozent ?

Würde mich über einen vorschlag freuen.

Gruß pally

[Diese Nachricht wurde von Kleiner_pally am 31. Aug. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19657
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 31. Aug. 2004 09:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kleiner_pally 10 Unities + Antwort hilfreich

Wo ist 0-Grad/0-Prozent ?
Bks oder WKS ?
An welchem Ende ist der (Winkel)Scheitelpunkt ?
In welche Richtung (GUZ/UZ) wird abgefragt ?
360° = 100° ?

Fragen über Fragen  [du siehst...??]

------------------
Bitte Systemangaben eintragen, wie & warum siehst du HIER

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13435
Registriert: 30.11.2003

.

erstellt am: 31. Aug. 2004 09:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kleiner_pally 10 Unities + Antwort hilfreich

Siehe Cadffm : Ansonsten mal ein Ansatz(ohne Fehlerprüfung und nur für LINIEN)
(defun c:% ( / L P1 P2 DY DX W)
  (setq L (car(entsel)))
  (setq p1 (cdr(assoc 10(entget L))))
  (setq p2 (cdr(assoc 11(entget L))))
  (setq DY (-(cadr P2)(cadr P1)))
  (setq DX (-(car  P2)(car  P1)))
  (setq W  (cond
            ((and(zerop DX)(>= DY 0))          (/ Pi  2.0) )
            ((and(zerop DX)(<  DY 0))          (/ Pi  -2.0) )
            ((and(<  DX  0)(>= DY 0))  (+(atan (/ DY DX ))PI) )
            ((and(<  DX  0)(<  DY 0))  (-(atan (/ DY DX ))PI) )     
            ('T                        (atan (/ DY DX ))    )
          )
  )
  (setq w (* 100 W))
)

------------------
- Thomas -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Kleiner_pally
Mitglied
Zeichner


Sehen Sie sich das Profil von Kleiner_pally an!   Senden Sie eine Private Message an Kleiner_pally  Schreiben Sie einen Gästebucheintrag für Kleiner_pally

Beiträge: 74
Registriert: 03.05.2004

AutoCAD 2002 Netzwerk
mit Express Tool
Mein Os: XP prof.
AMD Athlon 2000+
512 MB RAM
NIVIDA GEFORCE Grafikkarte

erstellt am: 31. Aug. 2004 09:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo cadffm,
danke erstmal für die schnelle antwort.
Stimmt da sind fragen über fragen  dachte er gibt was allgemeines.
BKS und Gon wird hier gezeichnet (400 Gon = 360 Grad). Wäre nicht schlecht wenn es in allen richtungen gehen würde GUZ+UZ.
Hoffe jetzt alles richtig geschrieben zu haben.

Gruß pally

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Kleiner_pally
Mitglied
Zeichner


Sehen Sie sich das Profil von Kleiner_pally an!   Senden Sie eine Private Message an Kleiner_pally  Schreiben Sie einen Gästebucheintrag für Kleiner_pally

Beiträge: 74
Registriert: 03.05.2004

AutoCAD 2002 Netzwerk
mit Express Tool
Mein Os: XP prof.
AMD Athlon 2000+
512 MB RAM
NIVIDA GEFORCE Grafikkarte

erstellt am: 31. Aug. 2004 09:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo CADmium,
Befehl: %
Objekt wählen: 307.171

Weiß jetzt nicht ob es zusammenhängt ob wir in Gon arbeiten (GRAD in ACAD) aber in prozent wird es leider nicht angezeigt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13435
Registriert: 30.11.2003

.

erstellt am: 31. Aug. 2004 09:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kleiner_pally 10 Unities + Antwort hilfreich


kenn jetzt deine Linie nicht, aber Prozent-Steigung heiß bei mir immer Steigungseinheiten je 100 Waagerechteinheiten .. und 307 sind dann .. 307 senkrecht auf 100 waagerecht = 72° oder 80 gon

Frage ist auch Richtung der Linie ... also negative Steigung..
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 31. Aug. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Kleiner_pally
Mitglied
Zeichner


Sehen Sie sich das Profil von Kleiner_pally an!   Senden Sie eine Private Message an Kleiner_pally  Schreiben Sie einen Gästebucheintrag für Kleiner_pally

Beiträge: 74
Registriert: 03.05.2004

AutoCAD 2002 Netzwerk
mit Express Tool
Mein Os: XP prof.
AMD Athlon 2000+
512 MB RAM
NIVIDA GEFORCE Grafikkarte

erstellt am: 31. Aug. 2004 10:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hmm habe es mir irgentwie anderst vorgestellt und damit es auch so schwer ist wusste ich nicht.A
lso es solle was sein wo man die Angabe über %-Neigung einer Linie herausbekommt. egal ob sie GUZ oder UZ liegt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13435
Registriert: 30.11.2003

.

erstellt am: 31. Aug. 2004 10:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kleiner_pally 10 Unities + Antwort hilfreich

oder suchst du sowas ?

------------------
- Thomas -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Kleiner_pally
Mitglied
Zeichner


Sehen Sie sich das Profil von Kleiner_pally an!   Senden Sie eine Private Message an Kleiner_pally  Schreiben Sie einen Gästebucheintrag für Kleiner_pally

Beiträge: 74
Registriert: 03.05.2004

AutoCAD 2002 Netzwerk
mit Express Tool
Mein Os: XP prof.
AMD Athlon 2000+
512 MB RAM
NIVIDA GEFORCE Grafikkarte

erstellt am: 31. Aug. 2004 11:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke CADmium für den Link,
habe mir auch sofort das programm prozent.lsp heruntergeladen.
Nur muss ich dabei einen text o. bem. anklicken. geht es auch ohne also nur die linie anklicken und die neigung erscheint unten.


Angabe über %-Neigung einer Linie
Wert durch Ersetzen eines vorhandenen Textes absetzen

  Linie picken...
  vorhandenen Text picken... 7.80%

Also ohne text anklicken.
Hier nochmal die Lisp:

(defun c rozent
  ( / ech sli li x1 x2 y1 y2 proz sel el)
  (setq ech (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (princ "\n ")
  (princ "\n Angabe über %-Neigung einer Linie")
  (princ "\n Wert durch Ersetzen eines vorhandenen Textes absetzen")
      (princ "\n ")
    (setq
      ;Linie wählen:
      sli  (entsel "\n  Linie picken... ")              ; Element und Pickpunkt
      li  (entget (car sli))                            ; Element (Linie)
      ;Koordinaten der Punkte filtern (da Winkelauswahl 50 nicht möglich)
      x1 (car (cdr (assoc 10 li)))
      y1 (cadr (cdr (assoc 10 li)))
      x2 (car (cdr (assoc 11 li)))
      y2 (cadr (cdr (assoc 11 li)))
      ;Berechnung %-Wert und Umwandlung in Format XX.X und Anhang "%"
      proz (abs (* (/ (- y1 y2) (- x1 x2)) 100))
      proz (rtos proz 2 2)
      proz (strcat proz "%")
      ;Dummy-Text wählen:
      sel  (entsel "\n  vorhandenen Text picken... ")    ; Element und Pickpunkt
      el  (entget (car sel))                            ; Element (Text)
      ;Dummy-Text durch Wert (berechnet) ersetzen:
      el  (subst (cons 1 proz) (assoc 1 el) el)
    ) ;of setq
  (entmod el) ;Dummy-Text schreiben
  (princ proz)
  (setvar "CMDECHO" ech)
  (prin1)
) ;end.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Geos
Mitglied
Vermessungstechniker i.R.


Sehen Sie sich das Profil von Geos an!   Senden Sie eine Private Message an Geos  Schreiben Sie einen Gästebucheintrag für Geos

Beiträge: 1017
Registriert: 21.09.2001

ACAD Map 2010, Win 7 Pro
eigene Lisp's<P>HW: Core i7 860, 2.8 GHz
3.3 GB, NVIDIA GeForce GTS 250

erstellt am: 01. Sep. 2004 08:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Kleiner_pally 10 Unities + Antwort hilfreich

Servus

Ändere das Programm wie nachfolgend:


    ;Dummy-Text wählen:
;sel  (entsel "\n  vorhandenen Text picken... ") ; Element und Pickpkt
;el  (entget (car sel))                            ; Element (Text)
;Dummy-Text durch Wert (berechnet) ersetzen:
;el  (subst (cons 1 proz) (assoc 1 el) el)
) ;of setq
;  (entmod el) ;Dummy-Text schreiben
  (princ proz)
  (setvar "CMDECHO" ech)
  (prin1)
) ;end.

Dadurch werden die Schritte mit der Textbehandlung auskommentiert

------------------
Gruß, Ernst

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Kleiner_pally
Mitglied
Zeichner


Sehen Sie sich das Profil von Kleiner_pally an!   Senden Sie eine Private Message an Kleiner_pally  Schreiben Sie einen Gästebucheintrag für Kleiner_pally

Beiträge: 74
Registriert: 03.05.2004

AutoCAD 2002 Netzwerk
mit Express Tool
Mein Os: XP prof.
AMD Athlon 2000+
512 MB RAM
NIVIDA GEFORCE Grafikkarte

erstellt am: 01. Sep. 2004 11:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Ernst,
das habe ich jetzt gemacht geht super !
danke dir

Gruß pally

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz