Créer une "multiligne" rapidement avec Autocad LT

[Edouard44]

Bonjour,

Je suis un débutant en lisp, je bricole mais je ne comprends pas vraiment ce que je fais.

Je souhaite créer rapidement des multilignes de 3 traits : 1 trait d'axe et 2 traits décalés de chaque côté. (la fonction multiligne n'est pas disponible dans Autocad LT.

 

J'ai créé ce code qui :

- crée une polyligne

- décale une polyligne.

Le souci, c'est qu'on doit resélectionner la polyligne au milieu de la procédure. J'ai essayé d'utiliser Entlast mais ça n'a rien donné.

(defun c:ofsegs(/ ofdist   ent         pline    normal   elevat    params
           points   side     closest  par      bulge    p1
           p2        arc_data
          )

(command "_pline")
(while (/= 0 (getvar "cmdactive"))
(command pause)
)
  (vl-load-com)
  (or *acdoc*
      (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))
  )
  (initget 6 "Par")
  (if (setq
    ofdist (getdist
         (strcat "\nSpécifiez la distance de décalage ou [Par] <"
             (if (< (getvar "OFFSETDIST") 0)
               "par"
               (rtos (getvar "OFFSETDIST"))
             )
             ">: "
         )
           )
      )
    (if    (= ofdist "Par")
      (setvar "OFFSETDIST" -1)
      (setvar "OFFSETDIST" ofdist)
    )
    (setq ofdist (getvar "OFFSETDIST"))
  )

 

 

(setq ent (vlax-ename->vla-object (car (entsel)))) ; Sélection de la poly
(vlax-invoke ent 'offset ofdist)  ; Décalage d'un coté
 (setq ofdist (- ofdist))
(vlax-invoke ent 'offset ofdist) ; Puis de l'autre
)

 

 

Est-ce que quelqu'un aurait la réponse ?

Merci d'avance,

[Olivier Eckmann]

regarde ici : https://forums.autodesk.com/t5/autocad-tous-produits-francais/autocad-tracer-des-polylignes-paralleles-en-une-seule-fois/m-p/12397855

ça peut être intéressant.

[lili2006]

Bonjour à toutes et tous,

 

Tu devrais déplacer ton message dans la bonne rubrique, à savoir "DÉBUTER EN LISP",.

[Edouard44]

Bonjour,

Merci pour vos réponses. Effectivement Olivier Eckmann ce forum donne bien ce que je cherche :

 https://forums.autodesk.com/t5/autocad-tous-produits-francais/autocad-tracer-des-polylignes-paralleles-en-une-seule-fois/m-p/12397855

Ok merci lili2006 je n'avais pas vu cette rubrique