;;; La commande RACCORD (ou FILLET en anglais) fonctionne mal à l'intérieur
;;; d'une routine en LISP. Que ce soit pour raccorder 2 lignes, 1 ligne avec 1 polyligne,
;;; 2 polylignes, une polyligne ouverte ou fermée, la commande fonctionne mal.
;;; Parfois il faut sélectionner l'entité - comme avec (ENTSEL),
;;; parfois il faut sélectionner un point - comme avec (cadr (ENTSEL))
;;; Autre bizarrerie sur la commande RACCORD (ou FILLET en anglais):
;;; le simple fait d'ajuster le rayon avant la sélection d'objet suffit à
;;; dérégler la commande comme dans l'exemple suivant.
;;;
(defun C:FLT (/ PT1 PT2 RYY)
(setvar "cmdecho" 1)
; les 2 lignes suivantes placer ici, la commande fillet (raccord) fonctionne mal !!???
; (setq RYY (getdist "\n Radius: "))
; (setvar "FILLETRAD" RYY)
(setq PT1 (entsel "\n First line: "))
(setq PT2 (entsel "\n Second line: "))
;les 2 lignes suivantes placer ici, la commande fillet fonctionne bien !!???
(setq RYY (getdist "\n Radius: "))
(setvar "FILLETRAD" RYY)
(command "_.fillet" (CADR PT1) (CADR PT2))
(princ)
);
;Encore un autre bug: Si vous lancez la commande RACCORD au clavier vous obtenez ceci comme options:
;Sélectionnez le premier objet ou [annUler/Polyligne/Rayon/Ajuster/Multiple]:
;Si vous la lancez comme ceci (command "raccord"), au clavier, vous obtenez ceci:
;Sélectionnez le premier objet ou [aNnuler/Polyligne/Rayon/Ajuster/mUltiple]:
;notez les options aNnuler et mUltiple dans les 2 façons (??). Étrange.
;c'est pareil dans la version ANGLAISE et FRANÇAISE.