Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  Lisp
  GET*** Funktionen und Lisp - hat mal jemand Zeit?

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
  
Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
Autor Thema:  GET*** Funktionen und Lisp - hat mal jemand Zeit? (126 / mal gelesen)
archtools
Mitglied



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

Beiträge: 1027
Registriert: 09.10.2004

Entwickler für AutoCAD, BricsCAD u.a., alle Systeme

erstellt am: 25. Mai. 2025 12: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

Hallo,

dass man auf die AutoLISP Funktionen GETxxx, also z.B. GETPOINT, nicht transparent mit extern definierten Funktionen mit command-Aufrufen antworten kann, ist seit AutoCADs Anfängen bekannt. Das ist gleichermaßen in AutoCAD und BricsCAD so, und vielleicht auch in anderen kompatiblen Programmen. Dabei habe ich keine neueren AutoCAD Versionen, vielleicht hat sich das ja geändert.
Ich habe da jedenfalls einen Workaround gefunden, der zumindest in BricsCAD funktioniert.

Wenn jemand Zeit für einen kurzen Test in einer neuen AutoCAD Version hat:

Erst mal in AutoCAD ein Rechteck zeichnen, und dann auf dem AutoCAD Befehlsprompt das testen (Befehlsprompts wg CADCAL und BricsCAD bei mir etwas anders als in AutoCAD):

Code:
command: _LINE
Start of line or [Follow] <Last point>: 'CAL
>> expression: MEE

... dann zwei Punkte z.B auf der Diagonalen des Rechtecks oder einer Kante zeigen und mit dem Linien-Befehl fortfahren und beenden. Das sollte unbedingt funktionieren.
Und jetzt das Gleiche als Input auf einen Lisp-Aufruf mit GETPOINT
Code:
command: (setq ans (getpoint "\nSPT: "))
SPT: 'CAL
>> expression: MEE

... und dann die Punkte eingeben, z.B. Diagonalpunkte im Rechteck.
Je nachdem, wird entweder die Eingabe nicht akzeptiert und weiter nach der GETPOINT Eingabe für SPT gefragt, oder es wird zwar das Ergebnis von MEE angezeigt, aber es wird der LASTPOINT an die Variable ANS zugewiesen.

Mein Workoround ist nicht gerade elegant, aber er funktioniert in BricsCAD:

Code:

(vl-load-com)
(defun cc-getstring (msg /)
      (vla-GetString (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))) 1 msg)
)
(vlax-remove-cmd "tcal" 'tcal)
(defun tcal (/ oldos ccstr ccr)
  (setq oldos (getvar "osmode"))
  (if (and (setq ccstr (cc-getstring "\n>> expression: "))
  (/= "" ccstr)
  (setvar "osmode" 0)
  (setq ccr (cal ccstr))
  (setvar "osmode" oldos)
      )
    (progn
      (or ::activedoc
  (setq ::activedoc
(vla-get-ActiveDocument (vlax-get-acad-object))
  )
      )
      (vla-SendCommand
::activedoc
(strcat (vl-prin1-to-string (cons 'list ccr)) " ")
      )
    )
  )
)
(vlax-add-cmd "tcal" 'tcal "" ACRX_CMD_TRANSPARENT)

Mit dem transparent aufgerufenen Befehl 'TCAL läuft das nun so:

Code:
: (setq ans (getpoint "\nSPT: "))
SPT: 'tcal
>> expression: mee
  >> enter P1 or <enter> for lastpoint for MEE:
CC >> enter P2 for MEE:

Dann wieder die Punkte eingeben, und in BricsCAD läuft es dann so weiter:

Code:
SPT: (LIST 382.951976128814 153.718373493976 0.0)(382.951976128814 153.718373493976 0.0)
SPT: (382.951976128814 153.718373493976 0.0)

Das ist nicht schön, wg der gleich dreifachen Anzeige des Codes, aber es funktioniert. Offenbar kriegt (getpoint) auch erst mal ein NIL, bekommt aber durch die Lisp-Listenkonstruktion deren Ergebnis dann doch als Input mit. Die Variable ANS hat nun den korrekten Wert.

Ist das mit AutoCAD und GeomCAL reproduzierbar?

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

archtools
Mitglied



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

Beiträge: 1027
Registriert: 09.10.2004

Entwickler für AutoCAD, BricsCAD u.a., alle Systeme

erstellt am: 28. Mai. 2025 08: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

Doppelt

[Diese Nachricht wurde von archtools am 28. Mai. 2025 editiert.]

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



Anzeige:Infos zum Werbeplatz >>

AVC Assembly CAD APP für Allgemeine Werkzeuge, Möbel, Messestände

Combine parts into a block assembly. Give the block an automatic name based on a pattern with a sequential number. Replace the block with a new one while maintaining the attribute values.

archtools
Mitglied



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

Beiträge: 1027
Registriert: 09.10.2004

Entwickler für AutoCAD, BricsCAD u.a., alle Systeme

erstellt am: 28. Mai. 2025 08: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

Zitat:
Original erstellt von archtools:
Ich habe da jedenfalls einen Workaround gefunden, der zumindest in BricsCAD funktioniert.


Hab's selbst testen können: in AutoCAD funktioniert das nicht.

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