Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  LISP und OLE-Objekt

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:  LISP und OLE-Objekt (506 mal gelesen)
JotEs
Mitglied
Konstrukteur

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

Beiträge: 9
Registriert: 01.07.2021

Windows 7, Autocad Mechanical 2014

erstellt am: 23. Jul. 2021 12:30    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 zusammen,
ich bin ein Anfänger mit LISP, aber trotzdem wollte ich ein Programm Schreiben, dass zwei Rahmen um in der Zeichnung eingebetetes OLE-Objekt (Bild) zeichnet: einen genau an Bildgrenzen und einen mit Abstand von 2 mm.

(defun c:retan (/ p1 p2 p3 p4 p5 p6 p7 p8)
(setq p1 (getpoint "\nUnten Linkss: "))
    (setq x1 (car p1))
    (setq x1 (- x1 2))
    (setq y1 (cadr p1))
    (setq y1 (- y1 2))
(setq p3 (getpoint "\nOben Rechts: "))
    (setq x3 (car p3))
    (setq x3 (+ x3 2))
    (setq y3 (cadr p3))
    (setq y3 (+ y3 2))
(setq p2 (list (car p1)(cadr p3)))
(setq p4 (list (car p3)(cadr p1)))
(command "linie" p1 p2 p3 p4 p1 "")
(setq p5 (list x1 y1))
(setq p6 (list x1 y3))
(setq p7 (list x3 y3))
(setq p8 (list x3 y1))
(command "linie" p5 p6 p7 p8 p5 "")
(princ)
)

Wenn ich jetzt die Eckpunkte unten links und oben rechts anklicke, ACAD zeichnet zwei Rechtecke übereinander, und zwar an (unter) der Grenzen des Bildes. Wo ist mein Fehler? Wer kann mir da einen Ratschlag geben?

Mit schönen Grüßen
Joachim

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: 21533
Registriert: 03.06.2002

Alles

erstellt am: 23. Jul. 2021 12:49    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 JotEs 10 Unities + Antwort hilfreich

Hi,

einmal in der Hilfe zu AutoCAD [KLICK!]
und einmal vom FAQ [KLICK!]


Hoffe das war es.

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

JotEs
Mitglied
Konstrukteur

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

Beiträge: 9
Registriert: 01.07.2021

Windows 7, Autocad Mechanical 2014

erstellt am: 23. Jul. 2021 21:40    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 sehr für die schnelle Antwort und den richtigen Tipp. 
Wer hätte das gedacht, dass es einfach OSNAPCOORD 1 ist 
Noch mal danke.

Schöne Grüße
Joachim

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: 21533
Registriert: 03.06.2002

Alles

erstellt am: 23. Jul. 2021 21:54    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 JotEs 10 Unities + Antwort hilfreich

Für diesen Fall kann man es mit osnapcoord 1 regeln,
die Erklärung selbst ist aber halt ein paar Worte mehr.

Du kümmerst(e) dich nicht um die Objektefänge,
weder über osmode noch in deiner (command ... ) Befehlsfolge.
Somit hätte es mal funktioniert (wenn der ofang aus ist oder an der Koordinate nichts zu fangen ist mit den aktuellen Einstellungen des Objektfanges
und mal nicht (wenn ofang eingeschaltet ist und es etwas zu fangen gibt).

Die Voreinstellung osnapcoord ist 2, also Objektfang ignorieren bei (echter) Tastatureingabe,
aber bei automatisiertem Ablauf, dann entsprechend der osmode und aperture Einstellung.

Ich finde die Voreinstellung schlecht gewählt, aber die war schon immer so.

Als Alternative zu osnapcoord darfsf du gerne den nicht-Objektfang KEIN nutzen
(Command "_.Rectang" "_non" "50,50" "_non" "100,100")

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