---

teile_schuetzen.lsp

Hallo,

ich versuch mir gerade nee Lisp zu schreiben, mit der ich durch anklicken einer
Linie im Annotation, das entsprechende Teile, in der entsprechenden Ansicht im Schnitt
schützen oder schneiden kann, siehe Anhang.

Das Tool im Annotation funzt zwar, aber wenn man viele Lochbilder mit Schrauben etc. hat
muss man diese eine Schraube erst mal im Strukturbaum finden oder im 3d-Fenster mit ein-
und ausblenden suchen. Also warum nicht im Annotation das Teil anklicken?

Als Grundlage dient mir hier die Lisp -> SW-PosNum von Wolfgang Seel und das funktiniert
bis auf eine Angabe!

Code:

---

(if (not(equal element nil))
(sd-call-cmds (SECURE_PART_FROM_SECTION :SECURED_PARTS  art "/BG/Bolzen.1" :in_view Ansicht
:section_feature_in_view :secure)))

---

Wie bekommen den Pfad "/BG/Bolzen.1" automatisch ermittelt?

Gruß Michael

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

---

teile_schuetzen.lsp

So, ich habe es hin bekommen und hoffe das alles passt!  

Gruß Michael

Betroffenen Ansicht wird jetzt nach angezeigt!
Michael

[Diese Nachricht wurde von MiBr am 14. Sep. 2017 editiert.]

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

---

Hallo,

