---

2026-01-27_09h40_32.png

Hallo,

  ich habe eine Arbeitsebene mit Konstruktionslinien und möchte das konvexe Polygon um dieses Profil herum zeichnen (konvexe Hülle). Ich habe ein Lisp, mit dem ich die Projektion als Konstruktionslinie erstellen kann, aber ich weiß nicht, wie ich das konvexe Polygon um dieses Profil herum zeichnen kann. Ich weiß nicht, wie ich das Werkzeug „Linie” verwenden soll.

Bonjour,

  J’ai un workplane avec des traits de construction et j’aimerai dessiner le polygone convexe autour de ce profil (convex hull) j’ai un lisp qui me permet de faire la projection en trait de construction mais je ne sais pas comment tracer le le polygone convexe autour de ce profil. Je ne sais pas comment utiliser l’outil « ligne »

Code:

---

#|
*  Nom du fichier: PDT_au_CentreGravite.lsp
*  Version  : 2.0
*  Programme pour créer un PDT avec origine au centre de gravité de pièces sélectionnées
|#
(in-package :my-package)
(use-package  :oli)
(sd-defdialog 'pdt_au_cdg
  :dialog-title "PDT au Centre de Gravite"
  :toolbox-button t
  :variables '(
        (Pieces :value-type  :part
                :multiple-items t
                :title "Pieces"
                :prompt-text "Selectionner les pieces"
        )
        (Normale
                :value-type :measure-direction
                :title "Direction normale"
                :initial-value nil
        )
        (TypeGeometrie
                :value-type :boolean
                :toggle-type :wide-toggle
                :title "Geometrie de construction"
                :initial-value t
        )
  ) ;fin Variables

  :ok-action '(creer-pdt)
   
  :local-functions '(
      (creer-pdt ()
        (let (plan-travail)
          (progn
            ; Créer le plan de travail au centre de gravité
            (sd-call-cmds (create_workplane :new
                          :pt_dir :origin
                          (sd-call-cmds (get_vol_prop :for_part Pieces :centroid))
                          :normal (first Normale)))
           
            ; Récupérer le plan de travail actif
            (setf plan-travail (sd-inq-curr-wp))
           
            ; Définir le mode de géométrie AVANT la projection
            (if TypeGeometrie
              (sd-call-cmds (GEOMETRY_MODE :CONSTRUCTION))
              (sd-call-cmds (GEOMETRY_MODE :REAL))
            )
           
            ; Créer la projection du contour pour chaque pièce
            (dolist (piece Pieces)
              (sd-call-cmds
                (cross_section
                  :cross_section_part (sd-inq-obj-pathname piece)
                  :cross_section_wp (sd-inq-obj-pathname plan-travail)
                )
              )
            )
           
            ; Créer les lignes de construction horizontale et verticale
            (sd-call-cmds (c_line_inf :horizontal 0))
            (sd-call-cmds (c_line_inf :vertical 0))
          )
        )
      ) ;fin creer-pdt
  ) ;fin local-functions
 
) ;fin sd-defdialog

---

------------------
Yoane

================================
[edit] der_Wolfgang hat mal die Smilies ausgeschalten [/edit]

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