COMMAND DIVISER SOUS LISP

[Invité pleche.damien]

Bonjour, je cherche à faire fonctionner la commande "diviser" sous autocad avec une insertion de bloc (cercle) qui suit un segment. Malheuresement une érreur c'est introduit dans mon programme lisp. Je pense que c'est sur la dernière ligne de lisp. Pouvez vous m'aider..?

Faut t'il également créer le bloc dans un fichier autocad DWG qui est appelé sur le chemin de parcour d'option..?

 

 

(defun c:acier11 ()
 (setq ptac3 (getpoint "/n donner le premier point"))
 (setq ptac4 (getpoint "/n donner le deuxieme point"))
 (setq d1 (distance ptac3 ptac4))
 (setq nbr11 (getint "/n donner nombre acier"))
 (command "diviser" d1 "B" "cercle" "O" nbr11)

) 

[wookichu]

une petite piste de réflexion:

 

la commande diviser que tu appelle demande que tu lui donne un objet (ligne ou polyligne) alors que tu lui donne une distance (d1)...

 

vite fait :

 

(defun c:acier11 ()
 (princ  "choix de l'objet a diviser")
 (setq ss (ssget))
 (setq nbr11 (getint "/n donner nombre acier"))
 (command "diviser" ss "B" "cercle" "O" nbr11)
) 
 

 

[Edité le 16/5/2011 par wookichu]

[Carboleum]

 

à partir du code de wookichu, remplace (ssget) par (car (entsel)), ca marchera mieux ;-)

 

Si tu tiens à ne pas devoir cliquer sur un objet mais sur les points, tu peux créer temporairement la ligne que divide va diviser:

 

(setq ligne (command "_line" (setq p1 (getpoint)) (getpoint p1) ""))
(setq ss (entlast))

 

en fin de routine, n'oublies pas de virer la ligne temporaire...

 

 

[Carboleum]

 

Je viens de m'appercevoir que la réponse a déjà été donnée sur l'autre sujet!

haaa, saleté de doublons!

 

[wookichu]

haaa, saleté de doublons!

 

hihihhi :)