insertion bloc suivant un point d origine

[Max73]

Bonjours a tous, 

je voudrais savoir ci il excite un moyen d insérer un bloc suivant un point de référence. 

je m explique par exemple sur un coude je voudrais qu' il s insère suivant le point 1 ou le point 2 ou 3 en fonction de mon choix.

[Tramber]

Très facile.

Tu ll'édites dans l'éditeur de bloc et tu ajoutes un paramètre de type "point" dans la première palette.

A l'insertion, pendant la manoeuvre, il suffit d'appuyer sur CTRL pour basculer du point de base à autant de ses points que tu auras défini.

[Raph_38]

Merci Tramber,

Je viens d'apprendre un truc !! 🥰

[La Lozère]

Il y a 1 heure, Tramber a dit :

Très facile.

Tu ll'édites dans l'éditeur de bloc et tu ajoutes un paramètre de type "point" dans la première palette.

A l'insertion, pendant la manoeuvre, il suffit d'appuyer sur CTRL pour basculer du point de base à autant de ses points que tu auras défini.

Humm, je n'arrive pas à faire fonctionner ce que tu indiques ? Soit je peux mettre plusieurs paramètres Point mais il ne se passe rien quand j’appuie sur Ctrl. Soit je ne peux mettre qu'un seul point de base.... 🤔

[Tramber]

Ca marche avec tous les types de paramètres pourtant.

Attention, nuance je crois, il faut qu'ils soient sur "Cycle : Oui", dernière rubrique dans les propriétés.

[Max73]

Merci Tramber je connais pas 🥰

[Max73]

Le 06/04/2023 à 12:27, La Lozère a dit :

Humm, je n'arrive pas à faire fonctionner ce que tu indiques ? Soit je peux mettre plusieurs paramètres Point mais il ne se passe rien quand j’appuie sur Ctrl. Soit je ne peux mettre qu'un seul point de base.... 🤔

il faut mettre action en chaine pour que cela fonctionne Merci encore a @Tramber👍

[Max73]

Après ce qui et dommage c'est qu avec le lips si joint cela ne fonctionne pas car il l insère en recréant un bloc 

(defun c:CCRNZC (/ str att lst suf break)
  (setq str "CCRNZC_DN") ; (setq str (getstring T "\nRenseigner le préfixe : "))
  (setq att (getvar "ATTDIA"))
  (setvar "ATTDIA" 0)
  (setq lst "015 020 025 032 040 050 065 080 100 125 150 200 250 300 350 400 450 500")
  (while
    (and
      (not break)
      (null (initget lst))
      (or
        (setq suf (getkword (strcat "\nType de conduite DN [" (vl-string-translate " " "/" lst) "/Quitter] <100> : " str)))
        (setq suf "100")
      )
    )
    (if (= "Quitter" suf)
      (setq break T)
      (progn
        (command "_-INSERT" (strcat str suf) pause 1 1 pause)
        (while (= 1 (getvar "CMDACTIVE")) (command ""))
      )
    )
  )
  (setvar "ATTDIA" att)
  (princ)
)