ESCALIER 2D EN PLAN ET COUPE

[PHILPHIL]

bonjour

ayant pas mal utilisé les connaissances de CADXP pour ces lisp et travaillant des fois en 2D.

voici des lisp pour faire des escaliers si ca interesse

new  : les escaliers sont placés dans un groupe a la fin

vue en coupe

c:escalier_montant_droite

c:escalier_descendant_droite

c:escalier_montant_gauche

c:escalier_descendant_gauche

vue en plan

c:escalier_droit_plan

c:escalier_colimacon_descendant_droite_plan

c:escalier_colimacon_descendant_gauche_plan

c:escalier_colimacon_montant_droite_plan

c:escalier_colimacon_montant_gauche_plan

new : c:escalier_droit_2_volee_plan

vue de face

c:escalier_droit_face

 

bloc "FLECHE ESCALIER" a mettre dans ce sous répertoire

"c:/PERSO/bibliotheque/ESCALIER/FLECHE ESCALIER"

 

a tester

Phil

FLECHE ESCALIER.dwg

ESCALIER.lsp

[DenisHen]

Salut PhilPhil.
Extrêmement intéressant, mais je n'ai pas "GC:GETCUSTOMBYKEY", qui doit être de (gile) je présume.
Et aurais-tu fais un escalier avec palier ou 2/4 tournants ?
Encore un grand merci pour ce partage !
Denis...

[PHILPHIL]

hello DenisHen

 

a rajouter dans un de tes lisp qui s'exécute a l'ouverture d'un fichier

ca rajoute au fichier *.dwg  une propriété personnalisée : UNITE_ECHELLE_FICHIER  que j'utilise dans mes lisp

(setcustombykey "UNITE_ECHELLE_FICHIER" 1)

 

Il y a 4 heures, DenisHen a dit :

Extrêmement intéressant, mais je n'ai pas "GC:GETCUSTOMBYKEY", qui doit être de (gile) je présume.

oui
 

(defun gc:getcustombykey (key / val)
  (vl-catch-all-apply
    '(lambda ()
       (vla-getcustombykey (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object))) key 'val)
       )
    )
  val
  )


(defun setcustombykey1 (key val)
  (vl-load-com)
  (not
    (vl-catch-all-apply
      '(lambda ()
         (vla-setcustombykey (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object))) key val)
         )
      )
    )
  )
(defun setcustombykey (key val)
  (vl-load-com)
  (not
    (vl-catch-all-apply
      '(lambda ()
         (vla-addcustominfo (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object))) key val)
         )
      )
    )
  )

 

Il y a 5 heures, DenisHen a dit :

Et aurais-tu fais un escalier avec palier ou 2/4 tournants ?

je n'en ai pas u l utilité pour  le moment

 

j'ai ca sinon , je ne connais pas l'auteur, et je n'ai pas tester, merci a lui

escalier_balance_complet.lsp.zip

 

je travaille en cm  et des fois je recois des fichiers en metre, 

j'utilise ce lisp pour pas tout changer dans mes lisp mais pour changer cette variable ( propriété personnalisée) qui m'est propre

si tu bosse en cm : unite echelle fichier = 0.01

             en m : unite echelle fichier = 1

 ; --------------------------------------------------------------------
 ; defini l'echelle du dessin  valeur d'une unite pour un metre  ------
 ; --------------------------------------------------------------------
(defun c:unite_echelle_fichier ()
  (setvar "cmdecho" 0)
  (setq unite_echelle_fichier (atof (gc:getcustombykey "UNITE_ECHELLE_FICHIER")))
  (initget 4) ; No negative values allowed
  (setq tmp (getdist
              (strcat "\nENTRER LA VALEUR D'UNE UNITE DESSIN EN METRE <" (rtos unite_echelle_fichier 2 8) ">: ")
              )
        )
  (if tmp
    (setq unite_echelle_fichier tmp)
    )
  (setcustombykey1 "UNITE_ECHELLE_FICHIER" (rtos unite_echelle_fichier 2 8))
  (princ)
  )

 

tu vas avoir besoin de ca aussi

 ; ------------------
 ; defini l'echelle du TEXTE  -------

(defun c:txtech ()
  (setvar "cmdecho" 0)
  (setq txtech (atof (getcfg "APPDATA/TXTECH"))) ;(prompt
 ; (strcat
 ;  "\nLA VALEUR D'ECHELLE DE REFERENCE DU TEXTE ACTUELLE EST DE "
 ; (rtos TXTECH 2 8)
 ; " "
 ;)
 ; )
  (initget 4) ; No negative values allowed
  (setq tmp (getdist (strcat "\nENTRER LA VALEUR D'ECHELLE DU TEXTE <" (rtos txtech 2 8) ">: ")))
  (if tmp
    (setq txtech tmp)
  )
  (setcfg "APPDATA/TXTECH" (rtos txtech 2 8))
;;; (setvar "cmdecho" 1)
  (princ)
)

 ; ------------------

 

[DenisHen]

Salut Phil.
Merci beaucoup pour ton retour, je regarde ça dès que possible.
Denis...

[PHILPHIL]

hello

mise a jour : escalier double volée et   groupe en fin de lisp

Phil