Faux-plafond (ADT 2006)

[coyote338]

Bonjour,

J'aimerai dans un plan insérer un faux plafond.Si quelqu'un pourrais m'eclairer sur la fonctionnalité "grille de plafond"?

Jsuis arrivé a créer le faux plafond d'une forme spécial mais j'arrive pas a lui donner une epaisseur et un metttre des dalles(mon objet est considéré comme "trame de faux-plafond").J'aimerai savoir si une fonctionnalité me permet de dessiner les dalles de ce faux plafond avec une armature apparente et meme y incrusté des point lumineux.

J'ai toujours la possibilité de creér une dalle a la place mais je sais pas comment je pourrais y dessiner l'amature et ses dalles acoustiques.

Merci beaucoup par avance.

[BIM G CO]

Aller vite fait un faux plafond

 

 (defun c:FxPlaf	(/ x1 x2 x3 x4 x5 x6 Dalle NbRg	NbCol PUBLIC_ERROR D1 D2)
 (setvar "CMDECHO" 1)
 (setvar "ORTHOMODE" 0)
 (setvar "OSMODE" 17079)
(setq VAR_UNITES 1) ; echelle 1
  (setq
   x1
    (getpoint
      "\nIndiquer le coin inférieur gauche de la pièce à calepiner "
    )
 )
 (setq
   x3 (getpoint
 "\nIndiquer le coin supérieur droit de la pièce à calepiner "
      )
 )
 (setvar "OSMODE" 17079)
 (setq x1 (list (car x1) (cadr x1) 0.0))
 (setq x2 (list (car x1) (cadr x3) 0.0))
 (setq x3 (list (car x3) (cadr x3) 0.0))
 (setq x4 (list (car x3) (cadr x1) 0.0))
 (setq x5 (inters x1 x3 x2 x4))
 (if (not x5)
   (progn
     (princ "\nErreur de saisie de point")
     (exit)
   )
 )
 (command "_.PLINE" x1 x2 x3 x4 "_close")
 (setq Dalle (list (entlast)))
 (setq D1 (/ (distance x1 x2) (* 0.6 VAR_UNITES)))
 (setq D2 (/ (distance x2 x3) (* 0.6 VAR_UNITES)))
 (if (> (- D1 (fix D1)) 0.3)
   (Setq D1 (1+ D1))
 )
 (if (> (- D2 (fix D2)) 0.3)
   (Setq D2 (1+ D2))
 )
 (setq NbRg (1+ (fix D1)))
 (setq NbCol (1+ (fix D2)))
 (setq	x6 (list (- (car x5) (* (/ NbCol 2) (* 0.6 VAR_UNITES)))
	 (- (cadr x5) (* (/ NbRg 2) (* 0.6 VAR_UNITES)))
   )
 )
 (command "_.PLINE"
   (list (- (car x6) (* 0.3 VAR_UNITES))
	 (- (cadr x6) (* 0.3 VAR_UNITES))
   )
   (list (+ (car x6) (* 0.3 VAR_UNITES))
	 (- (cadr x6) (* 0.3 VAR_UNITES))
   )
   (list (+ (car x6) (* 0.3 VAR_UNITES))
	 (+ (cadr x6) (* 0.3 VAR_UNITES))
   )
   (list (- (car x6) (* 0.3 VAR_UNITES))
	 (+ (cadr x6) (* 0.3 VAR_UNITES))
   )
   "_close"
 )
 (setq Dalle (append Dalle (list (entlast))))
 (command "_.-ARRAY"
   (cadr Dalle)
   ""
   "R"				; Rectangulaire
   (1+ NBRg)			; Nombre de rangée
   (1+ NbCol)			; Nombre de colonne
   (* 0.6 VAR_UNITES)		; Distance entre rangée
   (* 0.6 VAR_UNITES)		; Distance entre colonne
 )
 ;; Permettre la sauvegarde sur une liste de toutes les entités composant le faux plafond
 (while (entnext (nth (1- (length Dalle)) Dalle))
   (setq
     Dalle (append Dalle
	    (list (entnext (nth (1- (length Dalle)) Dalle)))
    )
   )
 )
 ;; Création du groupe faux plafond
 (setq D1 2)
 (setq D2 (ssadd (nth 1 Dalle)))
 (while (< D1 (length Dalle))
   (setq D2
   (ssadd (nth D1 Dalle)
	  D2
   )
   )
   (setq D1 (1+ D1))
 )
 (command
   "_.-GROUP"
   "_create"
   (strcat "FxPLAF_"
    (vl-string-left-trim
      "Nom d'entité: "
      (vl-string-left-trim
	"Entity name: "
	(vl-string-trim "<>" (vl-princ-to-string (nth 0 Dalle)))
      )
    )
   )
   "Calepinage Faux Plafond"
   D2
   ""
 )
 (Command "_.ERASE" (nth 0 Dalle) "")
 (ResolFxplaf x6)
 (princ)
)

 

 

 (defun ResolFxplaf (ARG_PT)
 (if (not ARG_PT)
   (setq ARG_PT (getpoint "\nPoint de base "))
 )
 (setvar "SNAPBASE"
  (list	(- (car ARG_PT) (* 0.3 VAR_UNITES))
	(- (cadr ARG_PT) (* 0.3 VAR_UNITES))
  )
 )
 (setvar "SNAPUNIT"
  (list (* 0.3 VAR_UNITES) (* 0.3 VAR_UNITES))
 )
 (setvar "GRIDUNIT"
  (list (* 0.6 VAR_UNITES) (* 0.6 VAR_UNITES))
 )
 (princ)
)

[coyote338]

Deja merci de m'avoir repondu,mais je comprend pas trop a ses lignes de commande :(

[Jean-Bat]

Bonjour

La réponse de maximilien te permet à travers un programe de créer un calepinage fait avec des polylignes. Donc même résultat qu'avec la trame de faux plafond d'Autodesk Architectural Desktop

Afin de modéliser un faux plafond en 3D, utilise un mur rideau que tu calepine comme tu veux (les meneaux et dormants pour les armatures et un panneau pour le remplissage) puis tu le place horizontalement afin d'un faire un faux plafond.

comme c'est un mur il accepte les conditions d'interférence et tu peux placer tes lumières.

 

A+

 

[Circus]

Excellent !!

 

bien vu comme technique pour modéliser en 3d...ca fera plus propre quand je suis sur 3d max, plutot que de faire ca avec une texture bump...

 

MERCI !!

 

A+

KC