Ein Punktraster mit konstanten Werten erstellen

[marcolimongiello]

hallo.
ich gebe zu, sehr wenig praktisch zu sein.
ich brauche ein kleines programm, das mir ein sogenanntes "zyklus für" für punkte berechnet, d.h. durch tastatur muss ich nummern- und ziffern eingeben und dann eine konstante k le ascisse (x) und eine weitere konstante j le order verbleibende z=w (andere konstante) erhöhen und so ein raster von punkten konstruieren und dann auf dem blatt erscheinen lassen, all das ausgehend von dem ersten bekannten punkt.

 

[AntonioV]

warten auf den lispino, können sie mit dem befehl lösen ich will nicht. einer stelle, die in den ursprung 0,0.0 der kartesischen achsen liegt.

:

 

[marcolimongiello]

hallo alle,
ich drücke auf die ersten waffen mit der lisp-sprache.
ich kann nicht erstellen, wofür in anderen sprachen (z.b.basic) der zyklus definiert ist, da die befehle, die ich bis jetzt versucht habe und wiederholen, mich nur den letzten wert des erstellten zyklus definieren.
das ziel meines programms wäre es, von der tastatur 2 variablen (a und b) zu geben, einen koordinatenpunkt (x,y,z) zu definieren, wo von diesen erhöhungen einer für jede iteration bekannten menge' nur die x (y und z bleiben konstant). definiert das raster der punkte i muss dann von einem basispunkt kopiert werden, der zuvor in allen punkten definiert wurde, die aus dem zyklus für erstellt wurden. allego für diejenigen, die daran interessiert sind, mein problem zu lösen ke.

(setq a (getreal "einfügen von spalten :")
(setq b (getreal "insert element durchmesser :"))
(satz für 1.3)
(setq w (* pro b)))
(sectq div 2)
(setq y (/b div))
(sectq z (/b div))
(seq baricentro "0,0,0")
(while (/= a 0)
(progn)
(setq x (+ x w))
(setq punktdestination (strcat (rtos x 1 2) "," (rtos y 1 2) "," (rtos z 1 2))
(setq xboxnotruo (ssget "_c"(-1 1) '(0 -3)))
(command"_copy) xboxnotruo "" baricentro puntodestinazione e "")
(setq a (1-a)
)
)

 

[rpor66]

ich sehe es so, ich habe ihre routine etwas geändert.
ich benutzte zählung für die zeit, sind von der meinung, dass die variablen, die die anzahl der iterationen definieren sollte nicht ändern, ich benutzte liste, um die koordinaten zu definieren, bewegt ssget aus dem zyklus, da die auswahl immer gleich ist.

bye

 

[marcolimongiello]

vielen dank, das programm ist genau das, was ich suchte

 

[marcolimongiello]

wenn ich sie eine weitere höflichkeit fragen kann, habe ich ein problem auf dem befehl _copy.
ich muss wählen, wie ich normalerweise einen auswahlpunkt autocad und die ausgewählte figur zu diesem punkt bewegen (im falle von zuerst von baricentro zu zielpunkt). die befehlszeile
(command"_copy) xboxnotruo "" baricentro puntodestinato "")
er tut es falsch

 

[rpor66]

überprüfen, ob es keine aktivierten osnaps gibt.

bye