Command Array

[CadFrank]

Bonjour à tous visiteur,

 

Voici ce que je chercher à faire. j'ai un début de code que j'ai créer. Cette routine consiste à créer des échafaudage en plan.

 

Je réussi a faire ce que je veux avec jusqu'au point du array.

 

Ce que je voudrais faire maintenant ce serait de lui demander de faire un array mais dans une zone détermine par une d'une entité fermé.

 

Ce que je me pose comme question est la suivant es-ce possible?

peut-on lui donner des contrainte?

Et aussi si l'espacement entre les étaiements "cadre" peut varier celon des caractéristique spécifiques de certain calcule.

 

voici mon code :

 

;******************************************************              
;         ce sous program permet de créer un 
;                 cadre d'echafaudage
;******************************************************

(defun cadre()

  (setq pt1(getpoint"\nPointez premier point : "))
  (setq pt2(polar pt1 0 1220))
  (setq pt3(list(car pt2)(+(cadr pt1) 2135)))

  (command"_layer" "_n" "-lu test6" "_c" "2" "-lu test6" "")
  (command"_donut" "0" "150" pt1 "")
  (setq cir1(entlast))  
  (command"_donut" "0" "150" pt2 "")
  (setq cir2(entlast))
  (command"_pline" pt1 pt2 "")
  (setq lin1(entlast))
  
  (Command"_chprop" cir1 cir2 lin1 "_la" "-lu test6")
  (command"_block" "lu blockt" pt1 cir1 cir2 lin1 "")
  (command"_insert" "lu blockt" pt1 "" "" "")
  (setq blockt(entlast))

)defun cadre

;******************************************************
;            début du program : échafaudage
;      ce program permet d'échafauder un projet     
;******************************************************

(defun c:ecf()
  
  
  ;(constantes)
  ;(spécification)
  ;(calcul)
  (cadre)

  (command"_line" pt1 pt3 "")
  (setq lin2(entlast))
  (Command"_array" blockt lin2 "" "r" "6" "2" "2135" portée-sol)
  
  
(princ)
  
);defun c:

 

Pour plus d'information n'hésité pas a me poser de question.

 

Merci d'avance.

[Tramber]

Fais un effort dès aujourd'hui : ajoute "_" devant toutes tes commandes, notamment pour publier chez les Français.

Car ton code ne fonctionnera pas correctement chez nous.

 

Une fois j'ai gueulé sur le gérant de CADdepot (ou un truc comme cela) car j'avais payé une routine écrite pour les anglophones au mépris des règles. C'était en 2002 et le gars était tout blême. Il a dû secouer tous ses fournisseurs de lisp, payant ou non.

Mais je lui ai rendu service, j'imagine. Je n'y suis jamais retourné puisque j'ai appris à programmer...

 

Pour les calculs, tu te débrouillera. Mais pour répondre à ta question, tu vas devoir apprendre, ruser, etc. Mais le code qui détermine si un objet est dans une zone n'est pas à donner comme cela. En plus ce sont des blocs...

 

Il y a eu des discussions sur une detection de point dans une zone fermée par une poly.

Si d'aucuns peuvent donner des liens...

[CadFrank]

Fais un effort dès aujourd'hui : ajoute "_" devant toutes tes commandes, notamment pour publier chez les Français.

Car ton code ne fonctionnera pas correctement chez nous.

 

Ah bien d'accord je ferais cette effort maintenant j'y avais pas penser.

 

pour ce qui est de la zone, il y aurais une discution dans se forum tu parle?

 

J'ai aussi modifier le code la haut avec le "_" pour les commandes.