---

SD_Test_5.lsp.txt Teil.pkg.txt

Guten morgen

Folgende Aufgabenstellung:

Wir haben  Bleche und Hohlprofile in denen sehr viele Bohrungen mit Durchmesser 5 (Kernloch M6)drin sind. Nun sollen aber gewindefurchende Schrauben eingesetzt werden. Nun sind alle Bohrungen von D5 auf z.B. D5,3 zu ändern.
Nun hab ich mir gedacht ich bastel da mal ein LISPchen 

Das ganze tut soweit auch. Ich habe aber noch das Problem dass nicht nur Bohrungen sondern auch Verrundungen selektiert werden. Wie kann ich die Auswahl auf vollständige Zylinderflächen (Bohrungen) einschränken?

Hat jemand bitte einen Tipp für mich?

Code:

---

(in-package :Teo)
(use-package :OLI)

(sd-hide-console-window)                 
(sd-show-console-window)               
(setf si::*enter-break-handler* t) 

(sd-defdialog 'SD_TEST_5
:Dialog-title "Bohrungsdurchmesser Ìndern"
:toolbox-button nil

:variables
  '(
(Bauteil :value-type :Part
          :Prompt-text "Teil angeben"
          :title "Teil"
          :modifies nil
:next-variable 'kante
);;baugruppen

(Zylinderflaeche :selection (*sd-cylinder-seltype*) ;(*sd-edge-3d-seltype*)
:Prompt-text "Kreiskante zur definition der zu bearbeitenden Bohrungen angeben"
:title "KreisflÌche waehlen"
:multiple-items nil
:after-input (setf OLD_DIA (* 2(sd-circle-radius (sd-inq-geo-props Zylinderflaeche :Dest-space :local ))))
);;Zylinderflaeche

(OLD_DIA :value-type :Display-only
:Display-units :length
);;OLD_DIA

(NEW_DIA :value-type :number
:Prompt-text "neuen Bohrungsdurchmesser angeben"
);;NEW_DIA

   
  );;variables

   
:Ok-action
  '(ChangeDiameter Bauteil OLD_DIA NEW_DIA)
 

 
);;sd-defdialog

;;; Funktion zum wählen aller Zylindrischen Flächen im gewählten Teil
    (defun CylindricalFaces (Teil)
  (setf AllCylindricalFaces  (sd-call-cmds (get_selection
:focus_type *sd-cylinder-seltype*
:select
:in_part Teil
);;get_selection
);;sd-call-cmds
);;setf
  );;defun CylindricalFaces 

(defun ChangeDiameter (Teil OLD_DIA NEW_DIA)
(setf counter 0)
(dolist (FlaecheToProceed (CylindricalFaces Teil))
(if (= OLD_DIA (* 2(sd-circle-radius (sd-inq-geo-props FlaecheToProceed :Dest-space :local ))))
;;Then
(progn
(setf counter (+ counter 1))
(NewChangeRad
; :check_fix :On
; :keep_tangent :yes
; :blend_auto :no
; :update_rels :yes
:faces FlaecheToProceed
(/ NEW_DIA 2)
);;NewChangeRad
);;progn
;;else
()
);;if
);;dolist

(display (format nil "Gesamtzahl Zylindrischer Flächen : ~A" (length (CylindricalFaces Teil))))
(display (format nil "~A Bohrungen wurden geändert" counter))

);;defun

; (trace ChangeDiameter)
; (trace CylindricalFaces)

---

Gruß

Stephan

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

---

Hallo Stephan,

Du solltest in dein LISP die Funktion: "Radien erkennen" einbauen und danach die Verrundung von der Auswahl entfernen oder die Kantenlänge als Auswahlkriterium wählen.

Vielleicht hilft dir dieser Link auch weiter: http://ww3.cad.de/foren/ubb/Forum92/HTML/000636.shtml

Gruß Adrian

[Diese Nachricht wurde von AdrianF am 17. Feb. 2012 editiert.]

[Diese Nachricht wurde von AdrianF am 17. Feb. 2012 editiert.]

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