Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Liniendefinition Beginn und Ende

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Liniendefinition Beginn und Ende (1142 mal gelesen)
Bauvermesser
Mitglied
Vermesser


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

Beiträge: 460
Registriert: 18.03.2006

AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,

erstellt am: 11. Apr. 2006 23: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,
habe ein für euch kleines problem mit einer Liniendefinition,
und zwar; eine linie (Regenwasser) soll mit einem punkt anfangen und enden- aber der erste strich und letzte strich in einem bestimmten abstand vom angangs und endpunkt (bsp. 0,2 einheiten)beginnen bzw. enden;
die fachleute wissen gleich wozu-(abwasserleitunglinie zwischen zwei Kontrollschächten), wenn eine erstellung einer solchen def möglich wäre kann man über punktfang schnell die lineverbindung erstellen ohne das das Schachtsymbol überzeichnet wird, habe selbst etwas rumgefummelt bekomme aber das linienende nicht hin, wer kann helfen oder geht das vielleicht gar nicht am linienende weil die linein immer unterschiedlich lang sind???
*2-Regw,RW-->-->--
A,0,4.0,-0,2,[PFEIL1,cad-lib.shx,s=0.05],-0.75,8.0,[PFEIL1,cad-lib.shx,s=0.05],-0.75,4.0,-0,2

;;zweites problem, habe einen linientyp mit der Schrift-romans-
obwohl schriftart unter fonts vorhanden wird linie nicht geladen
was mache ich falsch
*Strom,strom --/-----/-----/--
A,10,-1,[EPFEIL,cad-lib.shx,s=0.15],-1,5,["Strom",romans,y=.2],0,["380 V",romans,y=-1.2,x=.2],3


------------------
Gruß vom Bauvermesser;
übrigens-
ein Vermesser kennt seine Grenzen!

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



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

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 12. Apr. 2006 07:51    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 Bauvermesser 10 Unities + Antwort hilfreich

Moin

zu eins

Würde dir Empfehlen das Schachtsymbol (?hoffentlich ein Block?) umzuzeichnen (so dass die Linien verdeckt werden, oder)geht einfacher, gibt auch Möglichkeiten ohne das das Symbol sich Optisch ändert.

PS.: Der Pfeilabstand ist nicht gleich

zu zwei

Ka aber mit anderen Fonts funkt´s z.B Arial.
Man könnte aus Strom 380V Symbole machen und diese verwenden

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

Bauvermesser
Mitglied
Vermesser


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

Beiträge: 460
Registriert: 18.03.2006

AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,

erstellt am: 23. Apr. 2006 10: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

danke für die nachricht,war in urlaub deshalb etwas verspätet,
zu 1)-leider ist schachtsymbol kein block da aus altem programm übernommen wird,
wäre immer noch interessiert an einer lösung bei der das linienende mit einem punkt endet-egal ob in diesem beispiel pfeilabstand gleich oder nicht
zu 2)-geht mit arial bei mir nicht da ich nicht weiß wie ich den E-blitz def. muss, warum läuft es nicht mit ,roman, obwohl schrifttyp vorhanden

------------------
Gruß vom Bauvermesser;
übrigens-
ein Vermesser kennt seine Grenzen!

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

s.wickel
Mitglied
Bauingenieur Wasserwirtschaft


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

Beiträge: 422
Registriert: 17.12.2001

Bricscad V7 - V11

erstellt am: 25. Apr. 2006 09:13    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 Bauvermesser 10 Unities + Antwort hilfreich

Hallo Bauvermesser!

Ich arbeite auch mit Kanälen und habe mal ein Programm geschrieben um zwei Kreise miteinander zu verbinden. Bitte sehr:

Code:
; Diese Funktion zeichnet eine Linie zwischen den Mittelpunkten zweier Kreise
; und Stutz die Linie an den Kreisen. Wählt der Benutzer auf die Anfrage
; "1. Schacht: " kein Objekt aus wird der vorherige 2. Schacht gewählt.
; Die Funktion wird beendet wenn für den zweiten Schacht kein Objekt geählt
; wird.

