| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: hilfe um befehl textsize in lsp einzubauen (467 mal gelesen)
|
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,
|
erstellt am: 22. Mai. 2006 22:49 <-- editieren / zitieren --> Unities abgeben:
hallo, habe eine kleine lsp um einen pfeil zu zeichnen, dieser wird durch die einstellung zu -textsize- in der größe bestimmt, wer kann mir helfen und in diese lsp den befehl " textsize" einbauen damit ich vor der erstellung des pfeiles die größe einstellen kann, habe schon einiges probiert bekomme es aber nicht hin gruß der bauvermesser (DEFUN C:PFEIL() ;; hier aufruf textsize um pfeilgröße zu bestimmen (SETVAR "CMDECHO" 0) (SETQ S (GETPOINT "\nStartpunkt: ") E (GETPOINT S "\nEndpunkt: ")) (COMMAND "PLINIE" S "B" 0 0 (POLAR S (angle s e) (- (Distance S E) (GETVAR "TEXTSIZE"))) "B" (/ (* 2.0 (GETVAR "TEXTSIZE")) 3.0) 0 E "") (terpri) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
edwin2006 Mitglied
Beiträge: 13 Registriert: 22.05.2006 acad2002
|
erstellt am: 22. Mai. 2006 22:57 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 23. Mai. 2006 07:39 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
die variable textsize ist (hoffentlich richtig) belegt, warum willst sie noch extra eingeben und damit die textsize für vielleicht folgende texteingaben falsch belegen. oder willst den folgenden text in seiner höhe durch die pfeilgrösse bestimmen lassen? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1968 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 23. Mai. 2006 07:44 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
(SETVAR "CMDECHO" 0) (SETQ S (GETPOINT "\nStartpunkt: ") E (GETPOINT S "\nEndpunkt: ")) (COMMAND "PLINIE" S "H" "0" (/ (* 2.0 (GETVAR "TEXTSIZE")) 3.0) (POLAR S (angle s e) (- (Distance S E) (GETVAR "TEXTSIZE"))) "") ------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,
|
erstellt am: 23. Mai. 2006 23:31 <-- editieren / zitieren --> Unities abgeben:
danke für die hilfe, natürlich ist dieser weg eine pfeil zu erstellen etwas ungewöhnlich und wird von mir auch nur selten benutzt, das ich damit die textgröße in dem sinne "verstelle" ist mir klar, wollte nur ein besseres handling dieses befehls haben und einige unnötige schritte weglassen;; mit der textgröße habe ich sowieso problem und muss,da ich denke das ich was falsch mache, einen neuen beitrag erstellen ------------------ Gruß vom Bauvermesser; übrigens- ein Vermesser kennt seine Grenzen! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |