Confusion de point

[Invité chronos21]

Bonjour à tous,

 

Voici mon problème :

 

je réalise ma toute première routine en LISP et je me suis fixé comme objectif de réaliser un cartouche automatiquement afin de m'entrainer un peu sans créer de bloc etc.

 

Ainsi je veux faire mon cartouche avec différents points qui délimitent mes rectangles.

 

J'en suis au tout début et lorsque que je lance ma commande, je ne comprend pas pourquoi mon 2eme rectangle ne se dessine pas (ou plutôt si mais une polyligne à 4 sommets entre PT1 et PT2).

 

Ci-dessous mon code

(defun c:cartouche()
 (setq pt1 (getpoint "\nSpecifier le point d'insertion :"))
 (setq pt2 (polar pt1 0 210))
 (setq pt3 (polar pt2 (/ pi 2) 297))
 (setq pt4 (polar pt1 (/ pi 2) 297));Fin du cadre principal
 (setq pt5 (list (+ (car pt1) 5) (cadr pt1)))
 (setq pt6 (list (car pt5) (+ (cadr pt5) 5)))
 (setq pt7 (list (car pt6) (+ (cadr pt6) 25.7143)))
 (setq pt8 (list (+ (car pt7) 200) (cadr pt7)))
 	(Command "rectangle" pt1 pt3)
 	(Command "rectangle" pt6 pt8)
(princ)
)

 

Je vous remercie d'avance en sachant bien qu'il doit y avoir bien plus mais j'apprendrai de mes erreurs avec le temps.

 

Cordialement,

 

Chronos

[(gile)]

Salut,

 

La fonction LISP command est sensible aux accrochages aux objets actifs.

 

Il faut donc,

- soit désactiver temporairement les accrochages avec "auc" (pour "aucun") ou, mieux, "_non" (pour "_none") :

(Command "_rectang" "_non" pt1"_non" pt3)

- soit récupérer la valeur de la variable "OSMODE" (qui stocke les accrochages actifs), mettre cette variable à 0 avant les appels à command, puis restaurer la valeur initiale après ces appels :

(setq osm (getvar 'osmode))
(setvar 'osmode 0)
(Command "rectangle" pt1 pt3)
(Command "rectangle" pt6 pt8)
(setvar 'osmode osm)

 

 

PS: je me suis permis d'éditer le titre de ton sujet : j'imagine que tu voulais dire "Confusion" et pas "Convusion".

[Invité chronos21]

Bonjour,

 

je vous remercie pour l'info que je ne connaissais pas, étant débutant cela ne doit pas trop vous étonner.

 

Vous avez bien fait pour le titre j'aurais du me relire...

 

Chronos

[(gile)]

Bienvenue dans le monde fantastique de la programmation d'AutoCAD.

[VDH-Bruno]

Bonsoir et bienvenu à toi sur ce forum

A+