(defun C:KHAL()
  (c:KANALHAL)
)

(defun c:KANALHAL( );/ g gs1 gs2 p1 p2 lin)
  (setq linlist (list '(0 . "LINE") (cons 8 (getvar "clayer"))))

  (setq DN (/ (getreal "DN: ") 1000))
 
  (setq gs1 (car (entsel "\n1. Schacht: ")))
  (while (not (= (cdr (assoc 0 (entget gs1))) "CIRCLE"))
    (setq gs1 (car (entsel "\nKein Kreis gewählt! 1. Schacht: ")))
  )
 
  (setq gs2 (car (entsel "\n2. Schacht <Funktion beenden>: ")))
  (while (not (= (cdr (assoc 0 (entget gs2))) "CIRCLE"))
    (setq gs2 (car (entsel "\nKein Kreis gewählt! 2. Schacht: ")))
  )

  (while (not (= gs2 ()))
    (setq r1 (cdr (assoc 40 (entget gs1))))
    (setq r2 (cdr (assoc 40 (entget gs2))))
    (setq p1 (cdr (assoc 10 (entget gs1))))
    (setq p2 (cdr (assoc 10 (entget gs2))))
    (setq wink (angle p1 p2))
    (setq pl1 (list (+ (nth 0 p1) (* (cos wink) r1)) (+ (nth 1 p1) (* (sin wink) r1))))
    (setq wink (+ pi wink))
    (setq pl2 (list (+ (nth 0 p2) (* (cos wink) r2)) (+ (nth 1 p2) (* (sin wink) r2))))

;    (setq linobj (entmake (append linlist (list (cons 10 pl1) (cons 11 pl2)))))
    ;(entupd linobj)

    (command "_pline")
    (command pl1)
    (command "b")
    (command DN)
    (command DN)
    (command pl2)
    (command "")
   
    (setq gs1 (car (entsel "\n1. Schacht <letzter Schacht>: ")))
    (while (and (not (= gs1 ())) (not (= (cdr (assoc 0 (entget gs1))) "CIRCLE")))
      (setq gs1 (car (entsel "\nKein Kreis gewählt! 1. Schacht: ")))
    )
    (if (= gs1 ()) (setq gs1 gs2))
   
    (setq gs2 (car (entsel "\n2. Schacht <Funktion beenden>: ")))
    (while (and (not (= gs2 ())) (not (= (cdr (assoc 0 (entget gs2))) "CIRCLE")))
      (setq gs2 (car (entsel "\nKein Kreis gewählt! 2. Schacht: ")))
    ) ;while

  ) ;while 
  (princ "Funktion beendet!")
  (princ)
) ;defun

(princ "\nFunktion KANALHAL geladen! (KHAL)")
(princ)



Allerdings habe ich es länger nicht benutzt und kann deshalb nicht mehr sagen wie gut es funktionierte.

Zu den Linientypen:
Ich würde keine Fonts verwenden, es muss dann nämlich sichergestellt sein, dass der Schriftstil erstellt ist und auch auf genau den richtigen Font verweist. Verwende lieber Symbole. Die müssen natürlich auch vorhanden sein, klar.

Viel Spass bei der Arbeit, ich habe ab morgen Urlaub!

Stefan

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

Bauvermesser
Mitglied
Vermesser


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

Beiträge: 460
Registriert: 18.03.2006

AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,

erstellt am: 04. Mai. 2006 21:34    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 für die unterstützung, leider läuft die lsp nicht richtig(symbol wird nicht freigestellt)
trotzdem dank
Bauvermesser

------------------
Gruß vom Bauvermesser;
übrigens-
ein Vermesser kennt seine Grenzen!

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)2023 CAD.de | Impressum | Datenschutz