| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Endpunkt eines Bogens mit Lisp bestimmen (787 mal gelesen)
|
Theodor Schoenwald
Ehrenmitglied
   Beiträge: 1672
Registriert: 16.04.2002
|
erstellt am: 31. Mai. 2004 11:28  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich suche eine Lösung.
...
Hier wird eine Linie gezeichnet ...
...
(command "_ARC" pause) ;... und mit einem Bogen verlängert.
(setq BO (entget (entlast)))
(setq P_BO_M (cdr (assoc 10 BO))) ; Zentrum des Bogens Wie erhalte ich noch den Endpunkt des Bogens?
Gruß
Theodor
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9732
Registriert: 01.12.2003 One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11
|
erstellt am: 31. Mai. 2004 21:33 <-- editieren / zitieren --> Unities abgeben: Nur für Theodor Schoenwald 
einfach mit (GETVAR "LASTPOINT") Ein Bogen hat ja immer 2 Enden, und die müssen aus den Winkeln berechnet werden siehe GC 50 und 51. Dabei ist aber unklar, welcher Punkt dann gesucht wird, hier ist Lastpoint sicher der einfachste Weg. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 31. Mai. 2004 22:00 <-- editieren / zitieren --> Unities abgeben: Nur für Theodor Schoenwald
Wie wäre es mit folgendem für ein Kurvenobjekt (vl-load-com)
(vlax-curve-getEndPoint(vlax-ename->vla-object (entlast))) oder mit diesem für einen Bogen im Speziellen ?
(vlax-safearray->list
(vlax-variant-value
(vlax-get-property (vlax-ename->vla-object (entlast)) 'Endpoint)
)
) Mittelpunkt wäre das :
(vlax-safearray->list
(vlax-variant-value
(vlax-get-property (vlax-ename->vla-object (entlast)) 'Center)
)
) ------------------
 - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald
Ehrenmitglied
Beiträge: 1672
Registriert: 16.04.2002
|
erstellt am: 31. Mai. 2004 22:09 <-- editieren / zitieren --> Unities abgeben:
|
Theodor Schoenwald
Ehrenmitglied
Beiträge: 1672
Registriert: 16.04.2002
|
erstellt am: 31. Mai. 2004 22:18 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, auch Dir ein Danke! Leider wird meine Datei für ACAD-LT mit dem Extender benötigt.
Da kann ich "(vlax- ..." nicht einsetzen.
Wenn ich jedoch den Bogen-Endpunkt für das "normale" ACAD benötige, habe ich ein schönes "Strickmuster". Gruß
Theodor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