ich möcht in dem Tool noch eine Abfrage machen, ob die entsprechende Baugruppe das
Schützen/Schneiden der Teile zulässt bzw. reserviert ist. Wenn die Baugruppe nicht
resevivert ist passiert halt nichts :(!

Habe es schon so und mit ähnl. Befehlen probiert:

Code:

---

(setf StammObject (SD-PATHNAME-TO-OBJ Teile_pfad))
(setf Baugruppe_reser (sd-inq-obj-parent-instance-read-only-p StammObject))

---

Sowas funktioniert aber nicht, wenn das zu schützende Teil in Baugruppen verschachtel ist.
Ich bräuchten einen Befehl, der die Baugruppe/Besitzer des Ansichtensatzes auf Resevierung
prüft. Oder ob der Ansichtensatz der Zeichung READ-ONLY ist.

Hat jemand nee Idee?

Gruß Michael

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

---

teile_schuetzen.lsp

Hallo,

ich hab es wieder mal hingefummelt 

Code:

---

(setf Pfad_readonly (write-to-string (format nil "~a" Teile_pfad)))
(setf Pfad_readonly (sd-string-split Pfad_readonly "/"))
(setf Pfad_readonly (format nil "/~a" (nth 1 Pfad_readonly)))
(setf StammObject (SD-PATHNAME-TO-OBJ Pfad_readonly))
(setf BG_readonly (sd-inq-obj-contents-read-only-p StammObject))

---

Sicher nicht die eleganteste Art  , aber es funzt.

Änderungen:
Besitzer kann reserviert werden 
Ansicht aktualisieren, anstelle der kompletten Zeichnung

Viele Spaß mit dem Tool und Wünsche werden gerne entgegengenommen!

Gruß Michael

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

---

Müsste eigentlich mittels

Code:

---

(sd-inq-obj-parent-instance-read-only-p (sd-am-inq-curr-view-set))

---

einfacher funktionieren.

(sd-am-inq-curr-view-set) liefert dir den aktiven Ansichtssatz, aber Achtung, es muss nicht notwendigerweise der Ansichtssatz der aktuellen Zeichnung sein.

------------------
Viele Grüße
Felix

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

---

teile_schuetzen.lsp

Hallo Felix,

danke für den Hinweiß, damit gegoogelt bin ich auf die Seite cad.osd.de gekommen
und da gibt es glatt ein Tool "Besitzer anzeigen", das genau die Funktion hat. 

Naja, habs eingebaut und läuft wie gewünscht!

Code:

---

(let ()
(setf Pfad_readonly
(sd-am-view-set-struct-owner
(sd-am-inq-view-set
(sd-am-view-struct-view-set
(sd-am-inq-view Ansicht
))))
);;setf
);;let

---

Anbei die geänderte Lisp! 

Gruß Michael

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

---

Zitat:

---

Original erstellt von MiBr:
… damit gegoogelt bin ich auf die Seite cad.osd.de gekommen und da gibt es glatt ein Tool …

---

sich die LISP tools von unserer Hilfe Seite komplett runter zu laden und in einem lokalen Verzeichns dann nach Stichworten in *.lsp zu suchen ist immer eine gute Idee.    Es wurde beinahe alles schon mal irgendwie/irgendwo/irgendwann gemacht.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Hallo,
Ein super Makro. Leider funktioniert es bei mir nicht immer.
Woran es liegt kann ich leider nicht sagen, aber ich denke es liegt daran dass das falsche Teil gewählt wird und dadurch keine Änderung passiert. Kann es sein dass vom Makro das falsche Exemplar gewählt wird?

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

---

Hallo,

das mit den Exemplaren hatte ich abgetestet und nie Probleme gefunden. Habe gerade auch
mal meine Kollegen gefragt - Keine Probleme!
Hhmm, evtl. Untrennbare Baugruppen?

Kann das vielleicht in der Bedienung des Tools liegen? Jede Teileauswahl muss anschließend
mit Schützen oder Schneiden bestätigt werden. Das habe ich so vorgesehen damit man sich
im Display erst vergewissern kann, dass man das richtige Teile gewählt hat (Doppelte Linien).

Danke für die Blumen 
und ans Forum ohne die ich sowas nicht im Ansatz hin bekommen hätte!!! 

Gruß Michael

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

---

teile_schuetzen.lsp

Hallo,

ich habe die Lisp noch ein wenig entrümpelt, so dass diverse Fehlermeldungen
nicht mehr auftauchen sollten und alles ein wenig runder läuft!

Gruß Michael 

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

---

Zitat:

---

Original erstellt von MiBr:
ich habe die Lisp noch ein wenig entrümpelt

---

Prima!

Code:

---

(when (equal Ansicht_aktu t)
  .....
  )

---

Entrümpelt.V.1.21:

Code:

---

(when Ansicht_aktu
  .....
  )

---

Nebenbei: der Name 'Ansicht_aktu' ist ungluecklich: ich habe es erst als "Ansicht ist akutell gelesen", aber du meinst damit "Ansicht muss aktualisiert werden".

Die gute Wahl von Namen von Funktionen, Dialogen, Variablen ist sehr hilfreich wenn man den (eigenen) code, nach Jahren wieder in die Hand nehmen muss. 

statt: Ansicht_aktu    vielleicht: ViewNeedUpdate / ViewOutOfDate / AnsichtIstAlt ...

Wenn sich der Lisp code ein wenig verfestigt hat, kann man solche Namensaenderung im Notepadd++ gut machen in dem man bei Replace den Haken bei "Match Whole Word Only" anhakelt. Dann macht man sich andere Namen nicht so schnell kaputt.

Echte ⇉⇉ IDE's koennen natuerlich ⇉⇉refactorn.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Hallo Wolfgang,

danke für die V1.21, da hab ich mal wieder ein Equal zuviel eingebaut!

Zitat:

---

aber du meinst damit "Ansicht muss aktualisiert werden".

---

Nach dem setzen von Schneiden/Schützen ist die Ansicht immer OutOfDate
und vielleicht auch vorher.
Mit der Variable "Ansicht_aktu" gebe ich dem Benutzer die Möglichkeit,
die Ansicht direkt nach dem Schneiden/Schützen aktualisieren zu lassen.

Und da passt die Bezeichung meiner Meinung nach schon, ist aber vieleicht
auch Geschmackssache!

Gruß Michael

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