---

Hallo!

ich wollte mir eine Lisp schreiben, mit der ich Schraffuren mittels 'prompt-variable'
ändern kann. Durch anklicken -> größer, kleiner oder 90° drehen.

Die Schraffur würde ich mittels ':selection (*sd-anno-face-seltype*)' auswählen.

So und jetzt die Frage!
Wie bekomme ich die Werte des Abstands und des Winkels der angeklickten Schraffur?

Gruß Michael

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

---

Hi!

siehe =>

Hatch Inquiries

Structures:
sd-am-hatch-pattern-struct
sd-am-simple-pattern-struct

Inquiries:
sd-am-inq-registered-hatch-pattern-names
sd-am-inq-curr-automatic-hatch-pattern-name
sd-am-inq-curr-manual-hatch-pattern-name
sd-am-inq-hatch-pattern
sd-am-inq-hatch-mode

Function Index Top of Page

SD-AM-HATCH-PATTERN-STRUCT  [structure]

(sd-am-hatch-pattern-struct-p        sd-am-hatch-pattern-struct)
(sd-am-hatch-pattern-struct-name    sd-am-hatch-pattern-struct)
(sd-am-hatch-pattern-struct-label    sd-am-hatch-pattern-struct)
(sd-am-hatch-pattern-struct-angle    sd-am-hatch-pattern-struct)
(sd-am-hatch-pattern-struct-distance sd-am-hatch-pattern-struct)
(sd-am-hatch-pattern-struct-patterns sd-am-hatch-pattern-struct)
Description:
Describes a hatch pattern. The parameters angle and distance are absolute values defined in system units, as a reference for the simple patterns.

Slots:
name {STRING} - The registered pattern name.
label {STRING} - The displayed pattern name.
angle {LONG-FLOAT} - The absolute angle of the hatch lines.
distance {LONG-FLOAT} - The absolute distance between the hatch lines.
patterns {LIST of SD-AM-SIMPLE-PATTERN_STRUCTs} - The list of simple patterns overlayed by each other.

See Also:
SD-AM-SIMPLE-PATTERN_STRUCT [structure]
SD-AM-INQ-HATCH-PATTERN [function]

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

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

---

Hallo Felix,

ich glaube, mir muss man alles auf Brot schmieren, sry.

Mal angenommen ich will mir den Abstand nur anzeigen lassen, dann könnte das so
ähnlich aussehen:

Code:

---

(Flae_Schr
:selection (*sd-anno-face-seltype*)
:toggle-type :invisible
:title "Flaeche waehlen"
rompt-text "Flaeche auswaehlen"
:initial-value t
:multiple-items t
:modifies nil
:after-input (progn (sd-call-cmds
(display (format nil "~a" (sd-am-hatch-pattern-struct-distance ????)))))
) ;; end variable

---

Was muss bei den ???? hin?

Gruß Michael

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

---

Der Umgang mit konkreten Schraffuren im Annotation ist nach meinen Erfahrungen extrem mühsam.
Am Einfachsten verwendest du in einer Toolbar und/oder Kontextmenü das Kommando aus der Gruppe "Schraffur"-"Schraffureigenschaften".
Tiefergehende Eingriffe habe ich nur über eine Kombination aus LISP und ME10-Makros geschafft, siehe oben 

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Hallo Walter,

wenn es für dich schon mühsam ist, ist es für mich wohl unmöglich.

Mir ist das Tool "Schraffureigenschaften" leider ein wenig zu überladen.
Und auch die Bedingung halte ich für ein wenig zu kompliziert.
Von daher kam mir der Gedanke, ein kleines Toll nur für Winkel und
Abstand zu schreiben!

Wie gesagt zwei mal nur ein wenig, von daher Danke für Eure Hilfe!!!

Michael

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

---

Schraffur-setzen.lsp

Hallo nochmal,

das Thema lies mich noch nicht ganz los und ich habe mir eine Lisp ohne Abfrage geschreiben, siehe Anhang.
Für mich eine große Erleichterung, wenn noch jemand diese gebrauchen kann, Bitte!

Habe aber zu folgenden Code ein Frage:

Code:

---

(sd-call-cmds
(progn
.......
(when Schraffur_rech t
(oli:am_hatch_modify :HATCH_LIST Flaechenschraffur :pattern_angle (* 1 0.7853981634))
)
.......
) ;; end progn
) ;;sd-call

---

Der Winkel von 45° wird so gesetzt -> :pattern_angle (* 1 0.7853981634) :(
Wenn ich auf (sd-call-cmds ....) verzichte, darf ich dies so schreiben -> :pattern_angle 45. Dafür fliege
ich dann aus dem Tool! :(

Da ich in der Lisp lieber mit geraden Werten abreite, die Frage: Wie kann ich dies Verhalten ändern?

Gruß Michael

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

---

So,

ich habs mir selbst beantwortet, bzw. kann ich es so rund bekommen!

(* 45 (/ pi 180)) = 45° =  0.7853981634
(* 1 (/ pi 180))  = 1°  =  0.01745329252

Gruß Michael

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

---

Brote schmier:

Zitat:

---

Original erstellt von MiBr:
(* 45 (/ pi 180)) = 45° =  0.7853981634

---

IKIT:

Code:

---

(oli:sd-deg-to-rad 45)  ;; liest sich gut im quellcode

---

------------------
● 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