Thanks a lot for fast reply,
this didn't solved the problem, but it seem, that script is behaving from different views in less chaotic way than before, so it helped.
This is code i am using:
ATTDIA
0
FILEDIA
0
;HIDE DYNAMIC MODE OF SETTING PARAMETERS
DYNMODE
0
(setvar "osmode" 0)
;*******set world view****************************************
;PLAN
;W
;
;secondly delete all stuff created with previous script calls
erase
;select all
all
;erase selected
;-------------------------------------------------geometry deffinition-------------------------------
;all dimensions are in (mm)
;*******LETS DEFINE SOME VARIABLES****************************************
;define cake radius
(setq cakerad 50.845)
;*******CREATE A CYLINDER****************************************
; create bottom circle base
circle
;specify middle point
0,0,-20
;specify circle radius
!cakerad
;
; extrude selected circle (cylinder creation)
extrude
;select objects to extrude by fence (curve which passes through element, that should be selected)
c
;specify first fence point
0,10,-20
;specify next fence point
0,100,-20
;exit select
;specify height of cylinder (-40 because it starts in z = -20, 40 will give cylinder from z = -20 to z = -60)
40
;
;*******CREATE CENTRAL HOLE cylinder*****************************************
; create circle base
circle
;specify middle point
0,100,0
;specify circle radius
5
;
; rotate circle so it is in right plane
rotate3d
;select circle so it can be rotated
c
;specify first fence point
0,120,0
;specify next fence point
0,80,0
;exit select
;
;specify first point on axis
20,100,0
;specify second point on axis
-20,100,0
;specify rotation angle
90
;
;; extrude circle
extrude
;select circle to be extruded
c
;specify first fence point
20,100,0
;specify next fence point
-20,100,0
;exit select
;specify height of cylinder
-200
;
;*******DUPLICATE HOLE CYLINDER*******************************************
; duplicate selected cylinder
copy
c
;specify first fence point
20,100,0
;specify next fence point
-20,100,0
;exit select
;specify mode (multi copying)
m
;select base point
0,0,0
;select move point #1
20.34,0,0
;select move point #2
-20.34,0,0
;select move point #3
40.68,0,0
;select move point #4
-40.68,0,0
;exit select move point
;
;*******CREATING HOLES******************************************************
SUBTRACT
;select main cylinder
w
;specify first fence point
-60,-60,0
;specify next fence point
60,60,0
;exit select
;select hole cylinders
c
;specify first fence point
-50,70,0
;specify next fence point
50,80,0
;exit select
;